Straat

to auto
pu setxy 330 -140
pd repeat 14 [ rt 10 fd 5 ]
lt 45
rt 5
repeat 11 [ fd 2 rt 7 ]
rt 93 fd 66
bk 10
rt 90
repeat 24 [ rt 15 fd 2 ]
rt 90
fd 1
pe fd 14
pennormal
fd 12
lt 90
repeat 24 [ rt 15 fd 2 ]
rt 90 fd 1
pe fd 14
pennormal
pu
bk 15
lt 90
fd 10
pd fd 10
rt 90
repeat 17 [rt 5 fd 1 ]
rt 95
fd 12
pu fd 15
rt 90
pu fd 1 pd fd 10
lt 90
repeat 17 [lt 5 fd 1 ]
rt 265 fd 12
rt 90

pu
bk 5
rt 90
fd 3
setfloodcolor [ 255 255 176 ]
fill
bk 25
fill
fd 15
setfloodcolor [ 183 0 0 ]
fill

fd 10
rt 90
bk 15
setfloodcolor [ 63 63 63 ]
fill
fd 1
fill
fd 1
fill

rt 90
fd 24
lt 90
fill
bk 1
fill
bk 1
fill
ht
pennormal
pu setxy 395 -480
rt 90
setlabelfont [[tahoma] -10 0 0 400 0 0 0 0 3 2 1 18] 
label [2006 Laura]
pennormal
end

to beplanting
rt 60
pu
fd 300
lt 90 fd 100
lt 90
bk 50
pd struik
pu bk 42
rt 90
pd struik
pu fd 700
rt 90 pd struik
pu fd 50
rt 90
pd struik
pu
bk 35
rt 90
fd 50
pd boom02
pu
lt 90
fd 730
rt 90
rt 180
fd 10
lt 90
fd 5
rt 90
fd 10
fd 10
pd boom03
rt 75
pu
fd 20
fd 5
lt 90
fd 5
rt 90
pd fd 3
fd 2
bk 5
pu lt 90 fd 5
rt 90
pd fd 20
fd 1
pennormal
end

to beplantingkleuren

setfloodcolor [ 0 174 0 ]
fd 10
rt 90
fd 200
fill bk 40 fill
fd 54
lt 90 fd 20
setfloodcolor [ 157 79 0 ] fill
fd 20
setfloodcolor [ 63 125 0 ] fill
lt 90
fd 730 fill
fd 8 lt 90 fd 15
setfloodcolor [ 83 41 0 ] fill
lt 90 fd 10 rt 90 fd 20
setfloodcolor [ 0 174 0 ] fill
rt 90 fd 40 fill
lt 90 fd 150
setfloodcolor [ 0 64 0 ] fill
lt 90 fd 10
lt 90 bk 20
setfloodcolor [ 157 79 0 ] fill

end

to bomen

pu
lt 20
rt 2
lt 90
fd 100
fd 50
rt 90
bk 55
pd

repeat 15 [fd 2 rt 10 ]
lt 90
repeat 15 [fd 2 rt 10 ]
lt 90
repeat 15 [fd 2 rt 10 ]
lt 90
repeat 15 [fd 2 rt 10 ]
lt 90
repeat 15 [fd 2 rt 10 ]
lt 90
repeat 15 [fd 2 rt 10 ]


pu rt 90
fd 20
fd 10
fd 5
fd 3
lt 90
fd 5
fd 1
fd 5
rt 90
pd fd 20
fd 20
fd 20
lt 90
fd 10
lt 90
fd 58
pu
fd 101
fd 100
rt 90
fd 10
fd 10
lt 90
boom
pu
rt 90
fd 20
fd 50
rt 90
rt 180
fd 40
fd 80
boom

pu
fd 10
fd 4
rt 90
bk 20
bk 4
bk 1
pu fd 20
fd 20
fd 2
fd 1
fd 1
pennormal

pu fd 70
lt 90 fd 60
boom

