On 6/27/06, Hans Hagen wrote:
> Mojca Miklavec wrote:
> > To Hans: thanks for the hint! (Slowly starting to believe that the
> > code might indeed reach 4 lines ;)
> >
> another one:
>
> vardef mytransform(expr pathorpicture) =
>   pathorpicture
>     if reflect=2:
>       reflectedabout((0,0),(1,1))
>     elseif reflect=3:
>       reflectedabout((0,0),(1,-1))
>     elseif reflect=4:
>       reflectedabout((-1,0),(1,0))
>     fi
> enddef;
>
> -)

What a waste of space ;) !

vardef mytransform(expr pathorpicture) =
 pathorpicture
   if reflect > 1: reflectedabout(
     if     reflect=2: (0,0),(1,1)
     elseif reflect=3: (0,0),(1,-1)
     elseif reflect=4: (-1,0),(1,0)
     fi)
   fi
enddef;

(Slowly starting to believe that MP might become as horrible &
unreadable as perl ;)

Mojca
_______________________________________________
ntg-context mailing list
ntg-context@ntg.nl
http://www.ntg.nl/mailman/listinfo/ntg-context

Reply via email to