summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/standard/pathofstraightline.mp
blob: 06711c223f3248be294e572fda5da2ce96de70ac (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
% pathofstraightline.mp
% L. Nobre G.
% 2003

%input featpost3Dplus2D;

SphericalDistortion := true;
Spread := 100;
f := 0.4*(1.5,0.5,1);

beginfig(1);
  numeric gridstep, sidenumber, i, coord;
  color pa, pb, pc, pd;
  gridstep = 0.1;
  sidenumber = 10;
  coord = 0.5*sidenumber*gridstep;
  for i=0 upto sidenumber:
    pa := (-coord,-coord+i*gridstep,0);
    pb := (coord,-coord+i*gridstep,0);
    pc := (-coord+i*gridstep,-coord,0);
    pd := (-coord+i*gridstep,coord,0);
    draw pathofstraightline( pa, pb );
    draw pathofstraightline( pc, pd );
  endfor;
endfig;

end.