pu bk 21
lt 90
fd 1
pu fd 9
pennormal pu
end

to boom
repeat 15 [fd 2 rt 10 ]
lt 90
repeat 15 [fd 2 rt 10 ]
lt 90
repeat 15 [fd 2 rt 10 ]
lt 90
repeat 15 [fd 2 rt 10 ]
lt 90
repeat 15 [fd 2 rt 10 ]
lt 90
repeat 15 [fd 2 rt 10 ]


pu rt 90
fd 20
fd 10
fd 5
fd 3
lt 90
fd 5
fd 1
fd 5
rt 90
pu fd 20
fd 20
fd 20
lt 90
fd 10
lt 90
fd 59
pennormal
end

to boom02
repeat 18 [ rt 20 fd 5 ]

pu bk 30
fd 10
fd 2
fd 2
rt 90
fd 10
fd 1
rt 90
pu fd 1 pd fd 9
fd 10
fd 1
bk 20 pu bk 1
lt 90
pu fd 5
fd 1
rt 90
pu fd 1 pd fd 8
pennormal
end

to boom03
repeat 5 [ rt 25 fd 2 ]
lt 90
repeat 5 [ rt 25 fd 2 ]
lt 90
repeat 5 [ rt 25 fd 2 ]
lt 90
repeat 5 [ rt 25 fd 2 ]
lt 90
repeat 5 [ rt 25 fd 2 ]
lt 90
repeat 5 [ rt 25 fd 2 ]
lt 90
repeat 5 [ rt 25 fd 2 ]
lt 90
repeat 5 [ rt 25 fd 2 ]
lt 90
repeat 5 [ rt 25 fd 2 ]
lt 90
repeat 6 [ rt 25 fd 2 ]
pennormal
end

to caravan
fd 20
lt 30
fd 5
lt 60
fd 40
lt 30
fd 15
lt 20
fd 20
lt 40
fd 4
rt 90
fd 15
rt 180
fd 50
lt 90
repeat 9 [fd 2.5 rt 20]
fd 2.5
lt 90
fd 19
lt 90
fd 3
end

to flat
flat01
flat02
flatraam01
flatraam02
end

to flat01
pu
lt 19
lt 33
fd 57
pd
fd 64
lt 147
fd 199
rt 90
fd 101
rt 90 
fd 199
rt 90
fd 101
end

to flat02
rt 90
fd 101
rt 90
fd 1
pe
fd 100
pennormal
rt 90
fd 101
rt 90
fd 101
rt 57
pu
fd 64
rt 33
pd
fd 98
rt 36
fd 59
rt 144
pu
fd 98
rt 90
fd 1
pe
fd 34
pennormal
end

to flatkleuren
setfloodcolor [ 221 221 221 ]
setxy 100 50
fill
setxy 50 50
fill
setxy 50 60
setfloodcolor [ 255 255 176 ]
fill
setxy 50 30
fill
sety 0
fill
sety -30
fill
sety -60
fill
setxy 100 30
fill
sety 65
fill
sety 0
fill
sety -40
fill
sety -80
fill
end

to flatraam01
pu
rt 180
fd 35
rt 90
fd 101
lt 90
fd 20
lt 90
fd 18
pd
fd 18
pu
fd 18
pd fd 18
pu fd 18
pd fd 18
pu fd 18
pd fd 18
pu fd 18
pd fd 18
pu fd 19
rt 90
fd 61
rt 90
fd 19
pd fd 18
pu fd 18
pd fd 18
pu fd 18
pd fd 18
pu fd 18
pd fd 18
pu fd 18
pd fd 18
rt 90
pd fd 61
rt 90 fd 18
rt 90 fd 61 lt 90 pu fd 18
pd lt 90 fd 61 rt 90 fd 18 rt 90 fd 61 lt 90 pu fd 18
pd lt 90 fd 61 rt 90 fd 18 rt 90 fd 61 lt 90 pu fd 18
pd lt 90 fd 61 rt 90 fd 18 rt 90 fd 61 lt 90 pu fd 18
pd lt 90 fd 61 rt 90 fd 18 rt 90 fd 61 lt 90 pu fd 19
end

