mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-01 05:31:52 +00:00
9 lines
287 B
QBasic
9 lines
287 B
QBasic
0GR
|
|
1Z=H:FORI=0TO39:Z=Z+.04:X=SIN(Z)/2:Y=COS(Z)/2:D=0:R=P:S=Q
|
|
2D=D+1:R=R+X:S=S+Y:C=0:A=ABS(R):B=ABS(S):IFA>8ORB>8THENC=5
|
|
5IFA>4ANDA<6ANDB>4ANDB<6THENC=1
|
|
6IFC=0ANDD<40THEN2
|
|
7U=40/D:IFU>19THENU=19
|
|
8V=19-U:U=19+U:COLOR=7:VLIN0,VATI:COLOR=C:VLINV,UATI:COLOR=8:VLINU,39ATI
|
|
9NEXT:H=H+.2:GOTO1
|