Java StarLogo
2.0
english
`turtle`
to go1
if who < 10
  [rt 1 
   hatch [setc who / 30 
          repeat 36 [fd 4 rt 10] 
          die]]
end

to go2
if who < 20
   [ifelse (who mod 2) = 0
      [rt 1 
       hatch [setc who / 20 
              repeat 36 [fd 4 rt 10] 
              die]]
       [lt 1 
        hatch [setc who / 20 
               repeat 36 [fd 4 lt 10] 
               die]]]
end

to go3
if who < 10
  [rt 1 
   hatch [setc 100 + (who / 30) 
          repeat 36 [fd 4 rt 10] 
          die]]
end

to go4
if who < 40
  [ifelse (who mod 2) = 0
     [rt 2 fd 1  
      hatch [setc 100 + (who / 50)
             repeat 20 [fd 1 rt 10] 
             die]]
     [lt 2 fd 1 
      hatch [setc 100 + (who / 50) 
             repeat 20 [fd 1 lt 10] 
             die]]]
end

to go5
fd 1 rt 2
end

to tfd :n
repeat :n [hatch [setc who seth ycor * 3] fd 1]
end

to go6
fd 4 rt 10
end


`observer`
to setup1
ca 
crt 10 
ask-turtles [pd]
end

to setup2
ca 
crt 20 
ask-turtles [pd]
end

to setup3
ca 
crt 10
end

to setup4
ca 
crt 20 
ask-turtles
 [fd 30 
  rt 180]
crt 20 
ask-turtles [fd 10]
end

to setup5
ca
crt 720
ask-turtles
 [fd 20
  repeat who [fd 1 rt 2]
  setc who]
end

to setup6
ca
crt 1 
ask-turtles
 [rt 15
  repeat 6 [repeat 36 [tfd 3 rt 10] rt 60]]
end


`information`



`interface`
SLCanvas
top-left 5 233

SLButton
turtle-or-observer? turtle
top-left 72 96
width-height 73 30
name "button8"
line-to-run "go2"
forever? true
button-number 9
show-name? false
whichip 13

SLButton
turtle-or-observer? observer
top-left 71 24
width-height 61 31
name "button2"
line-to-run "setup2"
forever? false
button-number 3
show-name? false
whichip 14

SLButton
turtle-or-observer? observer
top-left 30 24
width-height 61 30
name "button1"
line-to-run "setup1"
forever? false
button-number 2
show-name? false
whichip 15

SLButton
turtle-or-observer? turtle
top-left 227 101
width-height 71 32
name "button12"
line-to-run "go6"
forever? true
button-number 13
show-name? false
whichip 16

SLButton
turtle-or-observer? observer
top-left 228 25
width-height 65 32
name "button6"
line-to-run "setup6"
forever? false
button-number 7
show-name? false
whichip 17

SLButton
turtle-or-observer? observer
top-left 189 26
width-height 62 31
name "button5"
line-to-run "setup5"
forever? false
button-number 6
show-name? false
whichip 18

SLButton
turtle-or-observer? turtle
top-left 149 100
width-height 69 31
name "button10"
line-to-run "go4"
forever? true
button-number 11
show-name? false
whichip 19

SLButton
turtle-or-observer? observer
top-left 149 25
width-height 61 33
name "button4"
line-to-run "setup4"
forever? false
button-number 5
show-name? false
whichip 20

SLButton
turtle-or-observer? turtle
top-left 111 99
width-height 71 31
name "button9"
line-to-run "go3"
forever? true
button-number 10
show-name? false
whichip 21

SLButton
turtle-or-observer? observer
top-left 111 27
width-height 59 30
name "button3"
line-to-run "setup3"
forever? false
button-number 4
show-name? false
whichip 22

SLButton
turtle-or-observer? turtle
top-left 31 95
width-height 72 32
name "button7"
line-to-run "go1"
forever? true
button-number 8
show-name? false
whichip 23

