Return to Answer

Commonmark migration

edited Jun 17, 2020 at 9:04

LibreLogo, 121 bytes

LibreLogo produces a vector graphic that can be exported to SVG.

Code:

x=90 pu fc 0 repeat 64[ y=repcount if y%2=0[ square 1 ]if y%16=0[ rt x fd 1 rt x ][ if y%8=0[ lt x fd 1 lt x ][ fd 1 ] ]]

Result:

Result (Expanded):

Explanation:

x = 90 ; x = 90° pu ; Pen Up fc 0 ; Fill Color = #000 repeat 64 [ ; Repeat 64 Times y = repcount ; y = Loop Index if y % 2 = 0 [ square 1 ; Draw 1pt Square ] if y % 16 = 0 [ rt x ; Turn Right 90° fd 1 ; Move Forward 1pt rt x ; Turn Right 90° ] [ if y % 8 = 0 [ lt x ; Turn Left 90° fd 1 ; Move Forward 1pt lt x ; Turn Left 90° ] [ fd 1 ; Move Forward 1pt ] ] ]

#LibreLogo, 121 bytes

LibreLogo produces a vector graphic that can be exported to SVG.

Code:

x=90 pu fc 0 repeat 64[ y=repcount if y%2=0[ square 1 ]if y%16=0[ rt x fd 1 rt x ][ if y%8=0[ lt x fd 1 lt x ][ fd 1 ] ]]

Result:

Result (Expanded):

Explanation:

x = 90 ; x = 90° pu ; Pen Up fc 0 ; Fill Color = #000 repeat 64 [ ; Repeat 64 Times y = repcount ; y = Loop Index if y % 2 = 0 [ square 1 ; Draw 1pt Square ] if y % 16 = 0 [ rt x ; Turn Right 90° fd 1 ; Move Forward 1pt rt x ; Turn Right 90° ] [ if y % 8 = 0 [ lt x ; Turn Left 90° fd 1 ; Move Forward 1pt lt x ; Turn Left 90° ] [ fd 1 ; Move Forward 1pt ] ] ]

LibreLogo, 121 bytes

LibreLogo produces a vector graphic that can be exported to SVG.

Code:

x=90 pu fc 0 repeat 64[ y=repcount if y%2=0[ square 1 ]if y%16=0[ rt x fd 1 rt x ][ if y%8=0[ lt x fd 1 lt x ][ fd 1 ] ]]

Result:

Result (Expanded):

Explanation:

x = 90 ; x = 90° pu ; Pen Up fc 0 ; Fill Color = #000 repeat 64 [ ; Repeat 64 Times y = repcount ; y = Loop Index if y % 2 = 0 [ square 1 ; Draw 1pt Square ] if y % 16 = 0 [ rt x ; Turn Right 90° fd 1 ; Move Forward 1pt rt x ; Turn Right 90° ] [ if y % 8 = 0 [ lt x ; Turn Left 90° fd 1 ; Move Forward 1pt lt x ; Turn Left 90° ] [ fd 1 ; Move Forward 1pt ] ] ]

Source Link

answered Oct 11, 2017 at 15:19

Grant Miller

#LibreLogo, 121 bytes

LibreLogo produces a vector graphic that can be exported to SVG.

Code:

x=90 pu fc 0 repeat 64[ y=repcount if y%2=0[ square 1 ]if y%16=0[ rt x fd 1 rt x ][ if y%8=0[ lt x fd 1 lt x ][ fd 1 ] ]]

Result:

Result (Expanded):

Explanation:

x = 90 ; x = 90° pu ; Pen Up fc 0 ; Fill Color = #000 repeat 64 [ ; Repeat 64 Times y = repcount ; y = Loop Index if y % 2 = 0 [ square 1 ; Draw 1pt Square ] if y % 16 = 0 [ rt x ; Turn Right 90° fd 1 ; Move Forward 1pt rt x ; Turn Right 90° ] [ if y % 8 = 0 [ lt x ; Turn Left 90° fd 1 ; Move Forward 1pt lt x ; Turn Left 90° ] [ fd 1 ; Move Forward 1pt ] ] ]