Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- AxesOff
- 0[sto][theta]
- Lbl A
- For(A,1,8,1)
- L1(A)*cos([theta][deg])-L2(A)*sin([theta][deg])[sto]L5(A)
- L1(A)*sin([theta][deg])+L2(A)*cos([theta][deg])[sto]L6(A)
- End
- ClrDraw
- For(A,1,6,1)
- Line(L5(L3(A)),L6(L3(A)),L5(L4(A)),L6(L4(A)))
- End
- [theta]+22.5[sto][theta]
- Goto A
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
