290 likes | 434 Views
Acles 8 Techno Art. Valentina Illingworth. Logo 6. Logo tri. tri 200 tri 100 tri 50 tri 300 tri 250 t ri 150. Logo hextri. hextri 150 hextri 100 hextri 29 hextri 130. Logo poly. poly 20 poly 15 poly 7 poly 10. Logo star. star 10 star 7 star 5. Acles Techno Art 8.
E N D
Acles 8 Techno Art Valentina Illingworth Logo 6
Logo tri tri 200 tri 100 tri 50 tri 300 tri 250 tri 150
Logo hextri hextri 150 hextri 100 hextri 29 hextri 130
Logo poly poly 20 poly 15 poly 7 poly 10
Logo star star 10 star 7 star 5
Acles Techno Art 8 ValentinaIllingworth Logo 5
RCLINES TO RCLINES REPEAT 200 [ SETPC RANDOM 15 SETXY RANDOM 2000 RANDOM 2000]END
RCCIRCLES TO RCCIRCLES REPEAT 500 [ SETPC RANDOM 15 PU SETXY RANDOM 2000 RANDOM 2000 PD CIRCLE RANDOM 100 ] END
RCDISK TO RCDISK CIRCLE RANDOM 200 SETFC RANDOM 15 FILL END
TO RCCIRCLES • REPEAT 500 [ • SETPC RANDOM 15 • PU SETXY RANDOM 2000 RANDOM 2000 PD • CIRCLE] • END • TO RCDISK • CIRCLE RANDOM 200 • SETFC RANDOM 15 FILL • END
Acles Techno Art 8 Valentina Illingworth Logo 4
RHEXTRI TO RTRI MAKE “SIZE RANDOM 200REPEAT 3 [FD :SIZE RT 120]END
RPOLY TO RPOLYMAKE “SIDES 3+RANDOM 10 REPEAT :SIDES [FD 50 RT 360/:SIDES]END
RSTAR TO RSTARMAKE “SIDES 3+RANDOM 10 MAKE "ANG 360/:SIDESREPEAT :SIDES [FD 50 RT 2*:ANG FD 50 LT :ANG]END
VALENTINA ILLINGWORTH Techno art 8nb Logo 7
HOUSE REPEAT 4 ( FD 100 RT 90 ) REPEAT 3 ( FD 100 RT 120 )
Acles8 Techno Art Valentina Illingworth Logo 1
Logo 1 REPEAT 4 [FD 100 RT 90]
Logo 2 REPEAT 3 [FD 100 RT 120] REPEAT 4 [FD 100 RT 90] REPEAT 5 [FD 100 RT 72]
Logo 3 CS REPEAT 100 [FD 10 RT REPCOUNT]
Logo 4 CS REPEAT 100 [FD 10 RT REPCOUNT]
Logo 5 CS REPEAT 100 [FD 10 RT REPCOUNT] CS REPEAT 1000 [FD 10 RT REPCOUNT]
Logo 6 REPEAT 100 [SETXY RANDOM 200 RANDOM 200]
Valentinaillingworth Techno art 8 Logo 8
Logo 8 - triangle • TO SIDEBIT :SIZE :ANGLE • FD :SIZE • LT :ANGLE • WAIT 10 • SIDEBIT :SIZE+5 :ANGLE • END • TO SIDEBIT1 :SIZE :ANGLE • FD :SIZE • LT :ANGLE • END • TO SIDEBIT2 :SIZE :ANGLE • FD :SIZE • LT :ANGLE • WAIT 10 • SIDEBIT :SIZE :ANGLE • END
Spiral TO SIDEBIT :SIZE :ANGLE FD :SIZE LT :ANGLE END TO SPIRAL :SIZE :ANGLE :INCREMENT FD :SIZE RT :ANGLE wait 5 SPIRAL (:SIZE+:INCREMENT) :ANGLE :INCREMENT END