to flatraam02
pu
lt 90
fd 81
fd 8
lt 90
fd 19
pd fd 18 pu fd 18 pd fd 18 pu fd 18 pd fd 18
pu fd 18 pd fd 18 pu fd 18 pd fd 18
rt 146
fd 38
rt 34
fd 103
rt 38
pd
fd 34
pu
rt 142
fd 17
rt 46
pd
fd 30
pu
bk 30
lt 46
fd 18
rt 54
pd
fd 26
pu
bk 26
lt 54
fd 18
rt 63
pd fd 23
pu bk 23
lt 63
fd 18
rt 78
pd fd 21
pu bk 21
lt 78 fd 18
rt 100
pd fd 21 pu bk 21 lt 100 fd 18
rt 120
pd fd 24
pu bk 24 lt 120 fd 18

rt 130
pd fd 27
pu bk 27 lt 130 fd 18
rt 138
pd fd 31

rt 42
fd 1
pe 
fd 12
pennormal
fd 13
pe
fd 9
pennormal
fd 11
pe
fd 11
pennormal
fd 14
pe
fd 13
pennormal
end

to gebouw
gebouw01
gebouwraam01
gebouwraam02
gebouwraam03
end

to gebouw01
pu
lt 90
fd 34
rt 90
rt 180
fd 42
rt 90
fd 3
lt 90
lt 33
fd 260
pd fd 229
lt 57
fd 199
lt 90
fd 182
lt 90
fd 199
lt 90 fd 182
bk 182
rt 131
fd 165
lt 131
fd 100
bk 100
lt 90
fd 108
rt 27
fd 241
rt 63
fd 90
rt 90 pd fd 199
rt 51
fd 196
end

to gebouwkleuren
setxy 200 -128
setfloodcolor [ 128 64 64 ]
fill
setxy 200 -200
fill
setxy 300 -230
fill
setxy 300 -320
fill
setxy 255 -320
fill
setxy 235 -325
fill
setfloodcolor [ 255 255 176 ]
fill
setxy 235 -240
fill
setxy 310 -280
fill
setxy 310 -370
fill

setxy 160 -160
fill
setxy 160 -220
fill
setxy 200 -270
fill
setfloodcolor [ 81 40 0 ]
setxy 200 -290
setfloodcolor [ 166 83 0 ]
fill
setfloodcolor [ 81 40 0 ]
setxy 200 -300
fill
setxy 300 -340
fill
setxy 300 -290
fill

end

to gebouwraam01
pu
bk 196
rt 39
fd 20
rt 90
fd 20
pd fd 159
lt 90 fd 51 lt 90 fd 159 lt 90 fd 51
pu bk 10
lt 90 fd 10
pd fd 139 lt 90 fd 31 lt 90 fd 139 lt 90 fd 31
pu
rt 90
fd 30
lt 90
fd 20 fd 91
fd 10
rt 180
fd 20
rt 90
fd 20
pd fd 159
lt 90 fd 51 lt 90 fd 159 lt 90 fd 51
pu bk 10
lt 90 fd 10
pd fd 139 lt 90 fd 31 lt 90 fd 139 lt 90 fd 31
end

to gebouwraam02
pu
bk 31 bk 10 bk 20
rt 90 fd 30
lt 90


pu
fd 20



rt 142
pu
fd 17
pd fd 61
pu fd 16
pd fd 37
pu fd 10
pd fd 47
lt 142
fd 25
lt 34
fd 53
lt 146
fd 32
rt 142
pu fd 9
rt  38
fd 2
pd fd 47

pu bk 47
lt 39

fd 52
rt 38
pd fd 39
lt 34
fd 63
lt 145
fd 44

