diff options
author | Karl Berry <karl@freefriends.org> | 2011-12-03 16:47:39 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2011-12-03 16:47:39 +0000 |
commit | 97e4684a37e4899e8cdd42ab670b6e25dd319d1a (patch) | |
tree | bc263a56d75c177b79ae13c6e6ec7a3c30278dbf /Master/texmf-dist/doc/metapost/featpost/example/bananadimmer.mp~ | |
parent | a2c8654f8955a0d35c8b0c2d1752a506a426681b (diff) |
featpost (17nov11)
git-svn-id: svn://tug.org/texlive/trunk@24738 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/bananadimmer.mp~')
-rw-r--r-- | Master/texmf-dist/doc/metapost/featpost/example/bananadimmer.mp~ | 78 |
1 files changed, 78 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/bananadimmer.mp~ b/Master/texmf-dist/doc/metapost/featpost/example/bananadimmer.mp~ new file mode 100644 index 00000000000..b0d3973dc90 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/bananadimmer.mp~ @@ -0,0 +1,78 @@ +% bananadimmer.mp +% Pedro J. Sebastiao. +% L. Nobre G. +% 2006 + +input featpost3Dplus2D; + +verbatimtex +\documentclass{article} +\usepackage{beton} +\usepackage{concmath} +\usepackage{ccfonts} +\begin{document} +etex + +beginfig(1); + color axxc, ayyc, azzc; + color nalfa, ngamma; + numeric radius, gammang, xxsize, yysize, zzsize; + numeric xxpos, yypos, zzpos; + numeric angulo; + numeric nalfapos; + picture xxlabel, yylabel, zzlabel, nalfalabel; + + f := (3,4,2); + Spread := 60; + + gammang = 0; + angulo = -90; + beta = 11.8; + nbeta = 1.3; + delta = 35; + nalfapos = 1; + xxsize = 0.8; + xxpos = 6; + yysize = 1.3; + yypos = 6; + zzsize = 1.3; + zzpos = 4; + + xxlabel = btex $\mbox{\protect \scriptsize light}$ etex; + yylabel = btex $\mbox{\protect \scriptsize analyser}$ etex; + zzlabel = btex $\mbox{\protect \scriptsize polariser}$ etex; + nalfalabel = btex $\mathbf{n}_a$ etex; + + axxc = (xxsize,0,0); + ayyc = (0,yysize,0); + azzc = (0,0,zzsize); + nalfa = (0,nbeta*cosd(beta)*sind(delta),nbeta*cosd(beta)*cosd(delta)); + radius = nbeta*sind(beta); + + ngamma := nalfa+(radius*cosd(angulo),radius*sind(angulo),0); + drawarrow rp(black)..rp(axxc); + drawarrow rp(black)..rp(ayyc); + drawarrow rp(black)..rp(azzc); + drawarrow rp(black)..rp(nalfa); + labeln( xxlabel, rp(axxc), xxpos ); + labeln( yylabel, rp(ayyc), yypos ); + labeln( zzlabel, rp(azzc), zzpos ); + labeln( nalfalabel, rp(nalfa), nalfapos ); + + banana( + 0.5[black,ngamma], + conorm(ngamma)/2, + ( 90, -26, 90 ), + 0.2, + 150); + banana( + 0.5[black,ngamma], + conorm(ngamma)/2, + ( 0, 0, 66 ), + 0.2, + 135); +endfig; + +verbatimtex \end{document} etex + +end. |