Matemaatilise teksti küljendamine 2016/17 sügis

Praktikum 10

1. Metaposti joonised (Postscript). Võtke fail joonised.tex ja koostage sinna nõutavad MetaPost-keeles joonised. Näidiseks on fail joonised_naidis.pdf.
   Lisapaketid:
   GeometriePlus.mp
   geometry2d.mp
   labelauto.mp
   Kompileerimine käsureal:
   mpost joonis.mp
   või
   mpost -tex=latex joonis.mp
   MetaPosti käsud:
   • beginfig(5); . . . endfig; joonis nr. 5, kompileerimisel tekib joonis.5
   • numeric x; muutuja x tüübiks on reaalarv
   • pair A; muutuja A tüübiks on punkt
   • path p; muutuja p tüübiks on joon
   • x := 5; omistamine
   • draw p; joonistab joone p
   • (0cm,2cm)--(3cm,4cm)..(-5cm,1cm)--cycle joone konstrueerimine, -- määrab ühenduslüliks sirglõigu, .. määrab ühenduslüliks kõverjoone, cycle näitab, et algus- ja lõpp-punkt langevad kokku
   • fullcircle scaled 4cm ringjoon läbimõõduga 4 cm
   • p shifted (1cm,-3cm) joon p nihutatud vektori (1cm,-3cm) võrra
   • p rotated 45 joon p pööratud 45 kraadi vastupäeva ümber nullpunkti
   • draw p withpen pencircle scaled 2pt joonepaksus
   • fill p withcolor (1, 0.8, 0.8) täitmisvärv RGB-süsteemis (kanalid skaalal 0-st 1-ni)
   • label(btex $\frac{1}{2}$ etex, (3cm, 1cm)) tekst 1/2 antud punktis
   • label.top, label.bot, label.rt, label.lft, label.ulft jne teksti asukoht punkti suhtes
   • for i := 0 upto 5:
draw (i*1cm, 4cm)--(i*1cm,5cm);
endfor; tsükkel
   • if (i > 3):
draw (i*1cm, 4cm)--(i*1cm,5cm);
fi; valikulause
   • input labelauto; lisapakett tekstide panekuks, võimaldab käsku circlabel.auto, kus tekst pannakse punkti lähedale sinna, kus on tühja ruumi
   • input geometry2d;
input GeometriePlus; lisapaketid geomeetria konstruktsioonide arvutamiseks (lõikepunktid, sise- ja ümberringjooned jms)
   • verbatimtex
\documentclass{article}
\usepackage[T1]{fontenc}
\usepackage[estonian]{babel}
\usepackage{mathpazo}
\begin{document}
etex; lisaseadistused ja makrod, mõjuvad kõigile tekstidele
2. Metaposti joonised (PDF). Paigutada joonise lähtekoodi algusse järgmine abifunktsioon:

def genereeri(expr w, h, base) =
begingroup
write "\documentclass{article}" to base&".tex";
write "\usepackage{geometry}" to base&".tex";
write "\usepackage[pdftex]{graphicx}" to base&".tex";
write "\DeclareGraphicsRule{*}{mps}{*}{}" to base&".tex";
write "\geometry{papersize={"& decimal(ceiling(w)) & "bp," &%
decimal(ceiling(h)) & "bp}}" to base&".tex";
write "\geometry{margin={0bp,0bp}}" to base&".tex";
write "\geometry{noheadfoot,nomarginpar}" to base&".tex";
write "\begin{document}" to base&".tex";
write "\thispagestyle{empty}" to base&".tex";
write "\noindent\includegraphics{" & jobname & "." &%
decimal(charcode) & "}" to base&".tex";
write "\end{document}" to base&".tex";
write EOF to base&".tex";
endgroup
enddef;

Iga joonise lõppu paigutage järgmine kood:

numeric w,h;
w := xpart urcorner bbox currentpicture -%
xpart llcorner bbox currentpicture;
h := ypart urcorner bbox currentpicture -%
ypart llcorner bbox currentpicture;
string base;
base:=jobname&"_"&decimal(charcode);
genereeri(w, h, base);

Tulemusena tekib lisaks failidele joonis.1, joonis.2 jne, ka failid joonis_1.tex, joonis_2.tex, mida saab kompileerida käsuga pdflatex. Sellega saadakse joonised PDF-failidena kujul joonis_1.pdf, joonis_2.pdf jne.
NB! Samal moel tuleb joonised genereerida ka kodutöö lahendamisel.