pu
lt 38
fd 75
lt 142
pd fd 55

pennormal
pu
bk 20
bk 10
rt 90
fd 10
rt 90
pd
repeat 12 [ rt 30 fd 1 ]

pu
fd 5
lt 90
bk 5
rt 90
fd 10
bk 10
pd fd 10
fd 5
fd 2
lt 38
fd 23
lt 142
fd 17
fd 2
lt 38
fd 24

end

to gebouwraam03
pu
lt 142
fd 110
rt 90
fd 62
rt 90
fd 52

fd 20
rt 135

fd 14
pd fd 66
pu fd 29
pd fd 53
lt 135

fd 27
lt 40
fd 58


lt 140
fd 35
pu rt 135
pu fd 30
rt 45
pu fd 3 pd fd 30
lt 40
fd 74
lt 140
fd 43
pennormal


end

to gras
setfloodcolor [ 111 221 0 ] bk 100 fill
fd 350
fill
lt 90 fd 400
fill
bk 50
lt 90 fd 110
fill
fd 176
fill
end

to horizon
pu
setpencolor [ 111 221 0 ]
rt 90
fd 500
lt 90
pd
fd 499 pu fd 1 pd
rt 180
fd 1000
rt 180
fd 499 pu fd 1
pennormal
end

to huis
huis01
huisraam01
huis02
huisraam02
huisraam03
end

to huis01
lt 46
pu
fd 360
rt 225
fd 11
lt 90
fd 1
rt 90

rt 31 fd 108 pd fd 256

rt 150
fd 108
lt 35
fd 121
lt 110
fd 121
lt 35

fd 108
lt 90
fd 139

end

to huis02
pu
fd 30
fd 20
fd 5
fd 2
rt 90
fd 10
fd 2
fd 1
lt 90
bk 1
fd 1
rt 67
pd fd 197

pu
fd 25
lt 67
bk 72
lt 90
fd 6
rt 90

pd fd 37
lt 35
fd 32

pu
bk 32
lt 145
rt 145
lt 104.5
pd fd 198
end

to huiskleuren
setfloodcolor [ 255 128 64 ]
bk 3 rt 90 fd 60 fill
rt 90 fd 12 fill
setfloodcolor [ 81 40 0 ]
bk 17 fill
bk 51
lt 90 fd 5 rt 90 fill
lt 90
fd 60
rt 90
fd 5
fill
bk 21
fill
lt 90 fd 60
rt 90
fd 2
fill
fd 100
rt 90 fd 50
lt 90
fill
setfloodcolor [ 255 255 176 ]
fd 1
fd 2
fill
bk 50
fill
bk 50
bk 20
fill
fd 10
fd 20
rt 90
bk 50
fill
fd 100
rt 90 fd 10
fill
bk 40
fill
setfloodcolor [ 166 83 0 ]
bk 30
fd 3
fd 2
fd 2
fd 2
lt 90
fd 10
fd 5
fd 2
fill
bk 150
setfloodcolor [ 113 56 0 ] fill
end

to huisraam01
pu
bk 13
lt 90
pd fd 64
lt 90
fd 34
lt 90
fd 64
pu
bk 59
lt 90
fd 5
pd fd 24
rt 90 fd 30
rt 90 fd 24
rt 90 fd 30
pu
bk 40
rt 90
fd 24
lt 90
fd 2
fd 5
lt 90
lt 90
rt 180
pd repeat 12 [ rt 30 fd 1 ]
pu
lt 90
fd 30
fd 1
fd 15
lt 90
fd 30
bk 5
bk 2
bk 17
pd bk 47
rt 90 fd 57
lt 90 fd 47
lt 90 fd 57
pu fd 17 fd 34 fd 13
lt 90
fd 64
bk 4
lt 90
fd 8
pd fd 53.5
pu fd 17
pd fd 53.5
rt 90

fd 25
rt 90 fd 53.5
rt 90 fd 25
pu lt 90 fd 17 lt 90 pd fd 25 rt 90 fd 53.5 rt 90 fd 25

