summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/unperfectionremoved.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/unperfectionremoved.mp')
-rw-r--r--Master/texmf-dist/doc/metapost/featpost/example/unperfectionremoved.mp34
1 files changed, 34 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/unperfectionremoved.mp b/Master/texmf-dist/doc/metapost/featpost/example/unperfectionremoved.mp
new file mode 100644
index 00000000000..0606ac9d07c
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/unperfectionremoved.mp
@@ -0,0 +1,34 @@
+% unperfectionremoved.mp
+% L. Nobre G.
+% 2003
+
+input featpost3Dplus2D;
+
+Spread := 70;
+f := (13,4,3);
+
+beginfig(1);
+ numeric i, len;
+ numeric fws, NumLines, linex, inray, outay, axray;
+ numeric wang;
+ path oneline;
+ color axe, aroc;
+ len := 0.6;
+ wang := 60;
+ axe := (0,cosd(90-wang),sind(90-wang));
+ fws := 4;
+ outay := 0.45*fws;
+ inray := 0.7*outay;
+ NumLines := 30;
+ for i=0 upto NumLines:
+ linex := fws*(i/NumLines-0.5);
+ oneline := rp((linex,0.5*fws,-0.5*fws))
+ --rp((linex,-0.5*fws,-0.5*fws))
+ --rp((linex,-0.5*fws,0.5*fws));
+ draw oneline withcolor (0.7*background);
+ endfor;
+ aroc := outay*(0,cosd(wang),sind(wang))-0.5*(0,fws,fws);
+ rigorousdisc( inray, true, aroc, outay, axe*len );
+endfig;
+
+end.