1
|
prologues := 1; def drawleaf(expr A, B, C) = pickup pencircle scaled 4bp; draw (0, 0) {dir 60} .. A .. {dir 60} B withcolor C; pickup pencircle scaled 2bp; draw A {dir 75} .. {dir 45} B withcolor C; draw A {right} .. {dir 75} B withcolor C; enddef; beginfig(0); drawleaf((50, 50), (400, 250), .6green); d := .5 xpart (400, 250); currentpicture := currentpicture reflectedabout ((d, 0), (d, 1)); endfig; beginfig(1); drawleaf((50, 50), (400, 250), .6blue); currentpicture := currentpicture reflectedabout ((50, 50), (400, 250)); endfig; end;
|