pu
rt 90
fd 60
fd 30
rt 90
fd 50
fd 20
rt 90 fd 5
fd 10
lt 90
pd repeat 18 [ rt 20 fd 5 ]
end

to huisraam02
pu lt 41
fd 4
lt 90 fd 17
lt 52
pd fd 174
rt 142
fd 20

rt 33
fd 196
rt 147

fd 48
pu rt 90
fd 4
lt 90
bk 4
rt 37.5
pd fd 165
rt 142.5
fd 10

rt 34
fd 180
rt 146
fd 30

end

to huisraam03
pu
lt 90 fd 29
rt 90
bk 1
lt 90 fd 4
pd fd 45.5
lt 89 fd 17
lt 91 fd 45.5 lt 90 fd 17

lt .5
rt 2
rt 90
rt 180
lt 1
fd 20
pu
fd 60
bk 20
fd 10
bk 5
fd 2
fd 4
pd fd 45.5 lt 90 fd 17
lt 90 fd 45.5 lt 90 fd 17
pu
bk 30
bk 20
bk 30
bk 1
rt 90
fd 10
fd 5
fd 5
bk 1
bk 4
lt 90 fd 4
pd fd 39
lt 90 fd 49 lt 90 fd 39 lt 90 fd 49

pu lt 90 fd 50
fd 50
fd 50
bk 20
bk 10
bk 4
fd 10
lt 90
fd 10
fd 1
rt 90
pd repeat 14 [ rt 27 fd 5 ]

end

to intro
ht
setscreencolor [ 255 168 168 ]
rand pu home ht
setpensize [ 2 2 ]
setpencolor [ 70 0 35 ]
setlabelfont [[Palatino Linotype] -30 0 0 400 0 0 0 0 3 2 1 18] 
setxy -80 -180
pu setxy -190 150
rt 90
label [Praktische Opdracht Informatica]
pu setxy -60 100
setlabelfont [[Palatino Linotype] -24 0 0 400 0 0 0 0 3 2 1 18]
label [Gemaakt door:]
pu setxy -50 60
label [Laura ]

setxy -250 -250
setpensize [ 70 70 ]
setpencolor [0 0 0]
pd setxy 250 -250
pu setpensize [ 2 2 ]
setlabelfont [[Palatino Linotype] -18 0 0 400 0 0 0 0 3 2 1 18]
setxy -60 -190
setpencolor [ 70 0 35 ]
label [Even geduld a.u.b.]
setxy -230 -250
setpencolor [255 255 255]
setpensize [ 1 1 ]
lt 90
bk 20
pd fd 40
repeat 460  [ rt 180 fd 40 lt 90 fd 1 lt 90 fd 40 repeat 600 [ rt 180 fd 40]]
pu cs
setscreencolor [ 255 255 255]
end

to kleuren
pu
bk 300
rt 90
fd 650
setfloodcolor [ 249 249 0 ] 
fill
pu bk 100
setfloodcolor [ 54 199 241 ] 
fill
wegkleuren
huiskleuren
gras
beplantingkleuren
gebouwkleuren
flatkleuren
pennormal
ht
end

to rand
ht
pu fd 500
rt 90 
pd fd 500
rt 90 fd 1000
rt 90 fd 1000
rt 90 fd 1000
rt 90 fd 500
end

to straat
intro
rand
horizon
weg
flat
gebouw
huis
bomen
weg2
wolken
vogel1
zon
vogel2
beplanting
kleuren
auto
end

to struik
lt 90 repeat 10 [ rt 15 fd 2 ]
lt 90 repeat 10 [ rt 15 fd 2 ]
lt 90 repeat 8 [ rt 15 fd 2 ]
lt 90 repeat 10 [ rt 15 fd 2 ]
lt 90 repeat 6 [ rt 15 fd 2 ]
rt 60 fd 34
pennormal
end

