« 【よみもの】もーりおのつぶやき 第28回 | メイン | HSPTV!メルマガ 第60号 »
2008年05月13日
【講座】HSP3ワンポイントテクニック 第31回
HSP3の変わった使用例や、気付きにくい機能などをいつも紹介
しているこのコーナーですが、今回はなんということのない
サンプルスクリプトを紹介してみたいと思います。
HSP3で実行すると、とてもおめでたい画面が表示されます。
なにか使い道があれば、活用してみてください。
wx=800:wy=600 ; 画面サイズ
screen 0,wx,wy
cx=wx/2:cy=wy/2:dist=int(sqrt( cx*cx + cy*cy ))+8
dim x,4:dim y,4
kai=16 ; 角数
r1=255:g1=0:b1=0 ; 1つ目の色
r2=255:g2=255:b2=255 ; 2つ目の色
tt=0:plus=3.141592/kai*2
x(0)=cx:y(0)=cy
x(3)=cx:y(3)=cy
repeat:redraw 0
rot=0.01 * tt
repeat kai
x(1)=int(sin(rot)*dist)+cx
y(1)=int(cos(rot)*dist)+cy
rot+=plus
x(2)=int(sin(rot)*dist)+cx
y(2)=int(cos(rot)*dist)+cy
if cnt&1 : color r1,g1,b1 : else : color r2,g2,b2
gsquare -1,x,y
loop
tt++
redraw 1
await 30
loop
皆さんも、何となく作ってしまったスクリプトがあれば
メルマガ編集部の方まで投稿してもらえると嬉しいです。
なんということのないスクリプトを紹介させて頂きます。
ではでは、また。
(おにたま)
投稿者 usuaji : 2008年05月13日 22:09
口臭チェッカー市場