MetaFun - Pragma ADE

308
The complete logo definition is a bit more extensive because we also want to add a background.
Because we need to clip the blue foreground graphic, we must temporarily store it when we fill
the background.
numeric width, height, line, delta ;
width = 5cm ; height = width/2 ; line = height/4 ; delta = line ;
linejoin := mitered ; pickup pencircle scaled line ;
color nsblue ; nsblue := (0,0,1) ;
color nsyellow ; nsyellow := (1,1,0) ;
z1 = (0, height/2) ;
z2 = (width/2-height/4, y1) ;
z3 = (width/2+height/4, y4) ;
z4 = (width, 0) ;
z5 = (x4+height/2, y1) ;
z6 = (x4, 2y1) ;
z7 = 1.5[z5,z6] ;
path p ; p := z1--z2--z3--z4 ; path q ; q := z3--z4--z5--z7 ;
numeric d, lx, ly, ux, uy ; d = line/2 ;
lx = -3d - d/3 ; ly = -d ; ux = rt x5 + d/3 ; uy = top y6 ;
path r ; r := (lx,ly)--(ux,ly)--(ux,uy)--(lx,uy)--cycle;
lx := lx-delta ; ly := ly-delta ; ux := ux+delta ; uy := uy+delta ;
path s ; s := (lx,ly)--(ux,ly)--(ux,uy)--(lx,uy)--cycle;
draw p withcolor nsblue ; draw q withcolor nsblue ;
addto currentpicture also currentpicture
rotatedaround (.5[z2,z3],180) shifted (height/4,height/2) ;
picture savedpicture ; savedpicture := currentpicture ;
clip currentpicture to r ;
setbounds currentpicture to r ;
savedpicture := currentpicture ; currentpicture := nullpicture ;
fill s withcolor nsyellow ;
addto currentpicture also savedpicture ;
For practical use it makes sense to package this definition in a macro to which we pass the dimensions.
A few applications Simple Logos