File: ultraeye.mp

package info (click to toggle)
texlive-base 2020.20210202-3
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 791,092 kB
  • sloc: perl: 45,038; sh: 4,926; makefile: 4,655; ansic: 2,266; ruby: 2,231; tcl: 2,156; xml: 1,874; python: 822; cpp: 695; awk: 606; lisp: 199; sed: 8
file content (16 lines) | stat: -rw-r--r-- 354 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
% 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;