to vogel
setpensize [ 3 3 ]
rt 45
repeat 18 [ rt 5 fd 5 ]
lt 75
repeat 18 [ rt 5 fd 5 ]
pennormal
end

to vogel1
pu
rt 90
fd 200
rt 90 fd 100
lt 90
pd vogel
end

to vogel2
pu
lt 45
bk 200
rt 90
fd 200
bk 50
lt 90
bk 10
bk 20
lt 30
pd vogel
end

to weg
weg01
weg02
weg03
weg04
weg05
end

to weg01
rt 65
fd 496
end

to weg02
rt 115 pu 
fd 47
rt 70 pd
fd 478
end

to weg03
rt 200
rt 25
fd 496
end

to weg04
lt 115
pu fd 47
lt 70
pd fd 479
end

to weg05
rt 160
lt 19
pd fd 476
pu bk 476
rt 38
pd fd 476
pu bk 476
end

to weg06
pu bk 100
bk 50
bk 10
fd 2
fd 1
lt 65
fd 496
pd fd 56

pu
bk 552
lt 25
rt 19.9
pu fd 478
pd fd 54

pu bk 532
lt .9
fd 476
pd fd 53

pu bk 529
lt 19
lt 19
fd 476
pd fd 53

pu bk 529
lt .9
fd 476
pd fd 56

pu bk 532
lt 70.1
rt 64.9
fd 496
pd fd 56
pu bk 552

end

to weg07
pu
fd 120
lt 64.9
pd fd 449
rt 90
pu fd 50
rt 90
pd fd 173
pu fd 185
pd fd 68

pu lt 90
fd 127

rt 90
rt 180
fd 59
pd fd 52

rt 55
pu fd 41
lt 55
rt 180
pd fd 59


end

to weg08
pu
fd 300
lt 90
fd 20
rt 90
fd 8
pd fd 341
lt 90
fd 34
lt 90
fd 327

pu
bk 30
rt 90
bk 58
rt 90
bk 9

lt 58

pd fd 30

pu
bk 30

rt 58
fd 34
lt 52

pd fd 30
pu lt 128

fd 1
pe fd 36
pennormal
end

to weg2
weg06
weg07
weg08
end

to wegkleuren
bk 183
lt 90
fd 210
fd 10
setfloodcolor [ 0 0 0 ]
fill
bk 10
wegstrepen
lt 90 fd 160
setfloodcolor [ 192 192 192 ]
fill
fd 10 fill
lt 90
fd 150
fill
fd 185
fill


