input TEX; prologues := 1; %if scantokens(mpversion) < 1.200: % filenametemplate %else: % outputtemplate := %fi % "%j.eps"; beginfig(1) numeric xaaab ; xaaab = sind 0 ; numeric xaaac ; xaaac = cosd 0 ; pair zaaad ; zaaad = ( xaaab , xaaac ) ; pair zaaae ; zaaae = 2cm * zaaad; numeric xaaaf ; xaaaf = sind 20.0 ; numeric xaaag ; xaaag = cosd 30.0 ; pair zaaah ; zaaah = ( xaaaf , xaaag ) ; pair zaaai ; zaaai = 2cm * zaaah; numeric xaaaj ; xaaaj = sind 40.0 ; numeric xaaak ; xaaak = cosd 60.0 ; pair zaaal ; zaaal = ( xaaaj , xaaak ) ; pair zaaam ; zaaam = 2cm * zaaal; numeric xaaan ; xaaan = sind 60.0 ; numeric xaaao ; xaaao = cosd 90.0 ; pair zaaap ; zaaap = ( xaaan , xaaao ) ; pair zaaaq ; zaaaq = 2cm * zaaap; numeric xaaar ; xaaar = sind 80.0 ; numeric xaaas ; xaaas = cosd 120.0 ; pair zaaat ; zaaat = ( xaaar , xaaas ) ; pair zaaau ; zaaau = 2cm * zaaat; numeric xaaav ; xaaav = sind 100.0 ; numeric xaaaw ; xaaaw = cosd 150.0 ; pair zaaax ; zaaax = ( xaaav , xaaaw ) ; pair zaaay ; zaaay = 2cm * zaaax; numeric xaaaz ; xaaaz = sind 120.0 ; numeric xaaba ; xaaba = cosd 180.0 ; pair zaabb ; zaabb = ( xaaaz , xaaba ) ; pair zaabc ; zaabc = 2cm * zaabb; numeric xaabd ; xaabd = sind 140.0 ; numeric xaabe ; xaabe = cosd 210.0 ; pair zaabf ; zaabf = ( xaabd , xaabe ) ; pair zaabg ; zaabg = 2cm * zaabf; numeric xaabh ; xaabh = sind 160.0 ; numeric xaabi ; xaabi = cosd 240.0 ; pair zaabj ; zaabj = ( xaabh , xaabi ) ; pair zaabk ; zaabk = 2cm * zaabj; numeric xaabl ; xaabl = sind 180.0 ; numeric xaabm ; xaabm = cosd 270.0 ; pair zaabn ; zaabn = ( xaabl , xaabm ) ; pair zaabo ; zaabo = 2cm * zaabn; numeric xaabp ; xaabp = sind 200.0 ; numeric xaabq ; xaabq = cosd 300.0 ; pair zaabr ; zaabr = ( xaabp , xaabq ) ; pair zaabs ; zaabs = 2cm * zaabr; numeric xaabt ; xaabt = sind 220.0 ; numeric xaabu ; xaabu = cosd 330.0 ; pair zaabv ; zaabv = ( xaabt , xaabu ) ; pair zaabw ; zaabw = 2cm * zaabv; numeric xaabx ; xaabx = sind 240.0 ; numeric xaaby ; xaaby = cosd 360.0 ; pair zaabz ; zaabz = ( xaabx , xaaby ) ; pair zaaca ; zaaca = 2cm * zaabz; numeric xaacb ; xaacb = sind 260.0 ; numeric xaacc ; xaacc = cosd 390.0 ; pair zaacd ; zaacd = ( xaacb , xaacc ) ; pair zaace ; zaace = 2cm * zaacd; numeric xaacf ; xaacf = sind 280.0 ; numeric xaacg ; xaacg = cosd 420.0 ; pair zaach ; zaach = ( xaacf , xaacg ) ; pair zaaci ; zaaci = 2cm * zaach; numeric xaacj ; xaacj = sind 300.0 ; numeric xaack ; xaack = cosd 450.0 ; pair zaacl ; zaacl = ( xaacj , xaack ) ; pair zaacm ; zaacm = 2cm * zaacl; numeric xaacn ; xaacn = sind 320.0 ; numeric xaaco ; xaaco = cosd 480.0 ; pair zaacp ; zaacp = ( xaacn , xaaco ) ; pair zaacq ; zaacq = 2cm * zaacp; numeric xaacr ; xaacr = sind 340.0 ; numeric xaacs ; xaacs = cosd 510.0 ; pair zaact ; zaact = ( xaacr , xaacs ) ; pair zaacu ; zaacu = 2cm * zaact; numeric xaacv ; xaacv = sind 360.0 ; numeric xaacw ; xaacw = cosd 540.0 ; pair zaacx ; zaacx = ( xaacv , xaacw ) ; pair zaacy ; zaacy = 2cm * zaacx; numeric xaacz ; xaacz = sind 380.0 ; numeric xaada ; xaada = cosd 570.0 ; pair zaadb ; zaadb = ( xaacz , xaada ) ; pair zaadc ; zaadc = 2cm * zaadb; numeric xaadd ; xaadd = sind 400.0 ; numeric xaade ; xaade = cosd 600.0 ; pair zaadf ; zaadf = ( xaadd , xaade ) ; pair zaadg ; zaadg = 2cm * zaadf; numeric xaadh ; xaadh = sind 420.0 ; numeric xaadi ; xaadi = cosd 630.0 ; pair zaadj ; zaadj = ( xaadh , xaadi ) ; pair zaadk ; zaadk = 2cm * zaadj; numeric xaadl ; xaadl = sind 440.0 ; numeric xaadm ; xaadm = cosd 660.0 ; pair zaadn ; zaadn = ( xaadl , xaadm ) ; pair zaado ; zaado = 2cm * zaadn; numeric xaadp ; xaadp = sind 460.0 ; numeric xaadq ; xaadq = cosd 690.0 ; pair zaadr ; zaadr = ( xaadp , xaadq ) ; pair zaads ; zaads = 2cm * zaadr; numeric xaadt ; xaadt = sind 480.0 ; numeric xaadu ; xaadu = cosd 720.0 ; pair zaadv ; zaadv = ( xaadt , xaadu ) ; pair zaadw ; zaadw = 2cm * zaadv; numeric xaadx ; xaadx = sind 500.0 ; numeric xaady ; xaady = cosd 750.0 ; pair zaadz ; zaadz = ( xaadx , xaady ) ; pair zaaea ; zaaea = 2cm * zaadz; numeric xaaeb ; xaaeb = sind 520.0 ; numeric xaaec ; xaaec = cosd 780.0 ; pair zaaed ; zaaed = ( xaaeb , xaaec ) ; pair zaaee ; zaaee = 2cm * zaaed; numeric xaaef ; xaaef = sind 540.0 ; numeric xaaeg ; xaaeg = cosd 810.0 ; pair zaaeh ; zaaeh = ( xaaef , xaaeg ) ; pair zaaei ; zaaei = 2cm * zaaeh; numeric xaaej ; xaaej = sind 560.0 ; numeric xaaek ; xaaek = cosd 840.0 ; pair zaael ; zaael = ( xaaej , xaaek ) ; pair zaaem ; zaaem = 2cm * zaael; numeric xaaen ; xaaen = sind 580.0 ; numeric xaaeo ; xaaeo = cosd 870.0 ; pair zaaep ; zaaep = ( xaaen , xaaeo ) ; pair zaaeq ; zaaeq = 2cm * zaaep; numeric xaaer ; xaaer = sind 600.0 ; numeric xaaes ; xaaes = cosd 900.0 ; pair zaaet ; zaaet = ( xaaer , xaaes ) ; pair zaaeu ; zaaeu = 2cm * zaaet; numeric xaaev ; xaaev = sind 620.0 ; numeric xaaew ; xaaew = cosd 930.0 ; pair zaaex ; zaaex = ( xaaev , xaaew ) ; pair zaaey ; zaaey = 2cm * zaaex; numeric xaaez ; xaaez = sind 640.0 ; numeric xaafa ; xaafa = cosd 960.0 ; pair zaafb ; zaafb = ( xaaez , xaafa ) ; pair zaafc ; zaafc = 2cm * zaafb; numeric xaafd ; xaafd = sind 660.0 ; numeric xaafe ; xaafe = cosd 990.0 ; pair zaaff ; zaaff = ( xaafd , xaafe ) ; pair zaafg ; zaafg = 2cm * zaaff; numeric xaafh ; xaafh = sind 680.0 ; numeric xaafi ; xaafi = cosd 1020.0 ; pair zaafj ; zaafj = ( xaafh , xaafi ) ; pair zaafk ; zaafk = 2cm * zaafj; numeric xaafl ; xaafl = sind 700.0 ; numeric xaafm ; xaafm = cosd 1050.0 ; pair zaafn ; zaafn = ( xaafl , xaafm ) ; pair zaafo ; zaafo = 2cm * zaafn; numeric xaafp ; xaafp = sind 720.0 ; numeric xaafq ; xaafq = cosd 1080.0 ; pair zaafr ; zaafr = ( xaafp , xaafq ) ; pair zaafs ; zaafs = 2cm * zaafr; path paaft ; paaft:=zaaae .. zaaai .. zaaam .. zaaaq .. zaaau .. zaaay .. zaabc .. zaabg .. zaabk .. zaabo .. zaabs .. zaabw .. zaaca .. zaace .. zaaci .. zaacm .. zaacq .. zaacu .. zaacy .. zaadc .. zaadg .. zaadk .. zaado .. zaads .. zaadw .. zaaea .. zaaee .. zaaei .. zaaem .. zaaeq .. zaaeu .. zaaey .. zaafc .. zaafg .. zaafk .. zaafo .. zaafs .. cycle; draw paaft ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;