23 lines
361 B
Text
23 lines
361 B
Text
:-1→Xmin:1→Xmax
|
|
:-1→Ymin:1→Ymax
|
|
:AxesOff
|
|
:Degrees
|
|
:While 1
|
|
:For(X,0,359,5
|
|
:sin(X-120→I%
|
|
:sin(X→PV
|
|
:sin(X+120→FV
|
|
:Line(0,1,I%,.3
|
|
:Line(0,1,PV,.3
|
|
:Line(0,1,FV,.3
|
|
:Line(0,-1,-I%,-.3
|
|
:Line(0,-1,-PV,-.3
|
|
:Line(0,-1,-FV,-.3
|
|
:Line(.3,I%,-.3,-PV
|
|
:Line(.3,I%,-.3,-FV
|
|
:Line(.3,PV,-.3,-I%
|
|
:Line(.3,PV,-.3,-FV
|
|
:Line(.3,FV,-.3,-I%
|
|
:Line(.3,FV,-.3,-PV
|
|
:End
|
|
:End
|