lt 90
fd 100
fd 150
bk 50
bk 30
lt 90
bk 100
bk 10
bk 10
lt 90 fd 4 rt 90
fd 20
bk 1
bk 1
fill
lt 90 fd 1 rt 90
fd 2
fill
lt 90 fd 1 rt 90
fd 2
fill
lt 90 fd 1 rt 90
fd 3
fill
bk 10
bk 10
bk 10
rt 90 fd 9
rt 90
rt 180
fd 10
fd 10
bk 2
bk 1
fill
rt 90 fd 1 lt 90 fd 2
fill
rt 90 fd 1 lt 90 fd 2
fd 1
fill
rt 90 fd 1 lt 90 fd 2
fill
fd 100
bk 50
fd 5
rt 90
fd 20
bk 3
fd 1
lt 90
bk 1
fill
rt 90 fd 1 lt 90 fd 3
fill
rt 90 fd 1 lt 90 fd 3
fill
rt 90 fd 1 lt 90 fd 3
fill
rt 90 fd 1 lt 90 fd 2
fill
rt 90 fd 1 lt 90 fd 3
fill
rt 90 fd 1 lt 90 fd 3
fill
rt 90 fd 1 lt 90 fd 3
fill
rt 90 fd 1 lt 90 fd 3
fill
rt 90 fd 1 lt 90 fd 3
fill
rt 90 fd 1 lt 90 fd 3
fill
rt 90 fd 1 lt 90 fd 3
fill
rt 90 fd 1 lt 90 fd 3
fill
rt 90 fd 1 lt 90 fd 3
fill
rt 90 fd 1 lt 90 fd 3
bk 1
fill
rt 90 fd 1 lt 90 fd 3
fill
rt 90 fd 1 lt 90 fd 3
fill
rt 90 fd 1 lt 90 fd 3
fill
rt 90 fd 1 lt 90 fd 3
fill
rt 90 fd 1 lt 90 fd 3
fill
rt 90 fd 1 lt 90 fd 3
fill
lt 90
fd 100
bk 30
fd 9
rt 90
bk 20
fill
lt 90  fd 4 rt 90 
fd 8
fd 3
fill
lt 90 fd 1 rt 90 fd 3
fill
lt 90 fd 1 rt 90 fd 3
fill
lt 90 fd 1 rt 90 fd 3
fill
lt 90 fd 1 rt 90 fd 3
fill
lt 90 fd 1 rt 90 fd 3
fill
lt 90 fd 1 rt 90 fd 3
fill
lt 90 fd 1 rt 90 fd 3
fill
lt 90 fd 1 rt 90 fd 3
bk 1
fill
lt 90 fd 1 rt 90 fd 3
fill
lt 90 fd 1 rt 90 fd 3
fill
lt 90 fd 1 rt 90 fd 3
fill
lt 90 fd 1 rt 90 fd 3
fill
lt 90 fd 1 rt 90 fd 3
fill
lt 90 fd 1 rt 90 fd 3
fill
lt 90 fd 1 rt 90 fd 3
fill
fd 250
bk 50
rt 90 fd 250
fill
end

to wegstrepen
setpencolor [ 255 255 255 ]
pd fd 5
pu fd 10
pd fd 10
pu fd 15
pd fd 15
pu fd 20
pd fd 20
pu fd 25
pd fd 25
pu fd 30
pd fd 30
pu fd 35
pd fd 35
pu fd 40
pd fd 40
pu fd 45
pd fd 45
pennormal pu

end

to wolk
pd
setpencolor [ 254 254 254 ]
lt 90 repeat 18 [ rt 10 fd 5 ]
lt 75
repeat 20 [ rt 5 fd 5 ]
lt 75
repeat 20 [ rt 5 fd 5 ]
lt 70
repeat 11 [ rt 10 fd 5 ]
lt 90
repeat 18 [ rt 10 fd 5 ]
fd 205
pennormal
end

to wolken
pu
lt 90
fd 600
rt 90
fd 400
rt 90
rt 180
lt 90
fd 100
rt 90
fd 100
bk 50
pd wolk
pu bk 200
fd 50
lt 90
rt  180
fd 100
bk 250
wolk
end

to zon
pu
rt 180
lt 75
rt 5
rt 5
rt 2
rt 1
rt 1
rt 1
fd 500
fd 100
fd 300
bk 100
fd 50
fd 140
bk 140
lt 90
rt 180
fd 230
bk 230
bk 50
fd 230
bk 250
fd 230
bk 220
pd 
setpencolor [ 250 216 22 ]
setpensize [ 3 3 ]
repeat 36 [ rt 10 fd 15 ]
rt 90
pu fd 85
fd 86 fd 40
pd fd 100
pu bk 226 rt 45
fd 91
fd 40
pd fd 100
pu bk 91 bk 40 bk 100 rt 45
fd 93
fd 40
pd fd 100
pu bk 100 bk 93 bk 40
rt 45
fd 91
fd 40
pd fd 100
pu bk 140 bk 91 rt 45
fd 85
fd 40
pd fd 100
pu bk 140 bk 85
rt 45
fd 80
fd 40
pd fd 100
pu bk 140 bk 80
rt 45
fd 79
fd 40 pd fd 100
pu bk 140 bk 79 rt 45
fd 80
fd 40
pd fd 100
pennormal
end