Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ClrDraw
- ⁻1→Xmin
- 1→Xmax
- ⁻2/3→Ymin
- ∆X→∆Y
- AxesOff
- GridOff
- FnOff
- π/4→R
- While 1
- √(2)sin(R)→S
- √(2)cos(R)→T
- {⁻T,⁻1,⁻T,1,S,1,S,⁻1,⁻S,⁻1,⁻S,1,T,1,T,⁻1→L₁
- {5-S,5-S,5-S,5-S,5-T,5-T,5-T,5-T,T+5,T+5,T+5,T+5,S+5,S+5,S+5,S+5→L₂
- L₂ˉ¹L₁→L₃
- ClrDraw
- Line(L₃(1),L₃(2),L₃(3),L₃(4
- Line(L₃(3),L₃(4),L₃(5),L₃(6
- Line(L₃(5),L₃(6),L₃(7),L₃(8
- Line(L₃(7),L₃(8),L₃(1),L₃(2
- Line(L₃(9),L₃(10),L₃(11),L₃(12
- Line(L₃(11),L₃(12),L₃(13),L₃(14
- Line(L₃(13),L₃(14),L₃(15),L₃(16
- Line(L₃(15),L₃(16),L₃(9),L₃(10
- Line(L₃(1),L₃(2),L₃(9),L₃(10
- Line(L₃(3),L₃(4),L₃(11),L₃(12
- Line(L₃(5),L₃(6),L₃(13),L₃(14
- Line(L₃(7),L₃(8),L₃(15),L₃(16
- R+.0625π→R
- End
Advertisement
Add Comment
Please, Sign In to add comment
