reset make "steps 0 make "implode 0 color [ 0 0 256 ] penwidth 5 to shockwave :circle repeat 275 [ if :implode=0[ if :steps = 0[ circle :circle make "circle :circle +10 ] if :steps = 1[ circle :circle make "circle :circle + 5 ] if :steps = 2[ circle :circle make "circle :circle + 2.5 ] if :steps = 3[ circle :circle make "circle :circle + 1 ] ] if :implode = 1[ if :steps = 0[ circle :circle make "circle :circle -10 ] if :steps = 1[ circle :circle make "circle :circle - 5 ] if :steps = 2[ circle :circle make "circle :circle - 2.5 ] if :steps = 3[ circle :circle make "circle :circle - 1 ] ] if :circle=250 [ make "steps 1 ] if :circle=275 [ make "steps 2 ] if :circle=295 [ make "steps 3 ] if :circle=300 [ make "implode 1 ] if :circle=0 [ make "implode 0 ] clear ] stop end shockwave 10