diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/astro/astrosym.xtr')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/astro/astrosym.xtr | 115 |
1 files changed, 115 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/astro/astrosym.xtr b/Master/texmf-dist/fonts/source/public/astro/astrosym.xtr new file mode 100644 index 00000000000..1d9489d92df --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/astro/astrosym.xtr @@ -0,0 +1,115 @@ +% ASTROSYM.XTR : AstroSym (Version 2.20, Aug. 10, 2002) - file 7 of 8 +% Peter Schmitt eMail: Peter.Schmitt@univie.ac.at +% Institute of Mathematics, University of Vienna Vienna, Austria +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +beginchar(O+0,U#,U#,0u#); "(moon face) full moon"; + corners; centers; + VV:=(BC-BL) rotated 90; + TC:=CC+VV; BC:=CC-VV; D:=U/9; + hh:=(U/6,0); vv:=(0,U/6); + PEN; draw TC..CR..BC..CL..TC..cycle; % circle + Pen; draw CC--(CC-vv); % nose + filldraw fullcircle scaled D shifted (CC-hh+vv/2); % left eye + filldraw fullcircle scaled D shifted (CC+hh+vv/2); % right eye + draw (CC-vv-hh)..(CC-1.8vv)..(CC-vv+hh); % mouth + draw (CC-vv+hh)..(CC-1.5vv)..(CC-vv-hh); + endchar; + +beginchar(O+1,U#,U#,0u#); "(moon face) new moon"; + PEN; fill TC..CR..BC..CL..TC..cycle; % circle + Pen; undraw CC--(CC-vv); % nose + unfilldraw fullcircle scaled D shifted (CC-hh+vv/2); % left eye + unfilldraw fullcircle scaled D shifted (CC+hh+vv/2); % right eye + undraw (CC-vv-hh)..(CC-1.8vv)..(CC-vv+hh); % mouth + undraw (CC-vv+hh)..(CC-1.5vv)..(CC-vv-hh); + endchar; + + path moon; +beginchar(O+2,2/3U#,U#,0u#); "(moon face) last quarter"; + corners; Centers(3/4,1/2); + VV:=(TL-BL)/2; HH:=VV rotated -90; + BC:=BL+HH; TC:=TL+HH; % CL=BL+VV; + R:=length(HH); D:=length(BR-BL); + t:=(R+-+(D-R))/2R; + RT (1/2-t,1/2+t); + rr:=(2u,2u); ll:=(-5u,-3u); mm:=(0,-5u); + moon := bR..BC..CL..TC..tR % outer circle + & tR..{dir -45}(CC+rr) % forehead + & {dir 180}(CC+rr)..(CC+ll)..(CC+2ll){dir 180} % nose + & (CC+2ll){dir -10}..(CC+mm) + & (CC+mm){dir -135}..bR % mouth + & bR--cycle; % chin + D:=U/9; filldraw fullcircle scaled D shifted (CC-hh+vv/2); % eye + Pen; draw moon; + endchar; + + temp := currentpicture; +beginchar(O+3,2/3U#,U#,0u#); "(moon face) first quarter"; + currentpicture := temp xscaled -1 shifted (w,0); + endchar; + +beginchar(O+4,2/3U#,U#,0u#); "(moon face) last quarter - inverse"; + fill moon; + D:=U/9; unfilldraw fullcircle scaled D shifted (CC-hh+vv/2); % eye + endchar; + + temp := currentpicture; +beginchar(O+5,2/3U#,U#,0u#); "(moon face) first quarter - inverse"; + currentpicture := temp xscaled -1 shifted (w,0); + endchar; + +endinput; + +beginchar(O+6,U#,U#,0u#); "full moon"; + corners; centers; + VV:=(BC-BL) rotated 90; + TC:=CC+VV; BC:=CC-VV; D:=U/9; + hh:=(U/6,0); vv:=(0,U/6); + PEN; draw TC..CR..BC..CL..TC..cycle; % circle + endchar; + +beginchar(O+7,U#,U#,0u#); "new moon"; + fill TC..CR..BC..CL..TC..cycle; % disk + shade (CL,CR, BC,TC); + Pen; draw TC..CR..BC..CL..TC..cycle; % circle + endchar; + + temp:=currentpicture; +beginchar(O+8,2/3U#,U#,0u#); "Luna 2 = (moon 2) last quarter"; + corners; Centers(3/4,1/2); + VV:=(TL-BL)/2; HH:=VV rotated -90; + BC:=BL+HH; TC:=TL+HH; % CL=BL+VV; + R:=length(HH); D:=length(BR-BL); + t:=(R+-+(D-R))/2R; + RT (1/2-t,1/2+t); + currentpicture := temp; + Pen; unfilldraw tR..TC..CL..BC..bR % outer circle + & bR..CC..tR % inner arc + & tR--cycle; + cullit; + Pen; draw tR..TC..CL..BC..bR; % outer circle + draw tR..CC..bR; % inner arc + endchar; + + temp := currentpicture; +beginchar(O+9,2/3U#,U#,0u#); "(moon 2) first quarter"; + currentpicture := temp xscaled -1 shifted (w,0); + endchar; + +beginchar(O+9,2/3U#,U#,0u#); "(moon 2) last quarter - inverse"; + PEN; filldraw tR..TC..CL..BC..bR % big circle + & bR..CC..tR -- cycle; % small circle + cullit; addto currentpicture also -temp; cullit; + Pen; draw tR..TC..CL..BC..bR % big circle + & bR..CC..tR -- cycle; % small circle + endchar; + + temp := currentpicture; +beginchar(O+10,2/3U#,U#,0u#); "(moon 2) first quarter - inverse"; + currentpicture := temp xscaled -1 shifted (w,0); + endchar; + +endinput; +%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%% end of ASTROSYM.XTR %%% |