FountainPen.it Forum

Codice: Seleziona tutto

outputtemplate := "%j.mps";

% Foglio con righe guida per metodo Palmer
beginfig(1)

	% Pagina A4
	pagewidth  := 210mm;
	pageheight := 297mm;

	% h1 = riga sopra/sotto; h2 = riga del testo; hs = margine superiore;
	% hi = margine inferiore.
	h1 := 4mm;
	h2 := 3mm;
	hs := 27.5mm; % 1"
	hi := 13.75mm; % 1/2"

	% posizione dei margini verticali
	x1 := 10mm;
	x2 := pagewidth - x1; % simmetrico


	% funzione di disegno riga verticale
	def vline(expr x, sp, col) =
		draw (x, -0-sp/2) -- (x, -pageheight+sp/2)
			withpen pencircle scaled sp
			withcolor col;
	enddef;

	% funzione di disegno riga orizzontale
	def hline(expr y, sp, col) =
		draw (0+sp/2, y) -- (pagewidth-sp/2, y)
			withpen pencircle scaled sp
			withcolor col;
	enddef;

	% funzione che compone i "blocchi" delle righe, formati dalla riga superiore di
	% riferimento, da quella di base (più grossa), e da quella "inferiore" che delimita
	% le gambe discendenti (e, incidentalmente, forma il limite per le ascendenti
	% successive: volendo staccare i blocchi, occorrerebbe una riga in più).
	def row (expr y) =
		hline (y-h1, 0.36pt, 0.5white);
		hline (y-h1-h2, 0.56pt, 0.0white); % piu' grossa e scura la linea di base
		hline (y-2*h1-h2, 0.36pt, 0.5white);
	enddef;

	% Inizio il disegno effettivo.
	
	% Margini:
	vline (x1, 0.32pt, 0.8red);
	vline (x2, 0.32pt, 0.8red);

	% Prima riga orizzontale:
	hline (-hs, 0.28pt, 0.7white);

	% Le altre righe orizzontali, raggruppate nei "blocchi" generati dalla funzione "row".
	for i:=0 upto 22:
		row (-hs-i*(2*h1+h2));
	endfor;

endfig;

end

Codice: Seleziona tutto

	% funzione di disegno righe diagonali. L'angolo lo inverto poiche' lo intendo
	% con le righe inclinate "in avanti" nel senso di scrittura.
	def dline(expr x, ang) =
		draw (x, -hs) -- (x, -pageheight+35mm) rotated (360-ang)
			withpen pencircle scaled -0.28pt % qui fisso
			withcolor 0.5white; % qui fisso
	enddef;