// this can be run alone or included by other programs..

to landscape1 :horizon :starsize :starnumber

logo backcolor = "darkblue"

// put some stars in sky..
logo fillcolor = "white"
logo linecolor = "powderblue" 
repeat :starnumber [
  pu; moveto (random winwide) (calc :horizon + (random (calc winhigh - :horizon)))
  pd; circle random :starsize
  fillshape
  ]

// do the land..
logo linecolor = "black"
pu; moveto 0 0; rectangle winwide :horizon
logo fillcolor = "gray(0.3)"
fillshape

end


demo landscape1 200 5 300
