// CONE demo

logo backcolor = "darkblue"
// logo circarc 0 200
set pos = 700
set size = 1
pu

logo linecolor = "red"
repeat untilbreak [
  moveto center :pos
  pd; ellipse :size (calc :size * 0.4); pu
  decr pos by 10
  incr size by 4
  if :pos < 100 [ break ]
  ]

