mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-07 12:31:57 +00:00
22 lines
348 B
QBasic
22 lines
348 B
QBasic
|
'function TIC()
|
||
|
|
' t=time()/499
|
||
|
|
' for i=0,32639 do
|
||
|
|
' x=i%240
|
||
|
|
' y=i/240
|
||
|
|
' v=s(x/50+t)+s(y/22+t)+s(x/32)
|
||
|
|
' poke4(i,v*2%8)
|
||
|
|
' end
|
||
|
|
'end
|
||
|
|
's=math.sin
|
||
|
|
|
||
|
|
5 HGR2
|
||
|
|
10 FOR X=0 TO 279
|
||
|
|
20 FOR Y=0 TO 191
|
||
|
|
30 V=SIN(X/50+T)+SIN(Y/22+T)+SIN(X/32)
|
||
|
|
35 V=INT(V*3.5+3.5)
|
||
|
|
37 IF V>7 THEN V=V-7
|
||
|
|
38 IF V<0 THEN V=V+7
|
||
|
|
40 HCOLOR=V:HPLOT X,Y
|
||
|
|
50 NEXT Y,X
|
||
|
|
60 T=T+(1/499):GOTO 10
|