|
1A=2:B=-3:C=3.14159:D=1/(2*C):E=D/3:HOME:HGR2:F=0:HCOLOR=1:FORG=0TO14STEP.1:GOSUB2:NEXT:F=C:HCOLOR=5:FORG=0TO14STEP.1:GOSUB2:NEXT:END
|
|
2H=G+F:I=G*E:J=I*COS(H):K=-I*SIN(H):L=D*G:K=K-B:IFK<2.9THENRETURN
|
|
3J=INT(140+180*(J/K)):L=INT(160+230*((L-A)/K)):HPLOTJ,L:RETURN
|