Re: LOGO-L> Arcs once again - Sorry! - Attachment

["Olga Tuzova" <olgatu@ort.spb.ru>]

This is the image for the following codes.
-----------------------------------------
to filling.curve :size :level :p
if :level<1 [fd :size rt :p*90 fd :size stop]
filling.curve :size/2 :level-1 -:p rt :p*90
filling.curve :size/2 :level-1 :p  lt :p*90
filling.curve :size/2 :level-1 :p  rt :p*90
filling.curve :size/2 :level-1 -:p 
end

to convex.filling.curve :size :level :p
if :level<1 [fda :size rt :p*90 fda :size stop]
convex.filling.curve :size/2 :level-1 -:p rt :p*90
convex.filling.curve :size/2 :level-1 :p  lt :p*90
convex.filling.curve :size/2 :level-1 :p  rt :p*90
convex.filling.curve :size/2 :level-1 -:p 
end

to fda :size
lt 90
arc2 180 :size/2
lt 90
end
-----------------------------------------

Regards,
Olga
The following section of this message contains a file attachment
prepared for transmission using the Internet MIME message format.
If you are using Pegasus Mail, or any another MIME-compliant system,
you should be able to save it or view it from within your mailer.
If you cannot, please ask your system administrator for assistance.

   ---- File information -----------
     File:  filling.gif
     Date:  8 May 1998, 9:43
     Size:  18636 bytes.
     Type:  GIF-image

filling.gif