;http://www.geocities.com/CollegePark/Lab/2276/codesf.htm#7
to triangle :size :level
  if :level<1[stop]
  repeat 3[shape rt 120]
  fill_it
end

to shape
  triangle :size/2 :level-1
  fd :size
end

to fill_it
  setfc 7-:level
  rt 30 pu fd .6*:size
  ;fill
  bk .6*:size pd lt 30
end

pu setxy -98 -86 pd
seth 30
triangle 400 8