; Periskopov RACEK / Ferdinand in LOGO 
; Primer: BOR
;
; Narise rekurzivno doloceno drevo 
;
; (c)1991 V. Batagelj

TO Iglice
  SETPENCOLOR [50 155 50] SETPENSIZE [2 2]
  FD 10 LT 30 SETPENSIZE [1 1]
  REPEAT 6 [ FD 10 BK 10 RT 12 ]
  SETPENSIZE [2 2] LT 42 BK 10 
  SETPENCOLOR [200 125 000]
END

TO Deblo :n :d
  IF :n = 0 [Iglice STOP]
  SETPENCOLOR [200 125 000]
  SETPENSIZE (list 2*:n-1 2*:n-1)
  FD :d RT 45
  Deblo (:n - 1) :d * 0.7
  LT 45 FD :d LT 30
  Deblo (:n - 1) :d * 0.5
  RT 30 BK :d * 2
  SETPENSIZE (list 2*:n+1 2*:n+1)
END

TO Bor
  CS HT PU SETPOS [ -20 -150 ] PD
  Deblo 8 80 
END

Bor