Found this image on Reddit: http://i.imgur.com/arBlV.png
Applied:
47/8→Xmax
-Ans→Xmin
2+Ans→Ymin
-Ans→Ymax
DelVar ADelVar BDelVar θPrompt X
ClrDraw
For(C,0,19
sum(int({4,2}fPart(.2C+{.65,.2→D
A+Anscos(θ°→E
B+Dsin(θ°
Line(A,B,E,Ans
Ans→B
E→A
θ-X+2Xint(2fPart(.2C→θ
End
Went further:
47/8→Xmax
-Ans→Xmin
2+Ans→Ymin
-Ans→Ymax
DelVar ADelVar BDelVar θPrompt X,P,Q,R,S
ClrDraw
For(C,0,19
sum(int({4,2}fPart(.2(CP+Q)+{.65,.2→D
A+Anscos(θ°→E
B+Dsin(θ°
Line(A,B,E,Ans
Ans→B
E→A
θ-RX+SXint(2fPart(.2C→θ
End
P and Q both range from 0–4.
The periods of R and S depend on X.
Right-Facing Swastika: 90, 1, 0, 1, 2
Left-Facing Swastika: 90, 1, 0, 3, 2
Star of David: 120, 1, 0, 1, 2
Triangle Jigsaw: 120, 1, 4, 1, 2
Triangle Tiling: 120, 0, 0, 2, 1
Rectangle Tiling: 90, 1, 2, 3, 1
...
Back to boredom...
Applied:
47/8→Xmax
-Ans→Xmin
2+Ans→Ymin
-Ans→Ymax
DelVar ADelVar BDelVar θPrompt X
ClrDraw
For(C,0,19
sum(int({4,2}fPart(.2C+{.65,.2→D
A+Anscos(θ°→E
B+Dsin(θ°
Line(A,B,E,Ans
Ans→B
E→A
θ-X+2Xint(2fPart(.2C→θ
End
Went further:
47/8→Xmax
-Ans→Xmin
2+Ans→Ymin
-Ans→Ymax
DelVar ADelVar BDelVar θPrompt X,P,Q,R,S
ClrDraw
For(C,0,19
sum(int({4,2}fPart(.2(CP+Q)+{.65,.2→D
A+Anscos(θ°→E
B+Dsin(θ°
Line(A,B,E,Ans
Ans→B
E→A
θ-RX+SXint(2fPart(.2C→θ
End
P and Q both range from 0–4.
The periods of R and S depend on X.
Right-Facing Swastika: 90, 1, 0, 1, 2
Left-Facing Swastika: 90, 1, 0, 3, 2
Star of David: 120, 1, 0, 1, 2
Triangle Jigsaw: 120, 1, 4, 1, 2
Triangle Tiling: 120, 0, 0, 2, 1
Rectangle Tiling: 90, 1, 2, 3, 1
...
Back to boredom...