To 1 Make w=1 omark k omark j
Rpt 6 [Rpt 8 [Rpt 30 [width w fd 7 up 3 rt 3 make w=w+1]
Rpt 30 [ sc rc width w fd 7 dn 3 lt 3 make w=w-1] goto k rt 360/8 omark k] goto j
Up 60 omark j] end
Omark m 1 goto m up 180 1
///////////////
rpt 2 [Make a=1000 make t=26 make n=90.1
Make c=.95 make u=3 make w=21
Rpt t [sc rc width w fd a rt n make a=a*c up u make w=w-.1]
Rpt t [sc rc width w fd a rt n make a=a+.5 up u make w=w+2 pu fd 400 pd]
xxxxxxxxxx xx
Rpt 6 [Make a=100 make t=26 make n=90.1
Make c=.95 make u=3 make w=21
Rpt t [sc rc width w fd a rt n make a=a*c up u make w=w-.1]
Rpt t [sc rc width w fd a rt n make a=a+.5 up u make w=w+2 pu fd 400 pd]

=============

Hi Elekah
===make a=160 make u=1
To h rpt 6 [fd a if u=1 [up 60] else [lt 60] ] end
Sc red
Rpt 17 [h up 360/17] 
omark k rpt  60 [goto k pu  rt 13 dn 64 fd 700 pd
Sc rc h goto k up 3 lt 2 omark k]
=====

Do you like my photos?

make a=1
to 1 rpt 30 [ar 360 a up 90 fd 10 dn 90
make a=a+3] end
Omark k Rpt 6 [1 goto k rt 60 omark k]

//////////

/////////////// Elekah 1

make a=70
make n=-9
make c=.9
to m make a=a*c end
to 1 ar 360 a pu ar n a pd end
to 2 al 360 a pu al n a pd end
 to e 1 2 al 182 a 
1 m 2 pu al 182 a pd 1 m m 1 end
omark s rpt 30 [ e goto s up 90 fd 10
dn 90 pd omark s ]

////////////////
;Good for x2
To 1 Make a=1
Rpt 300 [sc rc ar 360 a up 90 fd 1 dn 90
Make a=a+3] end
Omark k Rpt 6 [1 goto k up 60 omark k]

////////////////

;4 side jagged puzzle pyramid VR
make a=50
to r rt 90 omark z up 90 fd 20 rt 90 fd a goto z fd a end
to l lt 90 omark z up 90 fd 20 rt 90 fd a goto z fd a end
to 1 rpt 4 [r l r l r r l] end
to db omark j rpt 8
[1 rt 90 pu fd 20
lt 90 fd -10
pd make a=a-7 up 90 pu fd 25 pd dn 90 ] goto j end
to 4 rpt 4
[db lt 90 pu fd a*3.45
lt 90 fd a*1.2
rt 90 pd make a=50] end

4
Center

///////////////

;3 segment color concen sphere make a=200
make cc=1
rpt 8 [if cc=1 [sc red]
if CC=2 [sc orange ]
If CC=3 [sc yellow]
if cc=4 [sc green]
if cc=5 [sc blue] 
If cc=6 [sc [purple]
make cc=0] make cc=cc+1
omark k rpt 60
[au 180 a
goto k rt 1 omark k]
rt 60 omark k rpt 60
[au 180 a
goto k rt 1 omark k]
rt 60 omark k rpt 60
[au 180 a
goto k rt 1
omark k]
pu up 90 fd
a*.1
dn 90 pd make a=a-15] 
 
///////////////

Make a=160 make u=1
To h rpt 6 [fd a if u=1 [up 60] else [lt 60] ] end
Sc red
Rpt 17 [h up 360/17] 
omark k rpt  60 [goto k pu  rt 13 dn 64 fd 700 pd
Sc rc h goto k up 3 lt 2 omark k]

///////////////
Make c=1
Rpt 8 [if c=2 [sc red] if c=3 [sc orange] else [up 3] fd 200 rt 96.3 make c=c+1]
Center
////////////////

;doedeca with shafts layers
make a=50
make b=1.5 make cl=1
make v=0  make dd=12
make ff=4.3 make ll=3.9
rpt 6 [if cl=1 [make dd=12 make ff=4.3 make ll=3.9] if cl=2 [make dd=6 make ff=3.8 make ll=3.1] if cl=3 [make df=5 make ff=2.9 make ll=2.9 make cl=0] to 1 make n=360/dd lt 1.5
pu fd a rt n pd 
rpt 6 [fd a rt n fd a lt v
fd a*b fd -a*b rt v rt n] end
to 4 
omark k rpt 8 [1 goto k
pu fd a*ff
pd omark k ] end
to pl
omark j rpt 8 [4 goto j
pu lt 90 fd a*ll
rt 90 fd a*2
pd omark j] end
omark m pl goto m
up 90 pu fd 300 dn 90 lt 90 fd 500 rt 90 pd omark m make cl=cl+1]
center

;360/6 fd a*3.8  fd a*3.1
;360/5  2.9  2.9 
;360/12 4.3  3.9

////////////////

;tappe sq tilt sq triangles
make a=100
make b=110

to 1 rpt 3 [fd a lt 90 fd b 
lt 90 fd a lt 90 fd b lt 90
pu fd a rt 120 pd] end

rt 32 
to 2 omark k rpt 12 [1 pu fd a lt 90 fd b/2
rt 60 fd a*1.1
rt 30 pd ] goto k end
rpt 12 [
2 pu rt 60 fd a*2.7
lt 60 fd -a*1.3
pd ]
sly 200 
center

////////////////

;draw 3 points 2 sph 1 spi cl
omark 1
pu fd 85 omark 2
goto 1 lt 135 fd 120 pd omark 3
make a=325
make b=400
make c=150
goto 1
rpt 1120 [sc orange ar 360/20 a omark 1 goto 2 pause .01

sc purple al 360/15 b dn random 360 omark 2 goto 3

sc magenta au 360/125 c*5 up 7 lt 3 omark 3 goto 1
up random 360]

////////////// GOOD /
;boxes of curls as checkerbord
to 1
make a=50
fd a ar 97 a/10 al 40
a al 170 a*.3 al 30 a*1.2
rt 139 fd a*.7
make a=110
ar 100 a/10 al 40
a al 170 a*.3 al 30 a*1.2
rt 139 fd a*.5
make a=50
ar 97 a/10 al 40
a al 170 a*.3 al 30 a*1.2
rt 139 fd a*.7 fd a*.6 end

to 2 rpt 4 [1 rt 99 ] end
to c
omark k 2 goto k up 90 2 
goto k fd a*5.8
up 90 2 fd a*5.8 up 90 2
rl 90 2 fd a*5.8 dn 90 
fd a*5.4 dn 90 2 end make t=6
to 6 omark j rpt t [c goto j pu fd a*11.6 omark j pd ] end
sly 200 omark m 6 goto m up 90
pu fd 11.6 pd dn 90 omark m 
omark j omark k make t=5
6

///////////////

;7 sided with star spiral
make a=100
make b=a*2.25
make n=103
make x=0
to 1 rpt 7
[ fd a rt n fd b
fd -b lt n rt 360/7] end

;rpt 7 [1 rt 360/7]

rpt 10 [rpt 7 [1 ar 360/7 x
up 90 pu fd 35 pd dn 90 
make x=x+10]
center

//////////////
;megshift match petal shape
make a=100
make d=35
to 1
fd a lt 30
fd a rt d fd a rt d fd a
rt d fd a rt 105
fd a lt 30 
omark m 
fd a rt d fd a rt d fd a
rt d fd a end
to 2
rpt 11
 [1 rt 72]
goto m fd a*.25 rt 207 rpt 5
[1 rt 182 fd a
lt 38 
1 fd -a 
rt 98
fd -a up 180 lt 265
1 lt 90 up 180 fd a*1.8
lt 62 fd -a*1.3] end
make cc=1
omark k rpt 120 [if cc=1 [sc [99 77 0]] if cc=14 [sc [0 89 99]] if cc=21  [sc [50 0 99]] if cc=28 [make cc=0] make cc=cc+1 2 goto k up 90 fd 4 dn 90 omark k 
make a=a-1 ]
center

///////////////