TO hkl :m ; draws a halfcircle to the left LT 180 ARC2 -180 :f*:m LT 180 END TO hkr :m ; draws a halfcircle to the right ARC2 180 :f*:m END TO laby :f setscreencolor [230 230 150] setpensize [5 5] setpc [ 0 0 0] laby1 setpc [255 0 0] laby2 setpc [ 0 155 0] laby3 setpc [0 0 255] laby4 END to laby1 ; des Labyrinthes erster Teil, beginnend ; von der Mitte des Kreuzes nach oben ; draws the part of the labyrinth beginning upwards from the center FD :f*4 vkl 4 vkl 12 hkl 15 vkl 10 hkl 2 vkr 6 hkr 11 vkr 8 PU HOME PD END TO laby2 ; des Labyrinthes 2. Teil beginnend ; in der Mitte des Kreuzes nach rechts ; draws to the right RT 90 FD :f*4 vkr 4 hkr 9 vkr 6 hkl 2 vkl 10 hkl 13 vkl 8 PU HOME PD END TO laby3 ; des Labyrinthes 3. Teil, beginnend ; beim linken Kreuzbalken ; draws to the left LT 90 FD :f*4 vkl 4 hkl 7 hkl 2 hkr 3 PU HOME PD END TO laby4 ; des Labyrinthes 4. Teil, beginnend ; nach unten ; draws to the bottom LT 180 FD :f*4 hkr 1 hkl 2 hkl 5 PU HOME PD END TO vkl :m ; draws a quatercircle to the left LT 180 ARC2 -90 :f*:m LT 180 END TO vkr :m ; draws a quatercircle to the right ARC2 90 :f*:m END TO testeps IF NOT definedp "psinit [PRINT "|Load Logo2PS.LGO first| STOP] cs BegPic "creta laby 15 endpic end Make "alpha 108 Make "b 20 Make "f 10 testeps