;;;; SUMMARY
;; A demonstration of the STAMP primitive
;; COPYRIGHT & LICENSE
;;;; by James P. Steiner
;;;; Dedicated to the Public Domain, June, 2005
;;;; 
;;;;

to go
   ca
   crt 5
   let i 0
   ;; choose a shape (excluding the default shape)
   let the-shape random-one-of BUT-FIRST shapes
   print the-shape
   set-default-shape turtles the-shape
   repeat screen-edge-x * .4
   [ ask turtles [ die ]
     crt (i + 5)
     ask turtles
     [ home
       rt i * 5
       fd i * 2
       set size 2
     ]
     without-interruption
     [ 
       ask turtles
     [ ; set size (i + 1) 
       repeat 30 [ jump 4 rt 6 jump -4 rt 6 stamp ]
     ]
     ]
     set i i + 1
   ]
end
   
@#$#@#$#@
GRAPHICS-WINDOW
8
10
428
451
20
20
10.0
1
10
1
1
1
0
1
1
1

CC-WINDOW
5
465
522
560
Command Center
0

BUTTON
450
16
513
49
NIL
GO
NIL
1
T
OBSERVER
T
NIL

@#$#@#$#@
Stamp-demo by James Steiner, June, 2005
This model is in the public domain.

This model demonstrates the new function of STAMP in NetLogo 3.x
@#$#@#$#@
default
true
0
Polygon -7500403 true true 150 5 40 250 150 205 260 250

captured ball
false
0
Circle -16777216 true false 60 60 180
Circle -7500403 true true 75 75 150

circle 2
false
0
Circle -7500403 true true 0 0 300
Circle -16777216 true false 15 15 270

dot
false
0
Circle -7500403 true true 90 90 120

face happy
false
0
Circle -7500403 true true 8 8 285
Circle -16777216 true false 60 75 60
Circle -16777216 true false 180 75 60
Polygon -16777216 true false 150 255 90 239 62 213 47 191 67 179 90 203 109 218 150 225 192 218 210 203 227 181 251 194 236 217 212 240

knot
false
0
Rectangle -16777216 true false 0 90 75 165
Rectangle -16777216 true false 135 0 210 75
Rectangle -16777216 true false 225 135 300 210
Rectangle -16777216 true false 90 225 165 300
Rectangle -7500403 true true 15 105 60 150
Rectangle -7500403 true true 150 15 195 60
Rectangle -7500403 true true 240 150 285 195
Rectangle -7500403 true true 105 240 150 285
Circle -16777216 true false 60 60 180
Circle -7500403 true true 75 75 150

square 2
false
0
Rectangle -7500403 true true 30 30 270 270
Rectangle -16777216 true false 60 60 240 240

target
false
0
Circle -7500403 true true 0 0 300
Circle -16777216 true false 30 30 240
Circle -7500403 true true 60 60 180
Circle -16777216 true false 90 90 120
Circle -7500403 true true 120 120 60

triangle 2
false
0
Polygon -7500403 true true 150 30 15 255 285 255
Polygon -16777216 true false 150 60 255 240 45 240

wheel
false
0
Circle -7500403 true true 3 3 294
Circle -16777216 true false 30 30 240
Line -7500403 true 150 285 150 15
Line -7500403 true 15 150 285 150
Circle -7500403 true true 120 120 60
Line -7500403 true 216 40 79 269
Line -7500403 true 40 84 269 221
Line -7500403 true 40 216 269 79
Line -7500403 true 84 40 221 269

@#$#@#$#@
NetLogo 3.0
@#$#@#$#@
@#$#@#$#@
@#$#@#$#@
@#$#@#$#@