SLButton
turtle-or-observer? turtle
top-left 190 100
width-height 73 31
name "button11"
line-to-run "go5"
forever? true
button-number 12
show-name? false
whichip 24


`turtle shapes`
[encoded data, 5200 characters]
DhUAABUO2Q==

`template`
null

`settings`
patch-size 4
num-shapes 256
screen-half-width 50
screen-half-height 50
interface-window-xcor 239
interface-window-ycor 105
interface-window-size 655 426
output-window-xcor 0
output-window-ycor 0
output-window-width 300
output-window-height 219
info-window-xcor 0
info-window-ycor 0
info-window-width 500
info-window-height 419
control-center-xcor 11
control-center-ycor 106
control-center-width 353
control-center-height 494
turtle-command-center-height 152
observer-command-center-height 156

`string table`
H4sIAAAAAAAAAGNgYGAAABzfRCEEAAAAAAAABA==

`symbol table`
H4sIAAAAAAAAAGNgYGAAABzfRCEEAAAAAAAABA==

`double table`
H4sIAAAAAAAAAGNgYGAAABzfRCEEAAAAAAAABA==

`list table`
H4sIAAAAAAAAAH1PMQqAQAxL66lwoCI4Ozk4O/scn+hDfJIt5rCDOIRLk5D2APQA
RIDMdwpz7bNhNpzkrieBXpw9q6a15IOhMSyGyvOGHY+WmZnpJ/Z17FLx5bwjZr40
7ize8dE72ruGXg3ZLdyf/zy8npL7v4S87MINV4SrfUwBAAAAAAFM

`bytecodes`
H4sIAAAAAAAAAJ2VTVPbMBCG15Ilx4khYaghCTCToZ32nObj0FPba6fnXpmWlBth
BnPofyz/qfrYWCshf1DPxFY2++p9dqXIMLr5+afa/drf7h5vPsNffT0DwAzk4656
eliqcQH1da0+CY6nKQDTA3UrSwCuhm8lwBiEjlr9x//UJ6hfqWDWrDe5DHPXKnjR
4ZVhTN3KAsfaf+b8TYwTTYqx1Go8To7emx7eJ553Ur4JmBhh4o5pnNvcchJ4p+i9
VcH3Hd6XxHvm/Mxvp87TfB+6ek3rR25C8xAem41JP+ZxCuB3e72R3tWMpqDDnJMz
NJ77kAjncpnK5bYRHnDmL1AMcmrTYcowxhBOaji9S791wH0h8UTFBYE6DwrgDQWk
QQEiKECSArL2Ajy/gcqdR/zywG8Y+I2IX2HnaGwYDxqX6cbpv+eHjsZdRVb1zDWv
1nADmyhWBxz+bQUBlj1XeKBB9dnwowP0e48VXvgrTLedV5ggc8lIYVlQ2IAUlvdY
+YVb0XLur6bHURCOowjHccAxJhyTV+6IXDd6YwuoO43PelLcBUYwBF79vlXBc5cp
UMCQhtnuHE7ApGRk5fSJOXVU9GQ/UBujkSbbvoKsgOLrU1Xt7z8tFvZ4yBFF4KFI
XkrGSuKPRzCulfUb8CBKgFyx5CVJhhfJlGkbYSIv2namLRGJFzZB8oYkp61M6wgT
6Xg705qIeKvNKmIz6GuzIiLWarOM2MhGG6rcRJTDJuU/vQtaooIJAAAAAAmC

`observer world`
H4sIAAAAAAAAAGMQSMhPKk4tKkstUiguSSxJTXBggAMrBq6CnPyS8syU9NQSIJ+F
gS0nNS+9JAPI5mBgB8kVpOaBlXKDNSPJQgAjCAMA+OWZc2QAAAAAAABk

`patch world`
[encoded data, 47580 characters]

`turtle world`
[encoded data, 11375 characters]
B6mdLCFLngAAAACeSw==

