% ultraeye.mp % L. Nobre G. % 2007 prologues := 1; beginfig(1); LaTeX_unitlength := 14.22636pt; % from the emp LaTeX package w := 15*LaTeX_unitlength; h := 10*LaTeX_unitlength; for i=h step -h/20 until h/20: fill fullcircle scaled i xscaled (w/h) withcolor blue; fill fullcircle scaled i withcolor red; endfor; endfig; end. endinput;