; Periskopov RACEK / Ferdinand and LOGO ; Example: XmasTree ; ; Christmas Tree. ; ; (c)1991,1996 V. Batagelj TO XTree :d :a :n IF :n < 1 [ STOP ] FD :d RT :a XTree :d / 2 :a :n - 1 LT :a XTree :d :a :n - 1 LT :a XTree :d / 2 :a :n - 1 RT :a PU BK :d PD END TO XmasTree CS HT setpc [20 120 20] setpensize [5 5] PU SETPOS [ -90 -190 ] PD XTree 60 60 7 PU SETPOS [ 140 -150 ] PD XTree 50 45 5 SETPENCOLOR [0 0 0] SETPENSIZE [1 1] PU HOME PD END XmasTree