input TEX; prologues := 1; %if scantokens(mpversion) < 1.200: % filenametemplate %else: % outputtemplate := %fi % "%j.eps"; beginfig(1) pair zaaab ; zaaab = ( 0 , 0 ) ; pair zaaac ; zaaac = ( 3cm , 0 ) ; pair zaaad ; zaaad = ( 1cm , 2cm ) ; path paaae ; paaae:=zaaab -- zaaac -- zaaad -- cycle; draw paaae ; numeric xaaaf ; xaaaf = 1.0 * 0.5mm; numeric xaaag ; xaaag = 4.5mm + xaaaf; pair zaaah ; zaaah = zaaac - zaaab; numeric xaaai ; xaaai = angle zaaah ; pair zaaaj ; zaaaj = zaaad - zaaab; numeric xaaak ; xaaak = angle zaaaj ; pair zaaal ; zaaal = dir xaaai ; pair zaaam ; zaaam = xaaag * zaaal; pair zaaan ; zaaan = zaaab + zaaam; numeric xaaao ; xaaao = xaaai + 90.0; pair zaaap ; zaaap = dir xaaao ; pair zaaaq ; zaaaq = dir xaaak ; pair zaaar ; zaaar = xaaag * zaaaq; pair zaaas ; zaaas = zaaab + zaaar; numeric xaaat ; xaaat = xaaak + 90.0; pair zaaau ; zaaau = dir xaaat ; path paaav ; paaav:=zaaan { zaaap } .. zaaas { zaaau } ; draw paaav ; numeric xaaaw ; xaaaw = 2.0 * 0.5mm; numeric xaaax ; xaaax = 4.5mm + xaaaw; pair zaaay ; zaaay = zaaad - zaaac; numeric xaaaz ; xaaaz = angle zaaay ; pair zaaba ; zaaba = zaaab - zaaac; numeric xaabb ; xaabb = angle zaaba ; pair zaabc ; zaabc = dir xaaaz ; pair zaabd ; zaabd = xaaax * zaabc; pair zaabe ; zaabe = zaaac + zaabd; numeric xaabf ; xaabf = xaaaz + 90.0; pair zaabg ; zaabg = dir xaabf ; pair zaabh ; zaabh = dir xaabb ; pair zaabi ; zaabi = xaaax * zaabh; pair zaabj ; zaabj = zaaac + zaabi; numeric xaabk ; xaabk = xaabb + 90.0; pair zaabl ; zaabl = dir xaabk ; path paabm ; paabm:=zaabe { zaabg } .. zaabj { zaabl } ; draw paabm ; pair zaabn ; zaabn = xaaag * zaabc; pair zaabo ; zaabo = zaaac + zaabn; pair zaabp ; zaabp = xaaag * zaabh; pair zaabq ; zaabq = zaaac + zaabp; path paabr ; paabr:=zaabo { zaabg } .. zaabq { zaabl } ; draw paabr ; numeric xaabs ; xaabs = 3.0 * 0.5mm; numeric xaabt ; xaabt = 4.5mm + xaabs; pair zaabu ; zaabu = zaaab - zaaad; numeric xaabv ; xaabv = angle zaabu ; pair zaabw ; zaabw = zaaac - zaaad; numeric xaabx ; xaabx = angle zaabw ; pair zaaby ; zaaby = dir xaabv ; pair zaabz ; zaabz = xaabt * zaaby; pair zaaca ; zaaca = zaaad + zaabz; numeric xaacb ; xaacb = xaabv + 90.0; pair zaacc ; zaacc = dir xaacb ; pair zaacd ; zaacd = dir xaabx ; pair zaace ; zaace = xaabt * zaacd; pair zaacf ; zaacf = zaaad + zaace; numeric xaacg ; xaacg = xaabx + 90.0; pair zaach ; zaach = dir xaacg ; path paaci ; paaci:=zaaca { zaacc } .. zaacf { zaach } ; draw paaci ; pair zaacj ; zaacj = xaaax * zaaby; pair zaack ; zaack = zaaad + zaacj; pair zaacl ; zaacl = xaaax * zaacd; pair zaacm ; zaacm = zaaad + zaacl; path paacn ; paacn:=zaack { zaacc } .. zaacm { zaach } ; draw paacn ; pair zaaco ; zaaco = xaaag * zaaby; pair zaacp ; zaacp = zaaad + zaaco; pair zaacq ; zaacq = xaaag * zaacd; pair zaacr ; zaacr = zaaad + zaacq; path paacs ; paacs:=zaacp { zaacc } .. zaacr { zaach } ; draw paacs ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;