// PYRAMID demo

logo backcolor "darkblue"
pu

// draw the pyramid one "layer" at a time..
set size = 1
set pos = 600
repeat 80 [
  moveto center :pos

  //
  logo linecolor = "tan1"
  logo turtledir 290
  pd;  fd :size;  pu

  moveto center :pos
  logo linecolor = "white"
  logo turtledir 70
  pd;  fd :size;  pu

  // move down and make wider...
  decr pos by 6
  incr size by 5
  ]
pu

// now make a moon...

moveto 600 650
pd; circle 50
logo fillcolor = "white"
fillshape

