From 03dbd8d63e1b42f1d938aa9ad1a5e2e731576beb Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 30 Jun 2008 18:49:44 +0000 Subject: etex-pkg separated, should do the rest too git-svn-id: svn://tug.org/texlive/trunk@9121 c570f23f-e606-0410-a88d-b1316a301751 --- .../doc/fonts/archaic/greek4cbc/givbc10.mf | 921 ------------------ .../doc/fonts/archaic/greek6cbc/gvibc10.mf | 354 ------- Master/texmf-dist/doc/fonts/archaic/linearA-README | 9 + .../doc/fonts/archaic/linearA/afm/LinearA.afm | 198 ++++ .../archaic/linearA/afm/LinearACmplxSigns.afm | 231 +++++ .../fonts/archaic/linearA/doc/linearA_glyphs.pdf | Bin 0 -> 185847 bytes .../doc/fonts/archaic/linearA/dvips/linearA.map | 2 + .../doc/fonts/archaic/linearA/latex/linearA.dtx | 529 +++++++++++ .../doc/fonts/archaic/linearA/latex/linearA.ins | 52 + .../doc/fonts/archaic/linearA/tfm/LinearA.tfm | Bin 0 -> 1232 bytes .../archaic/linearA/tfm/LinearACmplxSigns.tfm | Bin 0 -> 1696 bytes .../doc/fonts/archaic/linearA/type1/LinearA.pfb | Bin 0 -> 60131 bytes .../archaic/linearA/type1/LinearACmplxSigns.pfb | Bin 0 -> 93837 bytes .../doc/fonts/archaic/oldprsn/copsn10.mf | 1001 -------------------- .../fonts/archaic/phaistos/OpenType/Phaistos.otf | Bin 0 -> 40044 bytes .../doc/fonts/archaic/phaistos/afm/phaistos.afm | 68 ++ .../doc/fonts/archaic/phaistos/dvips/phaistos.map | 1 + .../doc/fonts/archaic/phaistos/latex/phaistos.dtx | 264 ++++++ .../doc/fonts/archaic/phaistos/latex/phaistos.ins | 55 ++ .../doc/fonts/archaic/phaistos/tfm/phaistos.tfm | Bin 0 -> 580 bytes .../doc/fonts/archaic/phaistos/type1/phaistos.pfb | Bin 0 -> 156175 bytes .../doc/fonts/archaic/phaistos/var/getglyphs | 31 + .../doc/fonts/archaic/phaistos/var/glyphTable.pdf | Bin 0 -> 185096 bytes .../doc/fonts/archaic/sarabian/sarab10.mf | 321 ------- .../doc/fonts/archaic/viking/vikglyph.mf | 394 -------- .../doc/fonts/archaic/viking/viktitle.mf | 52 - 26 files changed, 1440 insertions(+), 3043 deletions(-) delete mode 100644 Master/texmf-dist/doc/fonts/archaic/greek4cbc/givbc10.mf delete mode 100644 Master/texmf-dist/doc/fonts/archaic/greek6cbc/gvibc10.mf create mode 100644 Master/texmf-dist/doc/fonts/archaic/linearA-README create mode 100644 Master/texmf-dist/doc/fonts/archaic/linearA/afm/LinearA.afm create mode 100644 Master/texmf-dist/doc/fonts/archaic/linearA/afm/LinearACmplxSigns.afm create mode 100644 Master/texmf-dist/doc/fonts/archaic/linearA/doc/linearA_glyphs.pdf create mode 100644 Master/texmf-dist/doc/fonts/archaic/linearA/dvips/linearA.map create mode 100644 Master/texmf-dist/doc/fonts/archaic/linearA/latex/linearA.dtx create mode 100644 Master/texmf-dist/doc/fonts/archaic/linearA/latex/linearA.ins create mode 100644 Master/texmf-dist/doc/fonts/archaic/linearA/tfm/LinearA.tfm create mode 100644 Master/texmf-dist/doc/fonts/archaic/linearA/tfm/LinearACmplxSigns.tfm create mode 100644 Master/texmf-dist/doc/fonts/archaic/linearA/type1/LinearA.pfb create mode 100644 Master/texmf-dist/doc/fonts/archaic/linearA/type1/LinearACmplxSigns.pfb delete mode 100644 Master/texmf-dist/doc/fonts/archaic/oldprsn/copsn10.mf create mode 100644 Master/texmf-dist/doc/fonts/archaic/phaistos/OpenType/Phaistos.otf create mode 100644 Master/texmf-dist/doc/fonts/archaic/phaistos/afm/phaistos.afm create mode 100644 Master/texmf-dist/doc/fonts/archaic/phaistos/dvips/phaistos.map create mode 100644 Master/texmf-dist/doc/fonts/archaic/phaistos/latex/phaistos.dtx create mode 100644 Master/texmf-dist/doc/fonts/archaic/phaistos/latex/phaistos.ins create mode 100644 Master/texmf-dist/doc/fonts/archaic/phaistos/tfm/phaistos.tfm create mode 100644 Master/texmf-dist/doc/fonts/archaic/phaistos/type1/phaistos.pfb create mode 100644 Master/texmf-dist/doc/fonts/archaic/phaistos/var/getglyphs create mode 100644 Master/texmf-dist/doc/fonts/archaic/phaistos/var/glyphTable.pdf delete mode 100644 Master/texmf-dist/doc/fonts/archaic/sarabian/sarab10.mf delete mode 100644 Master/texmf-dist/doc/fonts/archaic/viking/vikglyph.mf delete mode 100644 Master/texmf-dist/doc/fonts/archaic/viking/viktitle.mf (limited to 'Master/texmf-dist/doc/fonts') diff --git a/Master/texmf-dist/doc/fonts/archaic/greek4cbc/givbc10.mf b/Master/texmf-dist/doc/fonts/archaic/greek4cbc/givbc10.mf deleted file mode 100644 index e2e190fa50c..00000000000 --- a/Master/texmf-dist/doc/fonts/archaic/greek4cbc/givbc10.mf +++ /dev/null @@ -1,921 +0,0 @@ -%% -%% This is file `givbc10.mf', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% greek4cbc.dtx (with options: `up') -%% ------------------------------------------------------------------ -%% Author: Peter Wilson (Herries Press) herries dot press at earthlink dot net -%% Copyright 1999--2005 Peter R. Wilson -%% -%% This work may be distributed and/or modified under the -%% conditions of the Latex Project Public License, either -%% version 1.3 of this license or (at your option) any -%% later version. -%% The latest version of the license is in -%% http://www.latex-project.org/lppl.txt -%% and version 1.3 or later is part of all distributions of -%% LaTeX version 2003/06/01 or later. -%% -%% This work has the LPPL maintenance status "author-maintained". -%% -%% This work consists of the files listed in the README file. -%% ------------------------------------------------------------------ - %%% GIVBC10.MF Computer Greek 4 century BC font 10 point design size. - -if unknown cmbase: input cmbase fi - -font_identifier:="GIVBC"; font_size 10pt#; - -u#:=20/36pt#; % unit width -letter_fit#:=0pt#; % extra space added to all sidebars - -body_height#:=270/36pt#; % height of tallest characters -asc_height#:=250/36pt#; % height of lowercase ascenders -cap_height#:=246/36pt#; % height of caps -fig_height#:=232/36pt#; % height of numerals -x_height#:=155/36pt#; % height of lowercase without ascenders -desc_depth#:=70/36pt#; % depth of lowercase descenders -half_height#:=1/2cap_height#; % half the height of caps - -side#:=cap_height#; % Height and width of the square -thickfudge:=1/9; -thick#:=thickfudge*side#; % thickness of all lines in the font - -rule_thickness#:=.4pt#; % thickness of lines - -cap_stem#:=thick#; % thickness of majuscule stems - -o#:=8/36pt#; % amount of overshoot for curves -apex_o#:=thin#; % amount of overshoot for diagonal junctions -apex_corr#=0pt#; % fine tuning of overshoot - -slant:=0; % tilt ratio $(\Delta x/\Delta y)$ - -serifs:=false; % should serifs and bulbs be attached? -monospace:=false; % should all characters have the same width? - -dot_size#:=38/36pt#; % size of dots -square_dots:=false; % should dots be square? - -boolean whole_font; % try generating a complete font? -whole_font:=false; - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% MACRO SECTION %%%%%%%%%%%%%%%%%%%%%%%%%% -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -def makebox(text rule) = - for y=0,half_height,cap_height,body_height,x_height,-desc_depth,-body_depth: - rule((l,y)t_,(r,y)t_); endfor % horizontals - for x=l,r: rule((x,-body_depth)t_,(x,body_height)t_); endfor % verticals - for x=u*(1+floor(1/u)) step u until r-1: - rule((x,-body_depth)t_,(x,body_height)t_); endfor % more verticals - if charic<>0: - rule((r+charic*pt,h.o_),(r+charic*pt,.5h.o_)); fi % italic correction -enddef; - - -def proofpcbb(suffix $)(expr xoff, yoff) = -if proofing > 0: - x$bl = x$ - xoff; y$bl = y$ - yoff; % Bottom Left Hand Corner - z$br = (x$bl+cap_height, y$bl); % BRHC - z$tr = (x$bl+cap_height, y$bl+cap_height); % TRHC - z$tl = (x$bl, y$bl+cap_height); % TLHC - z$bc = 1/2[z$bl,z$br]; z$tc = 1/2[z$tl,z$tr]; % horizontal mid points - pair hc, vc; - hc = (2u,0); vc = (0,2u); - pickup pensquare scaled 2; - for s = z$bl, z$br, z$tr, z$tl, z$bc, z$tc: - draw s-hc--s+hc; - draw s-vc--s+vc; - endfor -fi -enddef; - - -let cm_font_setup=font_setup; % Knuth's original font_setup - - -def greek_font_setup= % contains special stuff for archaic Greek font - define_pixels(u); - define_pixels(side,thick,half_height); - let adjust_fit=normal_adjust_fit; - define_whole_pixels(letter_fit); - define_whole_vertical_pixels(body_height,asc_height, - cap_height,x_height,desc_depth); - body_depth:=desc_depth+body_height-asc_height; - define_pixels(dot_size); - shrink_fit:=1+hround(2letter_fit#*hppp)-2letter_fit; - if not string mode: - if mode<=smoke: - shrink_fit:=0; - fi - fi -enddef; - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% END OF MACROS %%%%%%%%%%%%%%%%%%%%%%%%%% -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - - -font_coding_scheme:="ASCII caps and miniscules"; - -mode_setup; - -greek_font_setup; - -numeric pcshiftx#; % x value of LHS of box wrt origin of char box -define_pixels(pcshiftx); - - -font_slant slant; -font_x_height x_height#; -if monospace: font_normal_space 9u#; % no stretching or shrinking - font_quad 18u#; - font_extra_space 9u#; -else: font_normal_space 6u#+2letter_fit#; - font_normal_stretch 3u#; font_normal_shrink 2u#; - font_quad 18u#+4letter_fit#; - font_extra_space 2u#; -fi - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - - -cmchar "Greek 394BC letter alpha (a)"; -beginchar("a", 2u#+side#+2thick#, cap_height#, 0); -adjust_fit(0,0); -pcshiftx := u+thick; -y100 = h/2; x100 = pcshiftx+y100; % center point -numeric alpha[], hor, vert, hypot, theta; -pair greek[]; -hor := 0.5h; vert := h-thick; -greek1 = (hor, vert); -theta = 270 + angle(greek1); - % for left leg -penpos1(thick,theta); penpos2(thick,theta); - % and for the right leg -penpos3(thick,-theta); penpos4(thick,-theta); -rt x1r=pcshiftx; lft x4l=x1r+side; -bot y1r=bot y4l=0; -top y3r= top y2l=h; -x3r=x2l = 0.5[x1r,x4l]; -z0=whatever[z1r,z2r]=whatever[z3l,z4l]; - % draw the legs -filldraw z1l--z2l--z4r--z4l--z0--z1r--cycle; - % now for the bar -y5l=y6l=hround(1/3h); -y5r-y5l=y6r-y6l=thick; -penpos5(whatever, angle(z2-z1)); penpos6(whatever, angle(z3-z4)); -z5=whatever[z1,z2]; z6=whatever[z3,z4]; -penstroke z5e--z6e; % bar line -proofpcbb(100, y100, y100); -penlabels(0,1,2,3,4,5,6,100); endchar; - - -cmchar "Greek 394BC letter beta (b)"; -beginchar("b",4u#+5/9side#, cap_height#, 0); -adjust_fit(0,0); -pcshiftx := 2u; -y100=h/2; x100=pcshiftx+y100; % square center -penpos1(thick,0); penpos2(thick,0); -y2l=0; y1l=h; x1l=x2l=pcshiftx; -numeric alpha, long, short, hypot; -long=(w-2pcshiftx); short=h/4; hypot=short++long; -alpha := hypot/long; -penpos3(alpha*thick,90); penpos4(alpha*thick,90); -penpos5(alpha*thick,90); penpos6(alpha*thick,90); -z3l=z2l; -x4l=w-pcshiftx; y4l=0.25[y2l,y1l]; -z5r=z4l; -x6l=x2r; y6l=0.5[y2l,y1l]; -penpos7(alpha*thick,90); penpos8(alpha*thick,90); -penpos9(alpha*thick,90); penpos10(alpha*thick,90); -z7r=z6l; -x8l=x4l; y8l=0.75[y2l,y1l]; -z9r=z8l; -z10r=z1l; -z11=whatever[z2r,z1r]=whatever[z3r,z4r]; % bottom bowl and stem -z12=whatever[z3r,z4r]=whatever[z6l,z5l]; % bottom bowl inner -z13=whatever[z5r,z6r]=whatever[z7l,z8l]; % between the bowls -z14=whatever[z7r,z8r]=whatever[z9l,z10l]; % top bowl inner -z15=whatever[z2r,z1r]=whatever[z9l,z10l]; % top bowl and stem -filldraw z1l--z2l--z4l--z13--z8l--cycle; -unfilldraw z6l--z12--z11--cycle; -unfilldraw z7r--z15--z14--cycle; -proofpcbb(100, y100, y100); -penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,100); -endchar; - - -cmchar "Greek 394BC letter gamma (g)"; -beginchar("g",2u#+thick#+2/3side#, cap_height#, 0); -adjust_fit(0, 0); -pcshiftx := u; -y100 = h/2; x100 = pcshiftx + y100; % center point -penpos1(thick,0); penpos2(thick,0); -x1l=x2l=pcshiftx; top y1l=h; bot y2l=0; -filldraw stroke z1e--z2e; -penpos3(thick,90); penpos4(thick,90); -y3r=y4r=y1l; x3l=x1l; x4l=w-pcshiftx; -filldraw stroke z3e--z4e; -proofpcbb(100, y100, y100); -penlabels(1,2,3,4,100); endchar; - - -cmchar "Greek 394BC letter delat (d)"; -beginchar("d", 2u#+side#+2thick#, cap_height#, 0); -adjust_fit(0,0); -pcshiftx := u+thick; -y100 = h/2; x100 = pcshiftx+y100; % center point -numeric alpha, hor, vert, hypot, theta; -pair greek[]; -hor := 0.5h; vert := h-thick; -greek1 = (hor, vert); -theta = 270 + angle(greek1); - % for left leg -penpos1(thick,theta); penpos2(thick,theta); - % and for the right leg -penpos3(thick,-theta); penpos4(thick,-theta); -rt x1r=pcshiftx; lft x4l=x1r+side; -bot y1r=bot y4l=0; -top y2l= top y3r=h; -x3r=x2l = 0.5[x1r,x4l]; -z0=whatever[z1r,z2r]=whatever[z3l,z4l]; - % now for the bar -penpos5(thick,90); penpos6(thick,90); -bot y5l=bot y6l=0; -x5l=pcshiftx; x6l=w-pcshiftx; -z7=whatever[z1l,z2l]=whatever[z5l,z6l]; -z8=whatever[z3r,z4r]=whatever[z5l,z6l]; -z9=whatever[z1r,z2r]=whatever[z5r,z6r]; -z10=whatever[z3l,z4l]=whatever[z5r,z6r]; -filldraw z7--z2l--z8--cycle; -unfilldraw z9--z0--z10--cycle; -proofpcbb(100, y100, y100); -penlabels(0,1,2,3,4,5,6,7,8,9,10,100); endchar; - - -cmchar "Greek 394BC letter epsilon (e)"; -beginchar("e", 2u#+2/3side#+2thick#, cap_height#,0); -adjust_fit(0,0); -pcshiftx := u; -y100=h/2; x100=pcshiftx+y100; % center point -penpos1(thick,0); penpos2(thick,0); -lft x1l=lft x2l=pcshiftx; top y1=h; bot y2=0; -filldraw stroke z1e--z2e; % stem -penpos5(thick,90); penpos6(thick,90); -x5=x1; y5=y6=h/2; rt x6=pcshiftx + 2/3side; -filldraw stroke z5e--z6e; -penpos3(thick,90); penpos4(thick,90); -x3=x1; top y3r=top y4r=h; x4=x6+thick; -filldraw stroke z3e--z4e; -penpos7(thick,90); penpos8(thick,90); -x7=x1; bot y7l=bot y8l=0; x8=x6+2thick; -filldraw stroke z7e--z8e; -proofpcbb(100, y100, y100); -penlabels(1,2,3,4,5,6,7,8,100); endchar; % end of "E" - - -cmchar "Greek 394BC letter zeta (z)"; -beginchar("z", 2u#+side#, cap_height#,0); -adjust_fit(0, 0); -pcshiftx := u; -y100=h/2; x100=pcshiftx+y100; % center of square -numeric alpha, hor, vert, hypot; -vert=h; hor=4/5side; hypot=vert++hor; -alpha=hypot/vert; -penpos1(thick,90); penpos2(thick,90); penpos3(alpha*thick, 0); -penpos4(alpha*thick, 0); -top y1r=h; lft x1=pcshiftx; -y2=y1; rt x2=x3; -rt x3r=x1+4/5side;; top y3=h; x4l=x1; bot y4=0; -filldraw stroke z1e--z2e; % top bar -filldraw stroke z3e--z4e; % diagonal -penpos8(thick,90); penpos9(thick,90); -x8=x4; bot y8l=0; -x9=pcshiftx+side; y9=y8; -filldraw stroke z8e--z9e; -proofpcbb(100, y100, y100); -penlabels(1,2,3,4,5,6,7,8,9,100); endchar; - - -cmchar "Greek 394BC letter eta (h)"; -beginchar("h", 4u#+side#, cap_height#,0); -adjust_fit(0,0); -pcshiftx := 2u; -y100 = h/2; x100 = pcshiftx + y100; % center point -penpos1(thick,0); penpos2(thick,0); -lft x1l=lft x2l=pcshiftx; bot y1=0; top y2=h; -filldraw stroke z1e--z2e; -penpos3(thick,0); penpos4(thick,0); -rt x3r= rt x4r= x1l+side; bot y3=0; top y4=h; -filldraw stroke z3e--z4e; -penpos5(thick,90); penpos6(thick,90); -x5=x1; x6=x3; y5=y6=h/2; -filldraw stroke z5e--z6e; -proofpcbb(100, y100, y100); -labels(1,2,3,4,5,6,100); endchar; - - -cmchar "Greek 394BC letter theta (T)"; -beginchar("T", 2u#+side#, cap_height#, 0); -adjust_fit(0,0); -pcshiftx := u; -y100=h/2; x100=pcshiftx+y100; % square center -numeric alpha; alpha=0.75; -x2r=pcshiftx; x4r=x2r+h; y2r=y4r=y100; -y1r=h; y3r=0; x1r=x3r=x100; -x2l=x2r+thick; x4l=x4r-thick; y2l=y4l=y2r; -y1l=y1r-thick; y3l=y3r+thick; x1l=x3l=x1r; -filldraw z1r..z2r..z3r..z4r..cycle; -unfilldraw z1l..z2l..z3l..z4l..cycle; -x12=x100-alpha*thick; x14=x100+alpha*thick; y12=y14=y100; -y11=y100+alpha*thick; y13=y100-alpha*thick; x11=x13=x100; -path p; -p= z11..z12..z13..z14..cycle; -filldraw p; filldraw p; -proofpcbb(100, y100, y100); -penlabels(1,2,3,4,100); endchar; - - -cmchar "Greek 394BC letter iota (i)"; -beginchar("i", 4u#+thick#, cap_height#,0); -adjust_fit(0,0); -pcshiftx := 2u; -y100 = h/2; x100 = pcshiftx + 0.5thick; % center point -penpos1(thick,0); penpos2(thick,0); -x1=x2=hround(w/2); top y1=h; bot y2=0; -filldraw stroke z1e--z2e; % vertical stem -proofpcbb(100, y100, y100); -penlabels(1, 2, 100); -endchar; - - -cmchar "Greek 394BC letter kappa (k)"; -beginchar("k", 2u#+2/3side#, cap_height#,0); -adjust_fit(0,0); -pcshiftx := u; -y100=h/2; x100=pcshiftx+y100; % square center -penpos1(thick,0); penpos2(thick,0); -lft x1l=lft x2l=pcshiftx; - top y1=h; bot y2=0; - filldraw stroke z1e--z2e; % left stem -numeric hor, vert, theta[]; -pair greek[]; -hor := 2/3side; vert := side/2; -greek1 = (hor,vert); -theta1=270+angle(greek1); -penpos3(thick,theta1); penpos4(thick,theta1); -x3l=x2r; y3l=side/2; -y4l=h; x4r=x1l+2/3side; -vert := -side/4; -greek2 = (hor,vert); -theta2=270+angle(greek2); -penpos5(thick,theta2); penpos6(thick,theta2); -z5r=z3l; -x6l=x4r; y6l=side/4; -z0=whatever[z3r,z4r]=whatever[z5l,z6l]; -filldraw z3l--z4l--z4r--z0--z6l--z6r--cycle; -proofpcbb(100, y100, y100); -penlabels(0,1,2,3,4,5,6,100); endchar; - - -cmchar "Greek 394BC letter lambda (l)"; -beginchar("l", 2u#+side#+2thick#, cap_height#,0); -adjust_fit(0,0); -pcshiftx := u+thick; -y100 = h/2; x100 = pcshiftx+y100; % center point -numeric alpha[], hor, vert, hypot, theta; -pair greek[]; -hor := 0.5h; vert := h-thick; -greek1 = (hor, vert); -theta = 270 + angle(greek1); - % for left leg -penpos1(thick,theta); penpos2(thick,theta); - % and for the right leg -penpos3(thick,-theta); penpos4(thick,-theta); -rt x1r=pcshiftx; lft x4l=x1r+side; -bot y1r=bot y4l=0; -top y3r= top y2l=h; -x3r=x2l = 0.5[x1r,x4l]; -z0=whatever[z1r,z2r]=whatever[z3l,z4l]; - % draw the legs -filldraw z1l--z2l--z4r--z4l--z0--z1r--cycle; -proofpcbb(100, y100, y100); -penlabels(0,1,2,3,4,100); endchar; % end of "L" - - -cmchar"Greek 394BC letter mu (m)"; -beginchar("m", 2u#+side#+2thick#, cap_height#, 0); -adjust_fit(0,0); -pcshiftx := u+thick; -y100=h/2; x100=pcshiftx+y100; % square center -numeric alpha, hor, vert, hypot, theta[]; -pair greek[]; -hor := 3thick; vert := side; -greek1 = (hor, vert); -theta1 = 270 + angle(greek1); -penpos1(thick,theta1); penpos2(thick,theta1); -z1r=(pcshiftx,0); z2l=(pcshiftx+2thick,h); -penpos3(thick,-theta1); penpos4(thick,-theta1); -z3l=(pcshiftx+side,0); z4r=(pcshiftx+side-2thick,h); -z0=z100; -theta2 = 270 + angle(z4r-z0); -penpos5(thick,-theta2); penpos6(thick,-theta2); -z5r=z0; z6r=z2l; -penpos7(thick,theta2); penpos8(thick,theta2); -z7l=z0; z8l=z4r; -z9=whatever[z1r,z2r]=whatever[z5l,z6l]; -z10=whatever[z5l,z6l]=whatever[z7r,z8r]; -z11=whatever[z7r,z8r]=whatever[z3l,z4l]; -filldraw z1l--z2l--z0--z4r--z3r--z3l--z11--z10--z9--z1r--cycle; -proofpcbb(100, y100, y100); -penlabels(0,1,2,3,4,5,6,7,8,9,10,100); endchar; - - -cmchar "Greek 394BC letter nu (n)"; -beginchar("n", 4u#+side#, cap_height#,0); -adjust_fit(0,0); -pcshiftx := 2u; -y100 = h/2; x100 = pcshiftx + y100; % center point -numeric hor, vert, theta; -pair greek[]; -hor = side-thick; vert = h; -greek1=(hor,vert); -theta=270 + angle(greek1); -penpos1(thick,0); penpos2(thick,0); -z1l=(pcshiftx,0); z2l=(pcshiftx,h); -penpos3(thick,0); penpos4(thick,0); -z3r=(pcshiftx+side,0); z4r=(pcshiftx+side,h); -penpos5(thick,-theta); penpos6(thick,-theta); -z5l=z3r; z6r=z2l; -z7=whatever[z1r,z2r]=whatever[z5l,z6l]; -z8=whatever[z5r,z6r]=whatever[z3l,z4l]; -filldraw z1l--z2l--z8--z4l--z4r--z3r--z7--z1r--cycle; -proofpcbb(100, y100, y100); -penlabels(1,2,3,4,5,6,7,8,100); endchar; - - -cmchar "Greek 394BC letter xi (x)"; -beginchar("x", 2u#+side#, cap_height#, 0); -adjust_fit(0,0); -pcshiftx := u; -y100 = h/2; x100 = pcshiftx + y100; % center point -penpos1(thick,0); penpos2(thick,0); -z1=(x100,0); z2=(x100,h); -filldraw stroke z1e--z2e; -penpos3(thick,90); penpos4(thick,90); -z3r=(pcshiftx,h); z4r=(pcshiftx+side,h); -filldraw stroke z3e--z4e; -penpos5(thick,90); penpos6(thick,90); -z5=(pcshiftx,h/2); z6=(pcshiftx+side,h/2); -filldraw stroke z5e--z6e; -penpos7(thick,90); penpos8(thick,90); -z7l=(pcshiftx,0); z8l=(pcshiftx+side,0); -filldraw stroke z7e--z8e; -proofpcbb(100, y100, y100); -penlabels(1,2,3,4,5,6,7,8,100); -endchar; - - -cmchar "Greek 394BC letter omicron (o)"; -beginchar("o", 2u#+side#, cap_height#, 0); -adjust_fit(0,0); -pcshiftx := u; -y100=h/2; x100=pcshiftx+y100; % square center -x2r=pcshiftx; x4r=x2r+h; y2r=y4r=y100; -y1r=h; y3r=0; x1r=x3r=x100; -x2l=x2r+thick; x4l=x4r-thick; y2l=y4l=y2r; -y1l=y1r-thick; y3l=y3r+thick; x1l=x3l=x1r; -filldraw z1r..z2r..z3r..z4r..cycle; -unfilldraw z1l..z2l..z3l..z4l..cycle; -proofpcbb(100, y100, y100); -penlabels(1,2,3,4,100); endchar; - - -cmchar "Greek 394BC letter pi (p)"; -beginchar("p", 4u#+side#, cap_height#, 0); -adjust_fit(0, 0); -pcshiftx := 2u; -y100 = h/2; x100 = pcshiftx + y100; % center point -penpos1(thick,0); penpos2(thick,0); -x1l=x2l=pcshiftx; top y1l=h; bot y2l=0; -filldraw stroke z1e--z2e; -penpos3(thick,90); penpos4(thick,90); -y3r=y4r=y1l; x3l=x1l; x4l=w-pcshiftx; -filldraw stroke z3e--z4e; -penpos5(thick,0); penpos6(thick,0); -x5r=x6r=x4; top y5=h; bot y6=h/2; -filldraw stroke z5e--z6e; -proofpcbb(100, y100, y100); -penlabels(1,2,3,4,5,6,100); endchar; - - -cmchar "Greek 394BC letter rho (r)"; -beginchar("r", 2u#+5/9side#, cap_height#,0); -adjust_fit(0, 0); -pcshiftx := u; -y100=h/2; x100=pcshiftx+y100; % square center -penpos1(thick,0); penpos2(thick,0); - top lft z1l=(pcshiftx,h); bot lft z2l=(pcshiftx,0); -filldraw stroke z1e--z2e; % vertical stem -penpos3(thick,90); penpos4(thick,0); penpos5(thick,-90); -top y3r=top y1; x3r=x1r; -bot y5r=5/9[y1,y2]; x5=x3; -x4r=x1l+5/9side; y4=0.5[y5r,y3r]; -filldraw z3r{right}..z4r{down}..z5r{left}--z5l{right}..z4l{up}..z3l{left}--cycle; -proofpcbb(100, y100, y100); -penlabels(1,2,3,4,5,100); -endchar; - - -cmchar "Greek 394BC letter sigma (s)"; -beginchar("s", 2u#+2/3side#, cap_height#, 0); -adjust_fit(0,0); -pcshiftx := u; -y100 = h/2; x100 = pcshiftx+y100; % square center -pair greek[]; -numeric theta[]; -numeric hor, vert; -hor := 2/3side; vert := 1/3h; -greek1=(hor,vert); -theta1=270+angle(greek1); -penpos1(thick,-theta1); penpos2(thick,-theta1); -penpos7(thick,theta1); penpos8(thick,theta1); -hor := 2/3side-thick; vert := h/2 - h/3; -greek2=(hor,vert); -theta2=270-angle(greek2); -penpos3(thick,theta2); penpos4(thick,theta2); -penpos5(thick,-theta2); penpos6(thick,-theta2); -y1l=0; x1r=pcshiftx+2/3side; -z2l=(pcshiftx,h/3); -z3l=z2l; -z4r=(pcshiftx+2/3side-thick, h/2); -z5r=z4r; -z6l=(pcshiftx,2/3h); -z7l=z6l; -y8l=h; x8r=x1r; -z10=whatever[z1r,z2r]=whatever[z3r,z4r]; -z11=whatever[z3l,z4l]=whatever[z5l,z6l]; -z12=whatever[z5r,z6r]=whatever[z7r,z8r]; -filldraw z1l--z2l--z11--z6l--z8l--z8r--z12--z4r--z10--z1r--cycle; -proofpcbb(100, y100, y100); -penlabels(1,2,3,4,5,6,7,8,10,11,12,100); endchar; - - -cmchar "Greek 394BC letter tau (t)"; -beginchar("t",2u#+side#, cap_height#,0); -adjust_fit(0,0); -pcshiftx := u; -y100=h/2; x100=pcshiftx+y100; % square center -numeric hor, vert, theta; -numeric alpha[]; pair greek[]; -alpha1=h-thick; -penpos1(thick,0); penpos2(thick,0); -z1=(w/2,0); z2=(w/2,alpha1); -filldraw stroke z1e--z2e; -penpos3(thick,90); penpos4(thick,90); -z3r=(pcshiftx,alpha1); z4r=(w/2,alpha1); -filldraw stroke z3e--z4e; -hor := w/2; vert := h/5; -greek1=(hor,vert); -theta = 270 + angle(greek1); -penpos5(thick,theta); -y5l=h; x5r=w-pcshiftx; -filldraw z4l{right}..{greek1}z5r--z5l{-greek1}..{left}z4r--cycle; -proofpcbb(100, y100, y100); -penlabels(1,2,3,4,5,100); endchar; - - -cmchar "Greek 394BC letter upsilon (y)"; -beginchar("y", 2u#+side#, cap_height#, 0); -adjust_fit(0,0); -pcshiftx := u; -y100=h/2; x100=pcshiftx+y100; % center of square -numeric alpha, theta; -numeric hor, vert; -pair greek[]; -alpha=h/3; -hor := h; vert := 0.75h; -greek1 = (hor,vert); greek2 = (-hor, -vert); -greek3 = (-hor,vert); greek4 = (hor, -vert); -theta = 270 + angle(greek1); -penpos1(thick,0); penpos2(thick,0); -z1=(w/2,0); z2=(w/2,alpha); -penpos3(thick,theta); -y3l=h; x3r=w-pcshiftx; -penpos4(thick,-theta); -y4r=h; x4l=pcshiftx; -filldraw z1l--z1r--z2r{up}..{greek1}z3r--z3l{greek2}..{down}z2l--cycle; -filldraw z1l--z1r--z2r{up}..{greek3}z4r--z4l{greek4}..{down}z2l--cycle; -proofpcbb(100, y100, y100); -penlabels(0,1,2,3,4,5,6,100); endchar; % End of "U" - - -cmchar "Greek 394BC letter chi (X)"; -beginchar("X", 2u#+side#, cap_height#, 0); -adjust_fit(0,0); -pcshiftx := u; -y100=h/2; x100=pcshiftx+y100; % center of square -numeric theta; -theta = 270+45; -penpos1(thick,theta); penpos2(thick,theta); -x1l=pcshiftx; y1r=0; x2r=pcshiftx+side; y2l=h; -filldraw stroke z1e--z2e; -penpos3(thick,-theta); penpos4(thick,-theta); -x3l=pcshiftx; y3r=h; x4r=pcshiftx+side; y4l=0; -filldraw stroke z3e--z4e; -proofpcbb(100, y100, y100); -penlabels(1,2,3,4,100); endchar; - - -cmchar "Greek 394BC letter phi (f)"; -beginchar("f", 2u#+2/3side#, cap_height#,0); -adjust_fit(0, 0); -pcshiftx := u; -y100 = h/2; x100 = pcshiftx + y100; % center point -penpos1(thick,0); penpos2(thick,0); -z1=(w/2,0); z2=(w/2,h); -z0=(w/2,h/2); -numeric alpha; -alpha := 1/3h; -y3o=y3i=y5i=y5o=h/2; -x3o=x0-alpha; x3i=x3o+thick; x5o=x0+alpha; x5i=x5o-thick; -x4o=x4i=x6i=x6o=w/2; -y4o=y0+alpha; y4i=y4o-thick; y6o=y0-alpha; y6i=y6o+thick; -unfilldraw z3i..z4i..z5i..z6i..cycle; -filldraw z3o..z4o..z5o..z6o..cycle; -filldraw stroke z1e--z2e; filldraw stroke z1e--z2e; -proofpcbb(100, y100, y100); -penlabels(1,2,3,4,5,6,100); -endchar; - - -cmchar "Greek 394BC letter psi (P)"; -beginchar("P", 2u#+5/6side#, cap_height#,0); -adjust_fit(0, 0); -pcshiftx := u; -y100 = h/2; x100 = pcshiftx + y100; % center point -numeric alpha, beta; -numeric hor, vert, theta; -pair greek; -alpha=5/6; % scale factor -beta=1/3alpha*side+thick; % arm seperation height -penpos1(thick,0); penpos2(thick,0); -z1=(w/2,0); z2=(w/2,h); -filldraw stroke z1e--z2e; -hor := w/2; vert := h-beta; -greek = (hor,vert); -theta=270+angle(greek); -penpos3(thick,theta); penpos4(thick,theta); -z3l=(w/2,beta); y4l=alpha*h; x4r=w-pcshiftx; -penpos5(thick,-theta); penpos6(thick,-theta); -z5r=z3l; x6l=pcshiftx; y6r=y4l; -z10=whatever[z1r,z2r]=whatever[z3r,z4r]; -z11=whatever[z1l,z2l]=whatever[z5l,z6l]; -filldraw z3l--z4l--z4r--z10--cycle; % right arm -filldraw z5r--z6r--z6l--z11--cycle; % left arm -proofpcbb(100, y100, y100); -penlabels(1,2,3,4,5,6,10,11,100); -endchar; - - -cmchar "Greek 394BC letter omega (O)"; -beginchar("O", 2u#+4/3side#, cap_height#,0); -adjust_fit(0, 0); -pcshiftx := u; -y100 = h/2; x100 = pcshiftx + y100; % center point -penpos1(thick,90); penpos2(thick,90); penpos3(thick,90); penpos4(thick,90); -z1l=(pcshiftx,0); z4l=(w-pcshiftx,0); -x2l = w/2-side/4; x3l=w/2+side/4; y2l=y3l=0; -numeric theta, hor, vert; -pair greek[]; -hor := x2r-pcshiftx; vert := h; -greek1=(hor,vert); greek2=(-hor,-vert); -greek3=(-hor,vert); greek4=(hor,-vert); -theta = 270+angle(greek1); -penpos5(thick,-theta); penpos9(thick,theta); -z5r=z2l; z9l=z3l; -penpos6(thick,0); penpos8(thick,0); -z6l=(w/2-side/2, h/2); z8r=(w/2+side/2, h/2); -penpos7(thick,90); -z7r=(w/2,h); -path p[]; -p1=z5l{greek3}..z6l{up}..{right}z7r; -p2=z7r{right}..z8r{down}..{greek2}z9r; -p3=z1r--z4r; -z10 = p3 intersectionpoint p1; -z11 = p3 intersectionpoint p2; -filldraw z1r--z10{greek3}..z6l{up}..z7r{right}..z8r{down}..{greek2}z11--z4r - --z4l--z3l{greek1}..z8l{up}..z7l{left}..z6r{down}..{greek4}z2l--z1l--cycle; -proofpcbb(100, y100, y100); -penlabels(1,2,3,4,5,6,7,8,9,10,11,100); -endchar; - - -cmchar "Greek 394BC letter beta (rough, B)"; -beginchar("B",4u#+2/3side#, cap_height#, 0); -adjust_fit(0,0); -pcshiftx := 2u; -y100=h/2; x100=pcshiftx+y100; % square center -numeric beta; -beta := side/10; % amount to extend top and bottom -penpos1(thick,0); penpos2(thick,0); -y2l=-beta; y1l=h+beta; x1l=x2l=pcshiftx; -numeric alpha, long, short, hypot; -long=(w-2pcshiftx); short=h/4; hypot=short++long; -alpha := hypot/long; -penpos3(alpha*thick,90); penpos4(alpha*thick,90); -penpos5(alpha*thick,90); penpos6(alpha*thick,90); -z3l=z2l; -x4l=w-pcshiftx; y4l=0.25[y2l,y1l]; -z5r=z4l; -x6l=x2r; y6l=0.5[y2l,y1l]; -penpos7(alpha*thick,90); penpos8(alpha*thick,90); -penpos9(alpha*thick,90); penpos10(alpha*thick,90); -z7r=z6l; -x8l=x4l; y8l=0.75[y2l,y1l]; -z9r=z8l; -z10r=z1l; -z11=whatever[z2r,z1r]=whatever[z3r,z4r]; % bottom bowl and stem -z12=whatever[z3r,z4r]=whatever[z6l,z5l]; % bottom bowl inner -z13=whatever[z5r,z6r]=whatever[z7l,z8l]; % between the bowls -z14=whatever[z7r,z8r]=whatever[z9l,z10l]; % top bowl inner -z15=whatever[z2r,z1r]=whatever[z9l,z10l]; % top bowl and stem -filldraw z1l--z2l--z4l--z13--z8l--cycle; -unfilldraw z6l--z12--z11--cycle; -unfilldraw z7r--z15--z14--cycle; -proofpcbb(100, y100, y100); -penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,100); -endchar; - - -cmchar"Greek 394BC letter mu (rough, M)"; -beginchar("M", 2u#+side#+2thick#, cap_height#, 0); -adjust_fit(0,0); -pcshiftx := u+thick; -y100=h/2; x100=pcshiftx+y100; % square center -numeric alpha, hor, vert, hypot, theta[]; -pair greek[]; -hor := 3thick; vert := side; -greek1 = (hor, vert); -theta1 = 270 + angle(greek1); -numeric beta; -beta := thick; % extra depth below baseline -penpos1(thick,theta1); penpos2(thick,theta1); -z1r=(pcshiftx,-beta); z2l=(pcshiftx+2thick,h); -penpos3(thick,-theta1); penpos4(thick,-theta1); -z3l=(pcshiftx+side,0); z4r=(pcshiftx+side-2thick,h); -z0=z100; -theta2 = 270 + angle(z4r-z0); -penpos5(thick,-theta2); penpos6(thick,-theta2); -z5r=z0; z6r=z2l; -penpos7(thick,theta2); penpos8(thick,theta2); -z7l=z0; z8l=z4r; -z9=whatever[z1r,z2r]=whatever[z5l,z6l]; -z10=whatever[z5l,z6l]=whatever[z7r,z8r]; -z11=whatever[z7r,z8r]=whatever[z3l,z4l]; -filldraw z1l--z2l--z0--z4r--z3r--z3l--z11--z10--z9--z1r--cycle; -proofpcbb(100, y100, y100); -penlabels(0,1,2,3,4,5,6,7,8,9,10,100); endchar; - - -cmchar "Greek 394BC letter nu (rough, N)"; -beginchar("N", 4u#+side#, cap_height#,0); -adjust_fit(0,0); -pcshiftx := 2u; -y100 = h/2; x100 = pcshiftx + y100; % center point -numeric hor, vert, theta; -pair greek[]; -hor = side-thick; vert = h; -greek1=(hor,vert); -theta=270 + angle(greek1); -numeric beta; -beta := thick; % extra extensions of the legs -penpos1(thick,0); penpos2(thick,0); -z1l=(pcshiftx,-beta); z2l=(pcshiftx,h); -penpos3(thick,0); penpos4(thick,0); -z3r=(pcshiftx+side,0); z4r=(pcshiftx+side,h+beta); -penpos5(thick,-theta); penpos6(thick,-theta); -z5l=z3r; z6r=z2l; -z7=whatever[z1r,z2r]=whatever[z5l,z6l]; -z8=whatever[z5r,z6r]=whatever[z3l,z4l]; -filldraw z1l--z2l--z8--z4l--z4r--z3r--z7--z1r--cycle; -proofpcbb(100, y100, y100); -penlabels(1,2,3,4,5,6,7,8,100); endchar; - - -cmchar "Greek 394BC letter rho (rough, R)"; -beginchar("R", 2u#+2/3side#, cap_height#,0); -adjust_fit(0, 0); -pcshiftx := u; -y100=h/2; x100=pcshiftx+y100; % square center -numeric beta; -beta := side/10; % extra top and bottom extensions -penpos1(thick,0); penpos2(thick,0); - top lft z1l=(pcshiftx,h+beta); bot lft z2l=(pcshiftx,-beta); -filldraw stroke z1e--z2e; % vertical stem -penpos3(thick,90); penpos4(thick,0); penpos5(thick,-90); -top y3r=top y1; x3r=x1r; -bot y5r=5/9[y1,y2]; x5=x3; -x4r=x1l+5/9side; y4=0.5[y5r,y3r]; -filldraw z3r{right}..z4r{down}..z5r{left}--z5l{right}..z4l{up}..z3l{left}--cycle; -proofpcbb(100, y100, y100); -penlabels(1,2,3,4,5,100); -endchar; - - -cmchar "Greek 394BC letter upsilon (rough, Y)"; -beginchar("Y", 2u#+6/5side#, cap_height#, 0); -adjust_fit(0,0); -pcshiftx := u; -y100=h/2; x100=pcshiftx+y100; % center of square -numeric beta; -beta := side/10; % extra at top and bottom -numeric alpha, theta; -numeric hor, vert; -pair greek[]; -alpha=h/3; -hor := h; vert := 0.75h; -greek1 = (hor,vert); greek2 = (-hor, -vert); -greek3 = (-hor,vert); greek4 = (hor, -vert); -theta = 270 + angle(greek1); -penpos1(thick,0); penpos2(thick,0); -z1=(w/2,-beta); z2=(w/2,alpha); -penpos3(thick,theta); -y3l=h+beta; x3r=w-pcshiftx; -penpos4(thick,-theta); -y4r=h+beta; x4l=pcshiftx; -filldraw z1l--z1r--z2r{up}..{greek1}z3r--z3l{greek2}..{down}z2l--cycle; -filldraw z1l--z1r--z2r{up}..{greek3}z4r--z4l{greek4}..{down}z2l--cycle; -proofpcbb(100, y100, y100); -penlabels(0,1,2,3,4,5,6,100); endchar; % End of "u" - - -cmchar "Greek 394BC letter phi (rough, F)"; -beginchar("F", 2u#+4/5side#, cap_height#,0); -adjust_fit(0, 0); -pcshiftx := u; -y100 = h/2; x100 = pcshiftx + y100; % center point -numeric beta; -beta := side/10; % extra at top and bottom -penpos1(thick,0); penpos2(thick,0); -z1=(w/2,-beta); z2=(w/2,h+beta); -z0=(w/2,h/2); -numeric alpha; -alpha := 2/5side; -y3o=y3i=y5i=y5o=h/2; -x3o=x0-alpha; x3i=x3o+thick; x5o=x0+alpha; x5i=x5o-thick; -x4o=x4i=x6i=x6o=w/2; -y4o=y0+alpha; y4i=y4o-thick; y6o=y0-alpha; y6i=y6o+thick; -unfilldraw z3i..z4i..z5i..z6i..cycle; -filldraw z3o..z4o..z5o..z6o..cycle; -filldraw stroke z1e--z2e; filldraw stroke z1e--z2e; -proofpcbb(100, y100, y100); -penlabels(1,2,3,4,5,6,100); -endchar; - - -cmchar "Greek 394BC letter psi (rough, Q)"; -beginchar("Q", 2u#+side#, cap_height#,0); -adjust_fit(0, 0); -pcshiftx := u; -y100 = h/2; x100 = pcshiftx + y100; % center point -numeric alpha, beta; -numeric hor, vert, theta; -pair greek; -alpha=1; % scale factor -beta=1/3alpha*side+thick; % arm seperation height -numeric gamma; -gamma := side/10; % extra at top and bottom -penpos1(thick,0); penpos2(thick,0); -z1=(w/2,-gamma); z2=(w/2,h+gamma); -filldraw stroke z1e--z2e; -hor := w/2; vert := h-beta; -greek = (hor,vert); -theta=270+angle(greek); -penpos3(thick,theta); penpos4(thick,theta); -z3l=(w/2,beta); y4l=alpha*h; x4r=w-pcshiftx; -penpos5(thick,-theta); penpos6(thick,-theta); -z5r=z3l; x6l=pcshiftx; y6r=y4l; -z10=whatever[z1r,z2r]=whatever[z3r,z4r]; -z11=whatever[z1l,z2l]=whatever[z5l,z6l]; -filldraw z3l--z4l--z4r--z10--cycle; % right arm -filldraw z5r--z6r--z6l--z11--cycle; % left arm -proofpcbb(100, y100, y100); -penlabels(1,2,3,4,5,6,10,11,100); -endchar; - - -end - diff --git a/Master/texmf-dist/doc/fonts/archaic/greek6cbc/gvibc10.mf b/Master/texmf-dist/doc/fonts/archaic/greek6cbc/gvibc10.mf deleted file mode 100644 index 07fab0a4262..00000000000 --- a/Master/texmf-dist/doc/fonts/archaic/greek6cbc/gvibc10.mf +++ /dev/null @@ -1,354 +0,0 @@ -%% -%% This is file `gvibc10.mf', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% greek6cbc.dtx (with options: `up') -%% ------------------------------------------------------------------ -%% Author: Peter Wilson (Herries Press) herries dot press at earthlink dot net -%% Copyright 1999--2005 Peter R. Wilson -%% -%% This work may be distributed and/or modified under the -%% conditions of the Latex Project Public License, either -%% version 1.3 of this license or (at your option) any -%% later version. -%% The latest version of the license is in -%% http://www.latex-project.org/lppl.txt -%% and version 1.3 or later is part of all distributions of -%% LaTeX version 2003/06/01 or later. -%% -%% This work has the LPPL maintenance status "author-maintained". -%% -%% This work consists of the files listed in the README file. -%% ------------------------------------------------------------------ -%%% GVIBC10.MF Computer Greek font (6th century BC) 10 point design size. - - -font_identifier:="Greek"; font_size 10pt#; - -u#:=.2pt#; % unit width -ht#:=7pt#; % height of characters (CM cap-height is approx 6.8pt) -s#:=1.5pt#; % width correction (right and left) -o#:=1/20pt#; % overshoot -px#:=.7pt#; % horizontal width of pen -font_normal_space:=7pt#; % width of a blank space -font_normal_shrink:=.9pt#; % width correction for blank space -font_x_height:=4.5pt#; % height of one ex -font_quad:=10pt#; % an em - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -font_coding_scheme:="Greek glyphs"; -mode_setup; - -ho#:=o#; % horizontal overshoot -leftloc#:=s#; % leftmost xcoord of character -py#:=.9px#; % vertical thickness of the pen - -define_pixels(s,u); -define_blacker_pixels(px,py); -define_good_x_pixels(leftloc); -define_corrected_pixels(o); % turn on overshoot correction -define_horizontal_corrected_pixels(ho); - -numeric midloc, rightloc; -pickup pencircle xscaled px yscaled py; -stylus:=savepen; - -def beginglyph(expr code, unit_width) = - beginchar(code, unit_width*ht#+2s#, ht#, 0); - midloc:=1/2w; rightloc:=(w-s); - pickup stylus enddef; - -let cmchar=\; - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - - -cmchar "Greek letter alpha (a)"; -beginglyph("a",0.6); -x1=leftloc; x3=rightloc; % base points -bot y1 = bot y3 = -o; -x2 = midloc; top y2 = h; % apex -draw z1--z2--z3; % draw the legs -z4 = 0.4[z1, z2]; -draw z3--z4; % draw the bar -labels(1,2,3,4); -endchar; - - -cmchar "Greek letter beta (b)"; -beginglyph("b",0.6); -x1=x3=x5=leftloc; -x2=x4=rightloc; -bot y1=-o; top y5=h; -y2=1/4h; y3=1/2h; y4=3/4h; -draw z1--z5; % the upright -draw z1{right}..z2..z3{left}; % lower bowl -draw z3{right}..z4..z5{left}; % upper bowl -labels(1,2,3,4,5); endchar; - - -cmchar "Greek letter gamma (g)"; -beginglyph("g", 0.4); -x1=x2=leftloc; x3=rightloc; -bot y1=-o; top y2 = top y3= h; -draw z1--z2--z3; -labels(1,2,3); endchar; - - -cmchar "Greek letter delta (d)"; -beginglyph("d",0.6); -x1=leftloc; x2=midloc; x3=rightloc; -bot y1 = bot y3= 0; -top y2=h; -draw z1--z2--z3--cycle; -labels(1,2,3); endchar; - - -cmchar "Greek letter epsilon (e)"; -beginglyph("e",0.6); -x1=x3=leftloc; x4=x6=rightloc; -bot y1= bot y4= -o; top y3= top y6= h; -z2=0.5[z1,z3]; z5=0.5[z4,z6]; -draw z4--z1--z3--z6; -draw z2--z5; -labels(1,2,3,4,5,6); endchar; - - -cmchar "Greek letter digamma (F)"; -beginglyph("F",0.6); -x1=x3=leftloc; x4=x6=rightloc; -bot y1= bot y4= -o; top y3= top y6= h; -z2=0.65[z1,z3]; z5=0.65[z4,z6]; -draw z1--z3--z6; -draw z2--z5; -labels(1,2,3,4,5,6); endchar; - - -cmchar "Greek letter zeta (z)"; -beginglyph("z",0.2); -x1=x2=midloc; -bot y1=-o; top y2=h; -draw z1--z2; % the upright -x3=x5=leftloc; x4=x6=rightloc; -y3=y4=y1; y5=y6=y2; -draw z3--z4; % lower bar -draw z5--z6; % upper bar -labels(1,2); endchar; - - -cmchar "Greek letter eta (h)"; -beginglyph("h", 0.6); -numeric alpha; -x1=x3=leftloc; x4=x6=rightloc; -bot y1 = bot y4= -o; top y3= top y6= h; -z2=0.5[z1,z3]; z5=0.5[z4,z6]; -draw z1--z3--z6--z4--cycle; % rectangle -draw z2--z5; % bar -labels(1,2,3,4,5,6); endchar; - - -cmchar "Greek letter theta (T)"; -beginglyph("T",1.0); -path p; -x1=leftloc; x3=rightloc; -y2=h; y4=0; -x2=x4=midloc; -y1=y3=h/2; -z100=(x2,y3); % circle center -p = z1..z2..z3..z4..cycle; % the circle -draw p; -draw z1--z3; draw z2--z4; % the cross -labels(1,2,3,4); endchar; - - -cmchar "Greek letter iota (i)"; -beginglyph("i",0.2); -x1=x2=midloc; -bot y1=-o; top y2=h; -draw z1--z2; -labels(1,2); endchar; - - -cmchar "Greek letter kappa (k)"; -beginglyph("k",0.6); -numeric alpha; -alpha:=0.1; -x1=rightloc; -x2=x1+alpha*(w-s); -x3=x4=x5=leftloc; -bot y1= bot y3=-o; -y2=y5=h; y4=1/2h; -draw z3--z5; % the upright -draw z1--z4; draw z4--z2; % the arms -labels(1,2,3,4,5); endchar; - - -cmchar "Greek letter lambda (l)"; -beginglyph("l",0.4); -x1=x2=leftloc; x3=rightloc; -bot y1=-o; y2=h; -y3=.7h; -draw z1--z2--z3; -labels(1,2,3); endchar; - - -cmchar"Greek letter mu (m)"; -beginglyph("m",1.0); -x1=rightloc; -x5=x6=leftloc; -x2=3/4[x5,x1]; x3=1/2[x5,x1]; x4=1/4[x5,x1]; -bot y6= -o; -top y5= top y3 = h; -top y1=.8h; -y2=.6h; -y4=.7h; -draw z6--z5; -draw z1--z2--z3--z4--z5; -labels(1,2,3,4,5,6); endchar; - - -cmchar "Greek letter nu (n)"; -beginglyph("n",0.6); -x1=x2=leftloc; x3=x4=rightloc; -y1=0; y2=0.8h; y3=0.3h; y4=h; -draw z1--z2--z3--z4; -labels(1,2,3,4); endchar; - - -cmchar "Greek letter xi (x)"; -beginglyph("x", 0.6); -x1=x3=leftloc; x4=x6=rightloc; -bot y1= bot y4= -o; top y3= top y6= h; -z2=0.5[z1,z3]; z5=0.5[z4,z6]; -z7=0.5[z1,z4]; z8=0.5[z3,z6]; -draw z1--z4; draw z2--z5; draw z3--z6; % horizontals -draw z7--z8; % vertical -labels(1,2,3,4,5,6,7,8); endchar; - - -cmchar "Greek letter omicron (o)"; -beginglyph("o",1.0); -x1=leftloc; x3=rightloc; -y2=h; y4=0; -x2=x4=midloc; -y1=y3=h/2; -draw z1..z2..z3..z4..cycle; -labels(1,2,3,4); endchar; - - -cmchar "Greek letter pi (p)"; -beginglyph("p", 0.4); -x1=x2=leftloc; x3=x4=rightloc; -bot y1=-o; top y2= top y3= h; y4=0.6h; -draw z1--z2--z3--z4; -labels(1,2,3,4); endchar; - - -cmchar "Greek letter (koppa) q"; -beginglyph("q",0.6); -numeric alpha; -x1=leftloc; -x3=rightloc; -alpha=0.5(x3-x1); % circle radius -y2=h; -y4=y2-2alpha; -bot y5=-o; -x2=x4=x5=midloc; -y1=y3=h-alpha; -draw z1..z2..z3..z4..cycle; % the circle -draw z5--z4; % the upright -labels(1,2,3,4,5); endchar; - - -cmchar "Greek letter rho (r)"; -beginglyph("r", 0.4); -x1=x2=x3=leftloc; x4=rightloc; -bot y1=-o; top y2=h; -y3=y4=0.5h; -draw z1--z2--z4--z3; % the P shape -x5=midloc; y5=0.2h; -draw z3--z5; % a little leg -labels(1,2,3,4); endchar; - - -cmchar "Greek letter sigma (s)"; -beginglyph("s", 0.8); -x2=x4=leftloc; x1=x5=rightloc; -y1=0; y5=h; -y2=0.1h; y4=0.9h; -z3=(midloc,0.5h); -draw z1--z2--z3--z4--z5; -labels(1,2,3,4,5); endchar; - - -cmchar "Greek letter tau (t)"; -beginglyph("t", 0.6); -x1=midloc; x2=leftloc; x4=rightloc; -bot y1=-o; top y2= top y4= h; -z3=0.5[z2,z4]; -draw z1--z3; % upright -draw z2--z4; % bar -labels(1,2,3,4); endchar; - - -cmchar "Greek letter upsilon (y)"; -beginglyph("y", 0.6); -x1=x3=midloc; x2=leftloc; x4=rightloc; -bot y1=-o; top y2= top y4= h; -y3=0.6h; -draw z1--z3; % upright -draw z2--z3--z4; % V -labels(1,2,3,4); endchar; - - -cmchar "Greek letter chi (X)"; -beginglyph("X", 0.6); -x1=x2=leftloc; x3=x4=rightloc; -bot y1= bot y3=-o; top y2= top y4=h; -draw z1--z4; draw z2--z3; -labels(1,2,3,4); endchar; - - -cmchar "Greek letter phi (f)"; -beginglyph("f",0.6); -x1=leftloc; x3=rightloc; -x2=x4=midloc; -y1=y3=0.5h; -y2=h; y4=0; -draw z1..z2..z3..z4..cycle; % the oval -draw z4--z2; % the upright -labels(1,2,3,4,5); endchar; - - -cmchar "Greek letter psi (P)"; -beginglyph("P", 0.6); -x1=x3=midloc; x2=leftloc; x4=rightloc; -bot y1=-o; top y2= top y4= h; -y3=0.5h; -z5=0.5[z2,z4]; -draw z1--z5; % upright -draw z2--z3--z4; % V -labels(1,2,3,4,5); endchar; - - -cmchar "Greek letter omega (O)"; -beginglyph("O", 1.0); -x1=leftloc; x4=rightloc; -y1=y4=0; -z2=0.35[z1,z4]; z3=0.35[z4,z1]; -x7=midloc; y7=h; -x5=0.1[x1,x4]; x6=0.1[x4,x1]; -y5=y6=0.5h; -draw z1--z2..z5..z7..z6..z3--z4; -labels(1,2,3,4,5,6,7); endchar; - - -end - diff --git a/Master/texmf-dist/doc/fonts/archaic/linearA-README b/Master/texmf-dist/doc/fonts/archaic/linearA-README new file mode 100644 index 00000000000..046304d5cab --- /dev/null +++ b/Master/texmf-dist/doc/fonts/archaic/linearA-README @@ -0,0 +1,9 @@ + The linearA package provides a simple interface to two + fonts which include all known symbols, simple and complex, of the Linear A + script. This way one can easily replicate Linear A ``texts'' using modern + typographic technology. Notice that the Linear A script has not been + deciphered yet and probably it will never be deciphered. + + Apostolos Syropoulos + Xanthi, Greece + March 13, 2006 diff --git a/Master/texmf-dist/doc/fonts/archaic/linearA/afm/LinearA.afm b/Master/texmf-dist/doc/fonts/archaic/linearA/afm/LinearA.afm new file mode 100644 index 00000000000..49555c07577 --- /dev/null +++ b/Master/texmf-dist/doc/fonts/archaic/linearA/afm/LinearA.afm @@ -0,0 +1,198 @@ +StartFontMetrics 2.0 +Comment Generated by FontForge 20051202 +Comment Creation Date: Mon Mar 13 20:36:24 2006 +FontName LinearA +FullName LinearA +FamilyName LinearA +Weight Medium +Notice ((c) copyright 2006 Apostolos Syropoulos. This program can be redistributed and/or modified under the terms of the LaTeX Project Public License Distributed from CTAN archives in directory ) +Comment macros/latex/base/lppl.txt; either version 1 of the License, or any later version. +Comment Created with FontForge 1.0 (http://fontforge.sf.net) +ItalicAngle 0 +IsFixedPitch false +UnderlinePosition -100 +UnderlineThickness 50 +Version 001.000 +EncodingScheme FontSpecific +FontBBox 18 -110 1160 972 +StartCharMetrics 178 +C 0 ; WX 506 ; N LinearAI ; B 37 0 459 912 ; +C 1 ; WX 644 ; N LinearAII ; B 33 13 611 884 ; +C 2 ; WX 644 ; N LinearAIII ; B 38 1 606 815 ; +C 3 ; WX 659 ; N LinearAIV ; B 51 -5 609 742 ; +C 4 ; WX 639 ; N LinearAV ; B 39 8 599 847 ; +C 5 ; WX 664 ; N LinearAVI ; B 36 0 632 898 ; +C 6 ; WX 598 ; N LinearAVII ; B 36 3 562 781 ; +C 7 ; WX 685 ; N LinearAVIII ; B 45 -13 640 850 ; +C 8 ; WX 661 ; N LinearAIX ; B 44 -3 612 851 ; +C 9 ; WX 542 ; N LinearAX ; B 64 -2 485 924 ; +C 10 ; WX 751 ; N LinearAXI ; B 62 38 690 592 ; +C 11 ; WX 690 ; N LinearAXII ; B 78 -14 611 802 ; +C 12 ; WX 680 ; N LinearAXIII ; B 70 -1 625 833 ; +C 13 ; WX 680 ; N LinearAXIV ; B 48 14 632 853 ; +C 14 ; WX 634 ; N LinearAXV ; B 51 -17 582 750 ; +C 15 ; WX 593 ; N LinearAXVI ; B 59 -4 535 869 ; +C 16 ; WX 720 ; N LinearAXVII ; B 53 39 669 595 ; +C 17 ; WX 593 ; N LinearAXVIII ; B 41 -9 552 890 ; +C 18 ; WX 629 ; N LinearAXIX ; B 57 -7 572 844 ; +C 19 ; WX 771 ; N LinearAXX ; B 63 -9 708 841 ; +C 20 ; WX 669 ; N LinearAXXI ; B 58 6 609 737 ; +C 21 ; WX 511 ; N LinearAXXII ; B 58 -7 453 904 ; +C 22 ; WX 675 ; N LinearAXXIII ; B 46 -5 624 860 ; +C 23 ; WX 690 ; N LinearAXXIV ; B 52 -7 636 928 ; +C 24 ; WX 634 ; N LinearAXXV ; B 54 -3 581 790 ; +C 25 ; WX 725 ; N LinearAXXVI ; B 59 -6 669 821 ; +C 26 ; WX 715 ; N LinearAXXVII ; B 51 3 664 900 ; +C 27 ; WX 598 ; N LinearAXXVIII ; B 44 5 554 799 ; +C 28 ; WX 705 ; N LinearAXXIX ; B 45 -16 661 593 ; +C 29 ; WX 736 ; N LinearAXXX ; B 42 -2 694 761 ; +C 30 ; WX 715 ; N LinearAXXXI ; B 53 9 662 873 ; +C 31 ; WX 685 ; N LinearAXXXII ; B 37 -4 648 771 ; +C 32 ; WX 659 ; N LinearAXXXIII ; B 44 -1 616 847 ; +C 33 ; WX 710 ; N LinearAXXXIV ; B 75 -16 636 825 ; +C 34 ; WX 720 ; N LinearAXXXV ; B 59 -7 661 803 ; +C 35 ; WX 720 ; N LinearAXXXVI ; B 68 -2 653 812 ; +C 36 ; WX 680 ; N LinearAXXXVII ; B 54 11 626 833 ; +C 37 ; WX 639 ; N LinearAXXXVIII ; B 44 2 595 846 ; +C 38 ; WX 710 ; N LinearAXXXIX ; B 43 5 668 801 ; +C 39 ; WX 613 ; N LinearAXL ; B 59 -3 554 869 ; +C 40 ; WX 659 ; N LinearAXLI ; B 60 -1 600 808 ; +C 41 ; WX 705 ; N LinearAXLII ; B 50 0 655 879 ; +C 42 ; WX 634 ; N LinearAXLIII ; B 44 14 590 695 ; +C 43 ; WX 700 ; N LinearAXLIV ; B 59 -9 641 926 ; +C 44 ; WX 685 ; N LinearAXLV ; B 54 -10 632 879 ; +C 45 ; WX 613 ; N LinearAXLVI ; B 48 -7 565 891 ; +C 46 ; WX 654 ; N LinearAXLVII ; B 40 34 614 567 ; +C 47 ; WX 603 ; N LinearAXLVIII ; B 24 0 567 720 ; +C 48 ; WX 527 ; N LinearAXLIX ; B 18 1 490 854 ; +C 49 ; WX 623 ; N LinearAL ; B 24 0 589 885 ; +C 50 ; WX 618 ; N LinearALI ; B 25 3 588 815 ; +C 51 ; WX 634 ; N LinearALII ; B 33 10 598 784 ; +C 52 ; WX 705 ; N LinearALIII ; B 25 3 680 349 ; +C 53 ; WX 634 ; N LinearALIV ; B 23 8 607 790 ; +C 54 ; WX 567 ; N LinearALV ; B 36 5 534 884 ; +C 55 ; WX 634 ; N LinearALVI ; B 19 9 604 819 ; +C 56 ; WX 591 ; N LinearALVII ; B 27 -6 557 842 ; +C 57 ; WX 640 ; N LinearALVIII ; B 36 21 604 861 ; +C 58 ; WX 404 ; N LinearALIX ; B 61 -4 343 907 ; +C 59 ; WX 705 ; N LinearALX ; B 50 2 656 886 ; +C 60 ; WX 527 ; N LinearALXI ; B 32 -1 496 816 ; +C 61 ; WX 634 ; N LinearALXII ; B 47 -7 587 760 ; +C 62 ; WX 588 ; N LinearALXIII ; B 68 -1 520 846 ; +C 63 ; WX 674 ; N LinearALXIV ; B 52 -2 623 710 ; +C 64 ; WX 720 ; N LinearALXV ; B 50 -5 671 793 ; +C 65 ; WX 527 ; N LinearALXVI ; B 47 14 480 897 ; +C 66 ; WX 669 ; N LinearALXVII ; B 35 0 635 844 ; +C 67 ; WX 572 ; N LinearALXVIII ; B 42 -1 531 934 ; +C 68 ; WX 710 ; N LinearALXIX ; B 50 -19 660 883 ; +C 69 ; WX 629 ; N LinearALXX ; B 50 -6 579 735 ; +C 70 ; WX 674 ; N LinearALXXI ; B 51 -5 623 833 ; +C 71 ; WX 618 ; N LinearALXXII ; B 70 1 549 902 ; +C 72 ; WX 725 ; N LinearALXXIII ; B 40 -3 686 778 ; +C 73 ; WX 646 ; N LinearALXXIV ; B 32 3 615 739 ; +C 74 ; WX 705 ; N LinearALXXV ; B 49 -10 657 832 ; +C 75 ; WX 649 ; N LinearALXXVI ; B 51 -5 599 861 ; +C 76 ; WX 746 ; N LinearALXXVII ; B 57 1 689 773 ; +C 77 ; WX 680 ; N LinearALXXVIII ; B 44 5 636 853 ; +C 78 ; WX 567 ; N LinearALXXIX ; B 48 2 520 938 ; +C 79 ; WX 644 ; N LinearALXXX ; B 52 -3 592 733 ; +C 80 ; WX 669 ; N LinearALXXXI ; B 51 6 619 810 ; +C 81 ; WX 550 ; N LinearALXXXII ; B 45 11 504 891 ; +C 82 ; WX 644 ; N LinearALXXXIII ; B 41 -2 588 752 ; +C 83 ; WX 618 ; N LinearALXXXIV ; B 45 1 565 932 ; +C 84 ; WX 465 ; N LinearALXXXV ; B 22 1 426 750 ; +C 85 ; WX 725 ; N LinearALXXXVI ; B 32 11 687 669 ; +C 86 ; WX 506 ; N LinearALXXXVII ; B 35 -2 461 888 ; +C 87 ; WX 516 ; N LinearALXXXVIII ; B 33 6 462 818 ; +C 88 ; WX 654 ; N LinearALXXXIX ; B 34 13 608 749 ; +C 89 ; WX 664 ; N LinearALXXXX ; B 39 -16 608 635 ; +C 90 ; WX 618 ; N LinearAXCI ; B 45 9 571 907 ; +C 91 ; WX 598 ; N LinearAXCII ; B 34 -4 560 655 ; +C 92 ; WX 623 ; N LinearAXCIII ; B 37 -6 589 728 ; +C 93 ; WX 639 ; N LinearAXCIV ; B 57 -8 583 695 ; +C 94 ; WX 644 ; N LinearAXCV ; B 47 -4 607 533 ; +C 95 ; WX 715 ; N LinearAXCVI ; B 43 -4 672 587 ; +C 96 ; WX 506 ; N LinearAXCVII ; B 23 1 459 771 ; +C 97 ; WX 588 ; N LinearAXCVIII ; B 42 -15 545 814 ; +C 98 ; WX 608 ; N LinearAXCIX ; B 47 -9 562 891 ; +C 99 ; WX 532 ; N LinearAC ; B 49 -4 483 908 ; +C 100 ; WX 669 ; N LinearACI ; B 47 -6 623 691 ; +C 101 ; WX 557 ; N LinearACII ; B 31 -7 527 608 ; +C 102 ; WX 654 ; N LinearACIII ; B 44 2 611 601 ; +C 103 ; WX 700 ; N LinearACIV ; B 54 -2 647 737 ; +C 104 ; WX 685 ; N LinearACV ; B 55 4 630 766 ; +C 105 ; WX 700 ; N LinearACVI ; B 59 -3 641 624 ; +C 106 ; WX 680 ; N LinearACVII ; B 52 1 628 835 ; +C 107 ; WX 705 ; N LinearACVIII ; B 42 6 663 527 ; +C 108 ; WX 797 ; N LinearACIX ; B 63 -6 733 680 ; +C 109 ; WX 761 ; N LinearACX ; B 53 0 708 598 ; +C 110 ; WX 780 ; N LinearACXI ; B 83 0 698 674 ; +C 111 ; WX 562 ; N LinearACXII ; B 56 7 507 724 ; +C 112 ; WX 746 ; N LinearACXIII ; B 42 2 704 649 ; +C 113 ; WX 705 ; N LinearACXIV ; B 63 2 643 597 ; +C 114 ; WX 710 ; N LinearACXV ; B 68 -1 642 562 ; +C 115 ; WX 720 ; N LinearACXVI ; B 35 4 687 473 ; +C 116 ; WX 782 ; N LinearACXVII ; B 51 0 731 486 ; +C 117 ; WX 578 ; N LinearACXVIII ; B 61 -1 518 972 ; +C 118 ; WX 725 ; N LinearACXIX ; B 47 -5 678 564 ; +C 119 ; WX 669 ; N LinearACXX ; B 61 1 609 658 ; +C 120 ; WX 603 ; N LinearACXXI ; B 65 -4 538 713 ; +C 121 ; WX 649 ; N LinearACXXII ; B 67 0 582 939 ; +C 122 ; WX 642 ; N LinearACXXIII ; B 61 1 582 660 ; +C 123 ; WX 690 ; N LinearACXXIV ; B 59 1 630 386 ; +C 124 ; WX 644 ; N LinearACXXV ; B 54 5 590 891 ; +C 125 ; WX 797 ; N LinearACXXVI ; B 69 0 728 446 ; +C 126 ; WX 715 ; N LinearACXXVII ; B 51 1 665 617 ; +C 127 ; WX 746 ; N LinearACXXVIII ; B 60 -9 686 833 ; +C 128 ; WX 588 ; N LinearACXXIX ; B 60 -7 529 954 ; +C 129 ; WX 659 ; N LinearACXXX ; B 51 -4 609 621 ; +C 130 ; WX 583 ; N LinearACXXXI ; B 38 8 546 955 ; +C 131 ; WX 669 ; N LinearACXXXII ; B 50 0 621 771 ; +C 132 ; WX 588 ; N LinearACXXXIII ; B 57 -6 532 879 ; +C 133 ; WX 476 ; N LinearACXXXIV ; B 69 -1 407 878 ; +C 134 ; WX 710 ; N LinearACXXXV ; B 61 4 650 681 ; +C 135 ; WX 674 ; N LinearACXXXVI ; B 59 -3 616 631 ; +C 136 ; WX 537 ; N LinearACXXXVII ; B 68 0 470 706 ; +C 137 ; WX 792 ; N LinearACXXXVIII ; B 64 1 728 412 ; +C 138 ; WX 618 ; N LinearACXXXIX ; B 60 5 558 506 ; +C 139 ; WX 521 ; N LinearACXL ; B 47 0 474 873 ; +C 140 ; WX 720 ; N LinearACXLI ; B 57 6 663 409 ; +C 141 ; WX 583 ; N LinearACXLII ; B 42 6 542 643 ; +C 142 ; WX 656 ; N LinearACXLIII ; B 44 3 613 592 ; +C 143 ; WX 741 ; N LinearACXLIV ; B 57 2 684 536 ; +C 144 ; WX 644 ; N LinearACXLV ; B 41 57 604 481 ; +C 145 ; WX 736 ; N LinearACXLVI ; B 74 -110 663 631 ; +C 146 ; WX 731 ; N LinearACXLVII ; B 74 0 657 560 ; +C 147 ; WX 715 ; N LinearACXLVIII ; B 61 6 653 657 ; +C 148 ; WX 710 ; N LinearACXLIX ; B 74 1 637 533 ; +C 149 ; WX 673 ; N LinearACL ; B 75 2 598 707 ; +C 150 ; WX 659 ; N LinearACLI ; B 67 3 593 554 ; +C 151 ; WX 705 ; N LinearACLII ; B 65 -3 641 634 ; +C 152 ; WX 618 ; N LinearACLIII ; B 55 4 564 658 ; +C 153 ; WX 516 ; N LinearACLIV ; B 42 -3 475 892 ; +C 154 ; WX 700 ; N LinearACLV ; B 52 -4 648 496 ; +C 155 ; WX 751 ; N LinearACLVI ; B 81 4 670 737 ; +C 156 ; WX 623 ; N LinearACLVII ; B 50 -2 573 911 ; +C 157 ; WX 618 ; N LinearACLVIII ; B 49 -1 570 804 ; +C 158 ; WX 736 ; N LinearACLIX ; B 47 -69 688 791 ; +C 159 ; WX 649 ; N LinearACLX ; B 43 -7 606 647 ; +C 160 ; WX 700 ; N LinearACLXI ; B 69 -6 632 557 ; +C 161 ; WX 710 ; N LinearACLXII ; B 54 -1 657 762 ; +C 162 ; WX 547 ; N LinearACLXIII ; B 60 7 487 756 ; +C 163 ; WX 802 ; N LinearACLXIV ; B 61 -3 742 298 ; +C 164 ; WX 608 ; N LinearACLXV ; B 61 -3 548 918 ; +C 165 ; WX 1198 ; N LinearACLXVI ; B 39 -95 1160 353 ; +C 166 ; WX 674 ; N LinearACLXVII ; B 49 -1 626 791 ; +C 167 ; WX 710 ; N LinearACLXVIII ; B 57 0 653 622 ; +C 168 ; WX 623 ; N LinearACLXIX ; B 47 -4 578 735 ; +C 169 ; WX 725 ; N LinearACLXX ; B 66 -8 660 663 ; +C 170 ; WX 634 ; N LinearACLXXI ; B 66 -3 569 773 ; +C 171 ; WX 685 ; N LinearACLXXII ; B 54 -6 631 788 ; +C 172 ; WX 771 ; N LinearACLXXIII ; B 52 0 719 407 ; +C 173 ; WX 685 ; N LinearACLXXIV ; B 68 -6 618 789 ; +C 174 ; WX 532 ; N LinearACLXXV ; B 71 3 461 818 ; +C 175 ; WX 705 ; N LinearACLXXVI ; B 75 -72 629 738 ; +C 176 ; WX 516 ; N LinearACLXXVII ; B 55 3 463 784 ; +C 177 ; WX 674 ; N LinearACLXXVIII ; B 56 -2 619 529 ; +EndCharMetrics +EndFontMetrics diff --git a/Master/texmf-dist/doc/fonts/archaic/linearA/afm/LinearACmplxSigns.afm b/Master/texmf-dist/doc/fonts/archaic/linearA/afm/LinearACmplxSigns.afm new file mode 100644 index 00000000000..7704a03aaa4 --- /dev/null +++ b/Master/texmf-dist/doc/fonts/archaic/linearA/afm/LinearACmplxSigns.afm @@ -0,0 +1,231 @@ +StartFontMetrics 2.0 +Comment Generated by FontForge 20051202 +Comment Creation Date: Mon Mar 13 20:39:25 2006 +FontName LinearACmplxSigns +FullName LinearACmplxSigns +FamilyName LinearACmplxSigns +Weight Medium +Notice (Copyright: (c) copyright 2006 Apostolos Syropoulos. This program can be redistributed and/or modified under the terms of the LaTeX Project Public License Distributed from CTAN archives in directory \n) +Comment macros/latex/base/lppl.txt; either version 1 of the License, or any later version.\nCreated with FontForge 1.0 (http://fontforge.sf.net) +Comment +ItalicAngle 0 +IsFixedPitch false +UnderlinePosition -100 +UnderlineThickness 50 +Version 001.000 +EncodingScheme LinearAEncoding +FontBBox 11 -89 1072 872 +StartCharMetrics 211 +C 0 ; WX 416 ; N LinearAI ; B 25 -3 392 860 ; +C 1 ; WX 702 ; N LinearAII ; B 20 -4 682 789 ; +C 2 ; WX 649 ; N LinearAIII ; B 27 -59 623 770 ; +C 3 ; WX 588 ; N LinearAIV ; B 23 -2 566 828 ; +C 4 ; WX 719 ; N LinearAV ; B 17 -9 703 661 ; +C 5 ; WX 925 ; N LinearAVI ; B 21 -67 905 729 ; +C 6 ; WX 423 ; N LinearAVII ; B 17 8 406 790 ; +C 7 ; WX 743 ; N LinearAVIII ; B 20 -7 724 754 ; +C 8 ; WX 680 ; N LinearAIX ; B 27 -3 653 825 ; +C 9 ; WX 610 ; N LinearAX ; B 18 -3 593 872 ; +C 10 ; WX 515 ; N LinearAXI ; B 16 1 500 827 ; +C 11 ; WX 653 ; N LinearAXII ; B 20 -49 635 737 ; +C 12 ; WX 723 ; N LinearAXIII ; B 18 -3 706 728 ; +C 13 ; WX 562 ; N LinearAXIV ; B 19 -11 543 826 ; +C 14 ; WX 592 ; N LinearAXV ; B 15 -14 577 834 ; +C 15 ; WX 565 ; N LinearAXVI ; B 26 5 540 686 ; +C 16 ; WX 381 ; N LinearAXVII ; B 45 -5 338 699 ; +C 17 ; WX 669 ; N LinearAXVIII ; B 19 -8 650 623 ; +C 18 ; WX 876 ; N LinearAXIX ; B 13 -28 864 779 ; +C 19 ; WX 646 ; N LinearAXX ; B 26 0 620 654 ; +C 20 ; WX 919 ; N LinearAXXI ; B 19 3 901 708 ; +C 21 ; WX 550 ; N LinearAXXII ; B 15 -15 535 715 ; +C 22 ; WX 653 ; N LinearAXXIII ; B 21 -5 632 728 ; +C 23 ; WX 634 ; N LinearAXXIV ; B 28 -6 608 784 ; +C 24 ; WX 701 ; N LinearAXXV ; B 18 -1 684 660 ; +C 25 ; WX 1040 ; N LinearAXXVI ; B 23 -2 1017 742 ; +C 26 ; WX 496 ; N LinearAXXVII ; B 19 -11 477 770 ; +C 27 ; WX 435 ; N LinearAXXVIII ; B 25 -9 411 778 ; +C 28 ; WX 568 ; N LinearAXXIX ; B 26 -2 542 712 ; +C 29 ; WX 556 ; N LinearAXXX ; B 30 -7 527 693 ; +C 30 ; WX 556 ; N LinearAXXXI ; B 24 0 533 750 ; +C 31 ; WX 359 ; N LinearAXXXII ; B 38 -3 322 691 ; +C 32 ; WX 738 ; N LinearAXXXIII ; B 22 -5 717 641 ; +C 33 ; WX 792 ; N LinearAXXXIV ; B 15 20 764 737 ; +C 34 ; WX 810 ; N LinearAXXXV ; B 20 -29 791 718 ; +C 35 ; WX 641 ; N LinearAXXXVI ; B 28 -11 614 765 ; +C 36 ; WX 719 ; N LinearAXXXVII ; B 18 -8 702 641 ; +C 37 ; WX 414 ; N LinearAXXXVIII ; B 37 -9 377 685 ; +C 38 ; WX 586 ; N LinearAXXXIX ; B 19 -3 568 695 ; +C 39 ; WX 617 ; N LinearAXL ; B 23 -14 595 597 ; +C 40 ; WX 743 ; N LinearAXLI ; B 15 -2 728 674 ; +C 41 ; WX 550 ; N LinearAXLII ; B 25 -5 525 704 ; +C 42 ; WX 519 ; N LinearAXLIII ; B 24 -2 495 663 ; +C 43 ; WX 744 ; N LinearAXLIV ; B 24 -12 722 710 ; +C 44 ; WX 586 ; N LinearAXLV ; B 20 1 567 672 ; +C 45 ; WX 550 ; N LinearAXLVI ; B 25 0 526 678 ; +C 46 ; WX 1016 ; N LinearAXLVII ; B 17 -6 998 729 ; +C 47 ; WX 634 ; N LinearAXLVIII ; B 16 -16 618 666 ; +C 48 ; WX 786 ; N LinearAXLIX ; B 21 -8 766 797 ; +C 49 ; WX 798 ; N LinearAL ; B 16 -75 783 734 ; +C 50 ; WX 622 ; N LinearALI ; B 14 -14 608 872 ; +C 51 ; WX 646 ; N LinearALII ; B 17 -8 630 583 ; +C 52 ; WX 421 ; N LinearALIII ; B 32 -10 390 680 ; +C 53 ; WX 436 ; N LinearALIV ; B 28 4 408 681 ; +C 54 ; WX 574 ; N LinearALV ; B 21 -13 553 562 ; +C 55 ; WX 738 ; N LinearALVI ; B 18 -12 719 749 ; +C 56 ; WX 465 ; N LinearALVII ; B 35 2 431 678 ; +C 57 ; WX 537 ; N LinearALVIII ; B 11 -5 528 748 ; +C 58 ; WX 859 ; N LinearALIX ; B 22 -4 837 783 ; +C 59 ; WX 568 ; N LinearALX ; B 22 -6 546 690 ; +C 60 ; WX 907 ; N LinearALXI ; B 12 2 895 706 ; +C 61 ; WX 706 ; N LinearALXII ; B 29 -1 677 547 ; +C 62 ; WX 563 ; N LinearALXIII ; B 25 -4 539 679 ; +C 63 ; WX 501 ; N LinearALXIV ; B 42 -5 461 569 ; +C 64 ; WX 775 ; N LinearALXV ; B 18 -15 758 647 ; +C 65 ; WX 566 ; N LinearALXVI ; B 22 -18 545 618 ; +C 66 ; WX 876 ; N LinearALXVII ; B 22 -89 854 778 ; +C 67 ; WX 660 ; N LinearALXVIII ; B 17 3 642 494 ; +C 68 ; WX 493 ; N LinearALXIX ; B 31 -29 465 647 ; +C 69 ; WX 588 ; N LinearALXX ; B 21 -9 568 675 ; +C 70 ; WX 756 ; N LinearALXXI ; B 19 -7 739 660 ; +C 71 ; WX 512 ; N LinearALXXII ; B 33 -6 481 648 ; +C 72 ; WX 828 ; N LinearALXXIII ; B 21 1 807 746 ; +C 73 ; WX 778 ; N LinearALXXIV ; B 18 -19 761 616 ; +C 74 ; WX 552 ; N LinearALXXV ; B 35 -58 518 678 ; +C 75 ; WX 500 ; N LinearALXXVI ; B 29 -1 472 562 ; +C 76 ; WX 609 ; N LinearALXXVII ; B 23 -17 587 831 ; +C 77 ; WX 501 ; N LinearALXXVIII ; B 41 -1 461 669 ; +C 78 ; WX 512 ; N LinearALXXIX ; B 37 -5 476 577 ; +C 79 ; WX 789 ; N LinearALXXX ; B 23 -20 767 630 ; +C 80 ; WX 490 ; N LinearALXXXI ; B 32 -2 460 620 ; +C 81 ; WX 493 ; N LinearALXXXII ; B 26 -15 469 671 ; +C 82 ; WX 504 ; N LinearALXXXIII ; B 40 -21 465 620 ; +C 83 ; WX 526 ; N LinearALXXXIV ; B 33 -15 494 541 ; +C 84 ; WX 556 ; N LinearALXXXV ; B 34 -8 523 505 ; +C 85 ; WX 864 ; N LinearALXXXVI ; B 17 -19 848 672 ; +C 86 ; WX 515 ; N LinearALXXXVII ; B 28 7 488 572 ; +C 87 ; WX 454 ; N LinearALXXXVIII ; B 27 -3 428 672 ; +C 88 ; WX 468 ; N LinearALXXXIX ; B 38 -26 431 676 ; +C 89 ; WX 608 ; N LinearALXXXX ; B 17 -14 591 701 ; +C 90 ; WX 606 ; N LinearAXCI ; B 20 -10 585 542 ; +C 91 ; WX 515 ; N LinearAXCII ; B 42 -15 475 657 ; +C 92 ; WX 462 ; N LinearAXCIII ; B 37 -9 424 610 ; +C 93 ; WX 575 ; N LinearAXCIV ; B 15 -32 559 687 ; +C 94 ; WX 971 ; N LinearAXCV ; B 27 -39 945 695 ; +C 95 ; WX 465 ; N LinearAXCVI ; B 30 -27 436 680 ; +C 96 ; WX 889 ; N LinearAXCVII ; B 21 -3 871 771 ; +C 97 ; WX 610 ; N LinearAXCVIII ; B 15 -18 595 707 ; +C 98 ; WX 493 ; N LinearAXCIX ; B 30 -12 465 621 ; +C 99 ; WX 601 ; N LinearAC ; B 32 -26 570 652 ; +C 100 ; WX 677 ; N LinearACI ; B 25 -24 653 598 ; +C 101 ; WX 646 ; N LinearACII ; B 26 -5 621 611 ; +C 102 ; WX 647 ; N LinearACIII ; B 18 -75 630 628 ; +C 103 ; WX 691 ; N LinearACIV ; B 22 -8 670 806 ; +C 104 ; WX 457 ; N LinearACV ; B 24 -5 434 617 ; +C 105 ; WX 1064 ; N LinearACVI ; B 28 -11 1036 693 ; +C 106 ; WX 781 ; N LinearACVII ; B 24 -80 757 681 ; +C 107 ; WX 664 ; N LinearACVIII ; B 23 1 641 779 ; +C 108 ; WX 390 ; N LinearACIX ; B 24 -2 367 766 ; +C 109 ; WX 621 ; N LinearACX ; B 31 3 591 735 ; +C 110 ; WX 581 ; N LinearACXI ; B 32 0 550 782 ; +C 111 ; WX 796 ; N LinearACXII ; B 23 -4 773 704 ; +C 112 ; WX 621 ; N LinearACXIII ; B 26 6 595 718 ; +C 113 ; WX 858 ; N LinearACXIV ; B 24 -7 834 434 ; +C 114 ; WX 380 ; N LinearACXV ; B 31 -3 350 693 ; +C 115 ; WX 667 ; N LinearACXVI ; B 23 -4 644 798 ; +C 116 ; WX 720 ; N LinearACXVII ; B 25 9 695 552 ; +C 117 ; WX 1024 ; N LinearACXVIII ; B 25 -10 999 765 ; +C 118 ; WX 676 ; N LinearACXIX ; B 29 4 647 490 ; +C 119 ; WX 814 ; N LinearACXX ; B 21 1 792 647 ; +C 120 ; WX 621 ; N LinearACXXI ; B 33 -2 588 769 ; +C 121 ; WX 621 ; N LinearACXXII ; B 30 -8 592 732 ; +C 122 ; WX 357 ; N LinearACXXIII ; B 27 -2 331 733 ; +C 123 ; WX 770 ; N LinearACXXIV ; B 43 -11 728 734 ; +C 124 ; WX 759 ; N LinearACXXV ; B 40 -6 720 815 ; +C 125 ; WX 616 ; N LinearACXXVI ; B 21 3 594 746 ; +C 126 ; WX 341 ; N LinearACXXVII ; B 33 -5 308 755 ; +C 127 ; WX 528 ; N LinearACXXVIII ; B 28 -3 500 749 ; +C 128 ; WX 737 ; N LinearACXXIX ; B 48 1 690 733 ; +C 129 ; WX 775 ; N LinearACXXX ; B 29 -19 747 746 ; +C 130 ; WX 511 ; N LinearACXXXI ; B 22 -1 490 754 ; +C 131 ; WX 682 ; N LinearACXXXII ; B 41 1 641 769 ; +C 132 ; WX 616 ; N LinearACXXXIII ; B 32 12 584 767 ; +C 133 ; WX 638 ; N LinearACXXXIV ; B 28 -3 610 783 ; +C 134 ; WX 808 ; N LinearACXXXV ; B 36 -4 772 729 ; +C 135 ; WX 654 ; N LinearACXXXVI ; B 29 6 625 760 ; +C 136 ; WX 698 ; N LinearACXXXVII ; B 24 -5 674 560 ; +C 137 ; WX 550 ; N LinearACXXXVIII ; B 22 -4 527 697 ; +C 138 ; WX 341 ; N LinearACXXXIX ; B 30 -2 311 751 ; +C 139 ; WX 786 ; N LinearACXL ; B 25 -2 761 777 ; +C 140 ; WX 831 ; N LinearACXLI ; B 33 26 798 765 ; +C 141 ; WX 709 ; N LinearACXLII ; B 30 -4 680 763 ; +C 142 ; WX 654 ; N LinearACXLIII ; B 32 -76 624 780 ; +C 143 ; WX 605 ; N LinearACXLIV ; B 31 -3 574 727 ; +C 144 ; WX 363 ; N LinearACXLV ; B 31 -4 331 779 ; +C 145 ; WX 341 ; N LinearACXLVI ; B 33 -2 307 778 ; +C 146 ; WX 704 ; N LinearACXLVII ; B 28 -2 676 686 ; +C 147 ; WX 665 ; N LinearACXLVIII ; B 27 4 638 735 ; +C 148 ; WX 550 ; N LinearACXLIX ; B 30 -5 521 733 ; +C 149 ; WX 715 ; N LinearACL ; B 22 1 693 477 ; +C 150 ; WX 374 ; N LinearACLI ; B 39 -2 335 731 ; +C 151 ; WX 753 ; N LinearACLII ; B 54 9 700 783 ; +C 152 ; WX 671 ; N LinearACLIII ; B 35 10 638 703 ; +C 153 ; WX 825 ; N LinearACLIV ; B 44 -22 780 516 ; +C 154 ; WX 660 ; N LinearACLV ; B 47 0 613 727 ; +C 155 ; WX 715 ; N LinearACLVI ; B 38 2 677 474 ; +C 156 ; WX 495 ; N LinearACLVII ; B 28 1 466 783 ; +C 157 ; WX 341 ; N LinearACLVIII ; B 28 -3 314 753 ; +C 158 ; WX 1100 ; N LinearACLIX ; B 28 1 1072 682 ; +C 159 ; WX 825 ; N LinearACLX ; B 64 3 762 486 ; +C 160 ; WX 522 ; N LinearACLXI ; B 32 -3 491 713 ; +C 161 ; WX 704 ; N LinearACLXII ; B 37 -1 666 440 ; +C 162 ; WX 698 ; N LinearACLXIII ; B 28 0 671 571 ; +C 163 ; WX 385 ; N LinearACLXIV ; B 28 -7 358 742 ; +C 164 ; WX 682 ; N LinearACLXV ; B 30 1 652 558 ; +C 165 ; WX 803 ; N LinearACLXVI ; B 38 -2 776 593 ; +C 166 ; WX 1100 ; N LinearACLXVII ; B 37 -78 1063 584 ; +C 167 ; WX 957 ; N LinearACLXVIII ; B 31 -11 928 471 ; +C 168 ; WX 693 ; N LinearACLXIX ; B 33 4 661 599 ; +C 169 ; WX 506 ; N LinearACLXX ; B 35 1 472 503 ; +C 170 ; WX 286 ; N LinearACLXXI ; B 32 1 254 838 ; +C 171 ; WX 682 ; N LinearACLXXII ; B 20 3 661 556 ; +C 172 ; WX 797 ; N LinearACLXXIII ; B 27 -41 770 525 ; +C 173 ; WX 808 ; N LinearACLXXIV ; B 24 -18 784 462 ; +C 174 ; WX 451 ; N LinearACLXXV ; B 17 0 434 458 ; +C 175 ; WX 313 ; N LinearACLXXVI ; B 20 -2 294 644 ; +C 176 ; WX 693 ; N LinearACLXXVII ; B 20 1 673 580 ; +C 177 ; WX 891 ; N LinearACLXXVIII ; B 19 4 872 734 ; +C 178 ; WX 1100 ; N LinearACLXXIX ; B 40 5 1060 565 ; +C 179 ; WX 495 ; N LinearACLXXX ; B 29 -8 466 605 ; +C 180 ; WX 616 ; N LinearACLXXXI ; B 26 -3 590 557 ; +C 181 ; WX 786 ; N LinearACLXXXII ; B 29 -3 758 528 ; +C 182 ; WX 830 ; N LinearACLXXXIII ; B 34 -9 797 461 ; +C 183 ; WX 451 ; N LinearACLXXXIV ; B 35 4 416 734 ; +C 184 ; WX 555 ; N LinearACLXXXV ; B 32 -2 523 603 ; +C 185 ; WX 830 ; N LinearACLXXXVI ; B 26 -1 805 771 ; +C 186 ; WX 847 ; N LinearACLXXXVII ; B 22 4 825 574 ; +C 187 ; WX 506 ; N LinearACLXXXVIII ; B 28 5 478 670 ; +C 188 ; WX 715 ; N LinearACLXXXIX ; B 31 -2 685 632 ; +C 189 ; WX 396 ; N LinearACLXXXX ; B 29 0 367 671 ; +C 190 ; WX 528 ; N LinearACXCI ; B 23 4 505 565 ; +C 191 ; WX 594 ; N LinearACXCII ; B 22 2 571 309 ; +C 192 ; WX 847 ; N LinearACXCIII ; B 25 4 823 574 ; +C 193 ; WX 836 ; N LinearACXCIV ; B 30 1 805 670 ; +C 194 ; WX 1100 ; N LinearACXCV ; B 37 -2 1062 616 ; +C 195 ; WX 363 ; N LinearACXCVI ; B 30 -1 333 699 ; +C 196 ; WX 616 ; N LinearACXCVII ; B 45 -2 570 603 ; +C 197 ; WX 1012 ; N LinearACXCVIII ; B 37 -60 975 626 ; +C 198 ; WX 847 ; N LinearACXCIX ; B 43 16 803 578 ; +C 199 ; WX 902 ; N LinearACC ; B 30 9 873 665 ; +C 200 ; WX 1067 ; N LinearACCI ; B 42 -4 1024 560 ; +C 201 ; WX 297 ; N LinearACCII ; B 16 8 281 549 ; +C 202 ; WX 440 ; N LinearACCIII ; B 27 16 413 578 ; +C 203 ; WX 275 ; N LinearACCIV ; B 25 2 250 758 ; +C 204 ; WX 770 ; N LinearACCV ; B 20 10 751 626 ; +C 205 ; WX 891 ; N LinearACCVI ; B 28 9 863 605 ; +C 206 ; WX 324 ; N LinearACCVII ; B 29 0 296 625 ; +C 207 ; WX 748 ; N LinearACCVIII ; B 22 1 725 568 ; +C 208 ; WX 726 ; N LinearACCIX ; B 36 -2 689 767 ; +C 209 ; WX 731 ; N LinearACCX ; B 31 3 700 607 ; +C 210 ; WX 924 ; N LinearACCXI ; B 23 -3 901 605 ; +EndCharMetrics +EndFontMetrics diff --git a/Master/texmf-dist/doc/fonts/archaic/linearA/doc/linearA_glyphs.pdf b/Master/texmf-dist/doc/fonts/archaic/linearA/doc/linearA_glyphs.pdf new file mode 100644 index 00000000000..5f7d8813c6a Binary files /dev/null and b/Master/texmf-dist/doc/fonts/archaic/linearA/doc/linearA_glyphs.pdf differ diff --git a/Master/texmf-dist/doc/fonts/archaic/linearA/dvips/linearA.map b/Master/texmf-dist/doc/fonts/archaic/linearA/dvips/linearA.map new file mode 100644 index 00000000000..977a789a9ae --- /dev/null +++ b/Master/texmf-dist/doc/fonts/archaic/linearA/dvips/linearA.map @@ -0,0 +1,2 @@ +LinearA LinearA Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} +%\iffalse +% +% (c) copyright 2006 Apostolos Syropoulos +% This program can be redistributed and/or modified under the terms +% of the LaTeX Project Public License Distributed from CTAN +% archives in directory macros/latex/base/lppl.txt; either +% version 1 of the License, or any later version. +% +% Please report errors or suggestions for improvement to +% +% Apostolos Syropoulos (asyropoulos@yahoo.com) +% +%\fi +% \CheckSum{1980} +% \iffalse This is a MetaComment +% +%\ProvidesFile{linearA.sty} +% +% [2006/03/13 v1.0 Package `linearA.sty'] +% +% \begin{macrocode} +%<*driver> +\documentclass{ltxdoc} +\GetFileInfo{linearA.drv} +\begin{document} + \DocInput{linearA.dtx} +\end{document} +% +% \end{macrocode} +% \fi +%\StopEventually{} +%\MakeShortVerb{\|} +%\title{The `linearA' package} +%\author{Apostolos Syropoulos} +% \date{2006/03/13} +%\maketitle +% \begin{abstract} +% The \textsf{linearA} package provides a simple interface to two +% fonts which include all known symbols, simple and complex, of the Linear A +% script. This way one can easily replicate Linear A ``texts'' using modern +% typographic technology. +%\end{abstract} +% +%\section{Introduction} +% +% The \textsf{linearA} package provides a simple interface to the +% \textsf{LinearA} and \textsf{LinearACmplxSigns} fonts, designed by the +% same author, which include all known, simple and complex, symbols of +% the Linear A script. Thus, one can easily replicate ancient ``texts'' +% using modern typographical technology. Clearly, since this script has +% not deciphered (yet), the present typographic tools could be used to +% digitize the corpus of the script. Since the list of commands is rather +% long, one should consult the accompanying usage document in order to +% determine which command generates which symbol. +% +% \section{The Source Code} +% +% A typical PostScript Type 1 font contains at most 256 glyphs and since +% the known symbols of Linear A are roughly 390, it was necessary to +% develop two fonts. Consequently, it is necessary to define two different +% font families, one for each font. The first font family defines the +% necessary commands to access the glyphs of font LinearA: +% \begin{macrocode} +%<*linearA> +\DeclareFontSubstitution{U}{LinearAI}{m}{n} +\DeclareFontFamily{U}{LinearAI}{\hyphenchar\font=-1} +\DeclareFontShape{U}{LinearAI}{m}{n}{% + <-> LinearA }{} +\DeclareFontShape{U}{LinearAI}{m}{sl}{ + <-> ssub * LinearAI/m/n}{} +\DeclareFontShape{U}{LinearAI}{m}{it}{ + <-> ssub * LinearAI/m/n}{} +\DeclareFontShape{U}{LinearAI}{m}{sc}{ + <-> ssub * LinearAI/m/n}{} +\DeclareFontShape{U}{LinearAI}{bx}{n}{ + <-> ssub * LinearAI/m/n}{} +\DeclareFontShape{U}{LinearAI}{bx}{sl}{ + <-> ssub * LinearAI/m/n}{} +\DeclareFontShape{U}{LinearAI}{bx}{it}{ + <-> ssub * LinearAI/m/n}{} +\DeclareFontShape{U}{LinearAI}{bx}{sc}{ + <-> ssub * LinearAI/m/n}{} +\def\LinearAIfamily{\fontencoding{U}\fontfamily{LinearAI}\selectfont} +% \end{macrocode} +% The first font family defines the necessary commands to access the glyphs +% of font LinearACmplxSigns: +% \begin{macrocode} +\DeclareFontSubstitution{U}{LinearAII}{m}{n} +\DeclareFontFamily{U}{LinearAII}{\hyphenchar\font=-1} +\DeclareFontShape{U}{LinearAII}{m}{n}{% + <-> LinearACmplxSigns }{} +\DeclareFontShape{U}{LinearAII}{m}{sl}{ + <-> ssub * LinearAII/m/n}{} +\DeclareFontShape{U}{LinearAII}{m}{it}{ + <-> ssub * LinearAII/m/n}{} +\DeclareFontShape{U}{LinearAII}{m}{sc}{ + <-> ssub * LinearAII/m/n}{} +\DeclareFontShape{U}{LinearAII}{bx}{n}{ + <-> ssub * LinearAII/m/n}{} +\DeclareFontShape{U}{LinearAII}{bx}{sl}{ + <-> ssub * LinearAII/m/n}{} +\DeclareFontShape{U}{LinearAII}{bx}{it}{ + <-> ssub * LinearAII/m/n}{} +\DeclareFontShape{U}{LinearAII}{bx}{sc}{ + <-> ssub * LinearAII/m/n}{} +\def\LinearAIIfamily{\fontencoding{U}\fontfamily{LinearAII}\selectfont} +% \end{macrocode} +% The various glyph access commands should not generated ugly output, thus +% we make use of the \textsc{xspace} package: +% \begin{macrocode} +\RequirePackage{xspace} +% \end{macrocode} +% The various glyph access commands have all the same form: +% |\LinearAXXXXX|, where |XXXXX| is some uppercase roman numeral. +% That's all! +% \begin{macrocode} +\def\LinearAI{{\LinearAIfamily\char'0}\xspace} +\def\LinearAII{{\LinearAIfamily\char'1}\xspace} +\def\LinearAIII{{\LinearAIfamily\char'2}\xspace} +\def\LinearAIV{{\LinearAIfamily\char'3}\xspace} +\def\LinearAV{{\LinearAIfamily\char'4}\xspace} +\def\LinearAVI{{\LinearAIfamily\char'5}\xspace} +\def\LinearAVII{{\LinearAIfamily\char'6}\xspace} +\def\LinearAVIII{{\LinearAIfamily\char'7}\xspace} +\def\LinearAIX{{\LinearAIfamily\char'10}\xspace} +\def\LinearAX{{\LinearAIfamily\char'11}\xspace} +\def\LinearAXI{{\LinearAIfamily\char'12}\xspace} +\def\LinearAXII{{\LinearAIfamily\char'13}\xspace} +\def\LinearAXIII{{\LinearAIfamily\char'14}\xspace} +\def\LinearAXIV{{\LinearAIfamily\char'15}\xspace} +\def\LinearAXV{{\LinearAIfamily\char'16}\xspace} +\def\LinearAXVI{{\LinearAIfamily\char'17}\xspace} +\def\LinearAXVII{{\LinearAIfamily\char'20}\xspace} +\def\LinearAXVIII{{\LinearAIfamily\char'21}\xspace} +\def\LinearAXIX{{\LinearAIfamily\char'22}\xspace} +\def\LinearAXX{{\LinearAIfamily\char'23}\xspace} +\def\LinearAXXI{{\LinearAIfamily\char'24}\xspace} +\def\LinearAXXII{{\LinearAIfamily\char'25}\xspace} +\def\LinearAXXIII{{\LinearAIfamily\char'26}\xspace} +\def\LinearAXXIV{{\LinearAIfamily\char'27}\xspace} +\def\LinearAXXV{{\LinearAIfamily\char'30}\xspace} +\def\LinearAXXVI{{\LinearAIfamily\char'31}\xspace} +\def\LinearAXXVII{{\LinearAIfamily\char'32}\xspace} +\def\LinearAXXVIII{{\LinearAIfamily\char'33}\xspace} +\def\LinearAXXIX{{\LinearAIfamily\char'34}\xspace} +\def\LinearAXXX{{\LinearAIfamily\char'35}\xspace} +\def\LinearAXXXI{{\LinearAIfamily\char'36}\xspace} +\def\LinearAXXXII{{\LinearAIfamily\char'37}\xspace} +\def\LinearAXXXIII{{\LinearAIfamily\char'40}\xspace} +\def\LinearAXXXIV{{\LinearAIfamily\char'41}\xspace} +\def\LinearAXXXV{{\LinearAIfamily\char'42}\xspace} +\def\LinearAXXXVI{{\LinearAIfamily\char'43}\xspace} +\def\LinearAXXXVII{{\LinearAIfamily\char'44}\xspace} +\def\LinearAXXXVIII{{\LinearAIfamily\char'45}\xspace} +\def\LinearAXXXIX{{\LinearAIfamily\char'46}\xspace} +\def\LinearAXL{{\LinearAIfamily\char'47}\xspace} +\def\LinearAXLI{{\LinearAIfamily\char'50}\xspace} +\def\LinearAXLII{{\LinearAIfamily\char'51}\xspace} +\def\LinearAXLIII{{\LinearAIfamily\char'52}\xspace} +\def\LinearAXLIV{{\LinearAIfamily\char'53}\xspace} +\def\LinearAXLV{{\LinearAIfamily\char'54}\xspace} +\def\LinearAXLVI{{\LinearAIfamily\char'55}\xspace} +\def\LinearAXLVII{{\LinearAIfamily\char'56}\xspace} +\def\LinearAXLVIII{{\LinearAIfamily\char'57}\xspace} +\def\LinearAXLIX{{\LinearAIfamily\char'60}\xspace} +\def\LinearAL{{\LinearAIfamily\char'61}\xspace} +\def\LinearALI{{\LinearAIfamily\char'62}\xspace} +\def\LinearALII{{\LinearAIfamily\char'63}\xspace} +\def\LinearALIII{{\LinearAIfamily\char'64}\xspace} +\def\LinearALIV{{\LinearAIfamily\char'65}\xspace} +\def\LinearALV{{\LinearAIfamily\char'66}\xspace} +\def\LinearALVI{{\LinearAIfamily\char'67}\xspace} +\def\LinearALVII{{\LinearAIfamily\char'70}\xspace} +\def\LinearALVIII{{\LinearAIfamily\char'71}\xspace} +\def\LinearALIX{{\LinearAIfamily\char'72}\xspace} +\def\LinearALX{{\LinearAIfamily\char'73}\xspace} +\def\LinearALXI{{\LinearAIfamily\char'74}\xspace} +\def\LinearALXII{{\LinearAIfamily\char'75}\xspace} +\def\LinearALXIII{{\LinearAIfamily\char'76}\xspace} +\def\LinearALXIV{{\LinearAIfamily\char'77}\xspace} +\def\LinearALXV{{\LinearAIfamily\char'100}\xspace} +\def\LinearALXVI{{\LinearAIfamily\char'101}\xspace} +\def\LinearALXVII{{\LinearAIfamily\char'102}\xspace} +\def\LinearALXVIII{{\LinearAIfamily\char'103}\xspace} +\def\LinearALXIX{{\LinearAIfamily\char'104}\xspace} +\def\LinearALXX{{\LinearAIfamily\char'105}\xspace} +\def\LinearALXXI{{\LinearAIfamily\char'106}\xspace} +\def\LinearALXXII{{\LinearAIfamily\char'107}\xspace} +\def\LinearALXXIII{{\LinearAIfamily\char'110}\xspace} +\def\LinearALXXIV{{\LinearAIfamily\char'111}\xspace} +\def\LinearALXXV{{\LinearAIfamily\char'112}\xspace} +\def\LinearALXXVI{{\LinearAIfamily\char'113}\xspace} +\def\LinearALXXVII{{\LinearAIfamily\char'114}\xspace} +\def\LinearALXXVIII{{\LinearAIfamily\char'115}\xspace} +\def\LinearALXXIX{{\LinearAIfamily\char'116}\xspace} +\def\LinearALXXX{{\LinearAIfamily\char'117}\xspace} +\def\LinearALXXXI{{\LinearAIfamily\char'120}\xspace} +\def\LinearALXXXII{{\LinearAIfamily\char'121}\xspace} +\def\LinearALXXXIII{{\LinearAIfamily\char'122}\xspace} +\def\LinearALXXXIV{{\LinearAIfamily\char'123}\xspace} +\def\LinearALXXXV{{\LinearAIfamily\char'124}\xspace} +\def\LinearALXXXVI{{\LinearAIfamily\char'125}\xspace} +\def\LinearALXXXVII{{\LinearAIfamily\char'126}\xspace} +\def\LinearALXXXVIII{{\LinearAIfamily\char'127}\xspace} +\def\LinearALXXXIX{{\LinearAIfamily\char'130}\xspace} +\def\LinearALXXXX{{\LinearAIfamily\char'131}\xspace} +\def\LinearAXCI{{\LinearAIfamily\char'132}\xspace} +\def\LinearAXCII{{\LinearAIfamily\char'133}\xspace} +\def\LinearAXCIII{{\LinearAIfamily\char'134}\xspace} +\def\LinearAXCIV{{\LinearAIfamily\char'135}\xspace} +\def\LinearAXCV{{\LinearAIfamily\char'136}\xspace} +\def\LinearAXCVI{{\LinearAIfamily\char'137}\xspace} +\def\LinearAXCVII{{\LinearAIfamily\char'140}\xspace} +\def\LinearAXCVIII{{\LinearAIfamily\char'141}\xspace} +\def\LinearAXCIX{{\LinearAIfamily\char'142}\xspace} +\def\LinearAC{{\LinearAIfamily\char'143}\xspace} +\def\LinearACI{{\LinearAIfamily\char'144}\xspace} +\def\LinearACII{{\LinearAIfamily\char'145}\xspace} +\def\LinearACIII{{\LinearAIfamily\char'146}\xspace} +\def\LinearACIV{{\LinearAIfamily\char'147}\xspace} +\def\LinearACV{{\LinearAIfamily\char'150}\xspace} +\def\LinearACVI{{\LinearAIfamily\char'151}\xspace} +\def\LinearACVII{{\LinearAIfamily\char'152}\xspace} +\def\LinearACVIII{{\LinearAIfamily\char'153}\xspace} +\def\LinearACIX{{\LinearAIfamily\char'154}\xspace} +\def\LinearACX{{\LinearAIfamily\char'155}\xspace} +\def\LinearACXI{{\LinearAIfamily\char'156}\xspace} +\def\LinearACXII{{\LinearAIfamily\char'157}\xspace} +\def\LinearACXIII{{\LinearAIfamily\char'160}\xspace} +\def\LinearACXIV{{\LinearAIfamily\char'161}\xspace} +\def\LinearACXV{{\LinearAIfamily\char'162}\xspace} +\def\LinearACXVI{{\LinearAIfamily\char'163}\xspace} +\def\LinearACXVII{{\LinearAIfamily\char'164}\xspace} +\def\LinearACXVIII{{\LinearAIfamily\char'165}\xspace} +\def\LinearACXIX{{\LinearAIfamily\char'166}\xspace} +\def\LinearACXX{{\LinearAIfamily\char'167}\xspace} +\def\LinearACXXI{{\LinearAIfamily\char'170}\xspace} +\def\LinearACXXII{{\LinearAIfamily\char'171}\xspace} +\def\LinearACXXIII{{\LinearAIfamily\char'172}\xspace} +\def\LinearACXXIV{{\LinearAIfamily\char'173}\xspace} +\def\LinearACXXV{{\LinearAIfamily\char'174}\xspace} +\def\LinearACXXVI{{\LinearAIfamily\char'175}\xspace} +\def\LinearACXXVII{{\LinearAIfamily\char'176}\xspace} +\def\LinearACXXVIII{{\LinearAIfamily\char'177}\xspace} +\def\LinearACXXIX{{\LinearAIfamily\char'200}\xspace} +\def\LinearACXXX{{\LinearAIfamily\char'201}\xspace} +\def\LinearACXXXI{{\LinearAIfamily\char'202}\xspace} +\def\LinearACXXXII{{\LinearAIfamily\char'203}\xspace} +\def\LinearACXXXIII{{\LinearAIfamily\char'204}\xspace} +\def\LinearACXXXIV{{\LinearAIfamily\char'205}\xspace} +\def\LinearACXXXV{{\LinearAIfamily\char'206}\xspace} +\def\LinearACXXXVI{{\LinearAIfamily\char'207}\xspace} +\def\LinearACXXXVII{{\LinearAIfamily\char'210}\xspace} +\def\LinearACXXXVIII{{\LinearAIfamily\char'211}\xspace} +\def\LinearACXXXIX{{\LinearAIfamily\char'212}\xspace} +\def\LinearACXL{{\LinearAIfamily\char'213}\xspace} +\def\LinearACXLI{{\LinearAIfamily\char'214}\xspace} +\def\LinearACXLII{{\LinearAIfamily\char'215}\xspace} +\def\LinearACXLIII{{\LinearAIfamily\char'216}\xspace} +\def\LinearACXLIV{{\LinearAIfamily\char'217}\xspace} +\def\LinearACXLV{{\LinearAIfamily\char'220}\xspace} +\def\LinearACXLVI{{\LinearAIfamily\char'221}\xspace} +\def\LinearACXLVII{{\LinearAIfamily\char'222}\xspace} +\def\LinearACXLVIII{{\LinearAIfamily\char'223}\xspace} +\def\LinearACXLIX{{\LinearAIfamily\char'224}\xspace} +\def\LinearACL{{\LinearAIfamily\char'225}\xspace} +\def\LinearACLI{{\LinearAIfamily\char'226}\xspace} +\def\LinearACLII{{\LinearAIfamily\char'227}\xspace} +\def\LinearACLIII{{\LinearAIfamily\char'230}\xspace} +\def\LinearACLIV{{\LinearAIfamily\char'231}\xspace} +\def\LinearACLV{{\LinearAIfamily\char'232}\xspace} +\def\LinearACLVI{{\LinearAIfamily\char'233}\xspace} +\def\LinearACLVII{{\LinearAIfamily\char'234}\xspace} +\def\LinearACLVIII{{\LinearAIfamily\char'235}\xspace} +\def\LinearACLIX{{\LinearAIfamily\char'236}\xspace} +\def\LinearACLX{{\LinearAIfamily\char'237}\xspace} +\def\LinearACLXI{{\LinearAIfamily\char'240}\xspace} +\def\LinearACLXII{{\LinearAIfamily\char'241}\xspace} +\def\LinearACLXIII{{\LinearAIfamily\char'242}\xspace} +\def\LinearACLXIV{{\LinearAIfamily\char'243}\xspace} +\def\LinearACLXV{{\LinearAIfamily\char'244}\xspace} +\def\LinearACLXVI{{\LinearAIfamily\char'245}\xspace} +\def\LinearACLXVII{{\LinearAIfamily\char'246}\xspace} +\def\LinearACLXVIII{{\LinearAIfamily\char'247}\xspace} +\def\LinearACLXIX{{\LinearAIfamily\char'250}\xspace} +\def\LinearACLXX{{\LinearAIfamily\char'251}\xspace} +\def\LinearACLXXI{{\LinearAIfamily\char'252}\xspace} +\def\LinearACLXXII{{\LinearAIfamily\char'253}\xspace} +\def\LinearACLXXIII{{\LinearAIfamily\char'254}\xspace} +\def\LinearACLXXIV{{\LinearAIfamily\char'255}\xspace} +\def\LinearACLXXV{{\LinearAIfamily\char'256}\xspace} +\def\LinearACLXXVI{{\LinearAIfamily\char'257}\xspace} +\def\LinearACLXXVII{{\LinearAIfamily\char'260}\xspace} +\def\LinearACLXXVIII{{\LinearAIfamily\char'261}\xspace} +\def\LinearACLXXIX{{\LinearAIIfamily\char'0}\xspace} +\def\LinearACLXXX{{\LinearAIIfamily\char'1}\xspace} +\def\LinearACLXXXI{{\LinearAIIfamily\char'2}\xspace} +\def\LinearACLXXXII{{\LinearAIIfamily\char'3}\xspace} +\def\LinearACLXXXIII{{\LinearAIIfamily\char'4}\xspace} +\def\LinearACLXXXIV{{\LinearAIIfamily\char'5}\xspace} +\def\LinearACLXXXV{{\LinearAIIfamily\char'6}\xspace} +\def\LinearACLXXXVI{{\LinearAIIfamily\char'7}\xspace} +\def\LinearACLXXXVII{{\LinearAIIfamily\char'10}\xspace} +\def\LinearACLXXXVIII{{\LinearAIIfamily\char'11}\xspace} +\def\LinearACLXXXIX{{\LinearAIIfamily\char'12}\xspace} +\def\LinearACLXXXX{{\LinearAIIfamily\char'13}\xspace} +\def\LinearACXCI{{\LinearAIIfamily\char'14}\xspace} +\def\LinearACXCII{{\LinearAIIfamily\char'15}\xspace} +\def\LinearACXCIII{{\LinearAIIfamily\char'16}\xspace} +\def\LinearACXCIV{{\LinearAIIfamily\char'17}\xspace} +\def\LinearACXCV{{\LinearAIIfamily\char'20}\xspace} +\def\LinearACXCVI{{\LinearAIIfamily\char'21}\xspace} +\def\LinearACXCVII{{\LinearAIIfamily\char'22}\xspace} +\def\LinearACXCVIII{{\LinearAIIfamily\char'23}\xspace} +\def\LinearACXCIX{{\LinearAIIfamily\char'24}\xspace} +\def\LinearACC{{\LinearAIIfamily\char'25}\xspace} +\def\LinearACCI{{\LinearAIIfamily\char'26}\xspace} +\def\LinearACCII{{\LinearAIIfamily\char'27}\xspace} +\def\LinearACCIII{{\LinearAIIfamily\char'30}\xspace} +\def\LinearACCIV{{\LinearAIIfamily\char'31}\xspace} +\def\LinearACCV{{\LinearAIIfamily\char'32}\xspace} +\def\LinearACCVI{{\LinearAIIfamily\char'33}\xspace} +\def\LinearACCVII{{\LinearAIIfamily\char'34}\xspace} +\def\LinearACCVIII{{\LinearAIIfamily\char'35}\xspace} +\def\LinearACCIX{{\LinearAIIfamily\char'36}\xspace} +\def\LinearACCX{{\LinearAIIfamily\char'37}\xspace} +\def\LinearACCXI{{\LinearAIIfamily\char'40}\xspace} +\def\LinearACCXII{{\LinearAIIfamily\char'41}\xspace} +\def\LinearACCXIII{{\LinearAIIfamily\char'42}\xspace} +\def\LinearACCXIV{{\LinearAIIfamily\char'43}\xspace} +\def\LinearACCXV{{\LinearAIIfamily\char'44}\xspace} +\def\LinearACCXVI{{\LinearAIIfamily\char'45}\xspace} +\def\LinearACCXVII{{\LinearAIIfamily\char'46}\xspace} +\def\LinearACCXVIII{{\LinearAIIfamily\char'47}\xspace} +\def\LinearACCXIX{{\LinearAIIfamily\char'50}\xspace} +\def\LinearACCXX{{\LinearAIIfamily\char'51}\xspace} +\def\LinearACCXXI{{\LinearAIIfamily\char'52}\xspace} +\def\LinearACCXXII{{\LinearAIIfamily\char'53}\xspace} +\def\LinearACCXXIII{{\LinearAIIfamily\char'54}\xspace} +\def\LinearACCXXIV{{\LinearAIIfamily\char'55}\xspace} +\def\LinearACCXXV{{\LinearAIIfamily\char'56}\xspace} +\def\LinearACCXXVI{{\LinearAIIfamily\char'57}\xspace} +\def\LinearACCXXVII{{\LinearAIIfamily\char'60}\xspace} +\def\LinearACCXXVIII{{\LinearAIIfamily\char'61}\xspace} +\def\LinearACCXXIX{{\LinearAIIfamily\char'62}\xspace} +\def\LinearACCXXX{{\LinearAIIfamily\char'63}\xspace} +\def\LinearACCXXXI{{\LinearAIIfamily\char'64}\xspace} +\def\LinearACCXXXII{{\LinearAIIfamily\char'65}\xspace} +\def\LinearACCXXXIII{{\LinearAIIfamily\char'66}\xspace} +\def\LinearACCXXXIV{{\LinearAIIfamily\char'67}\xspace} +\def\LinearACCXXXV{{\LinearAIIfamily\char'70}\xspace} +\def\LinearACCXXXVI{{\LinearAIIfamily\char'71}\xspace} +\def\LinearACCXXXVII{{\LinearAIIfamily\char'72}\xspace} +\def\LinearACCXXXVIII{{\LinearAIIfamily\char'73}\xspace} +\def\LinearACCXXXIX{{\LinearAIIfamily\char'74}\xspace} +\def\LinearACCXL{{\LinearAIIfamily\char'75}\xspace} +\def\LinearACCXLI{{\LinearAIIfamily\char'76}\xspace} +\def\LinearACCXLII{{\LinearAIIfamily\char'77}\xspace} +\def\LinearACCXLIII{{\LinearAIIfamily\char'100}\xspace} +\def\LinearACCXLIV{{\LinearAIIfamily\char'101}\xspace} +\def\LinearACCXLV{{\LinearAIIfamily\char'102}\xspace} +\def\LinearACCXLVI{{\LinearAIIfamily\char'103}\xspace} +\def\LinearACCXLVII{{\LinearAIIfamily\char'104}\xspace} +\def\LinearACCXLVIII{{\LinearAIIfamily\char'105}\xspace} +\def\LinearACCXLIX{{\LinearAIIfamily\char'106}\xspace} +\def\LinearACCL{{\LinearAIIfamily\char'107}\xspace} +\def\LinearACCLI{{\LinearAIIfamily\char'110}\xspace} +\def\LinearACCLII{{\LinearAIIfamily\char'111}\xspace} +\def\LinearACCLIII{{\LinearAIIfamily\char'112}\xspace} +\def\LinearACCLIV{{\LinearAIIfamily\char'113}\xspace} +\def\LinearACCLV{{\LinearAIIfamily\char'114}\xspace} +\def\LinearACCLVI{{\LinearAIIfamily\char'115}\xspace} +\def\LinearACCLVII{{\LinearAIIfamily\char'116}\xspace} +\def\LinearACCLVIII{{\LinearAIIfamily\char'117}\xspace} +\def\LinearACCLIX{{\LinearAIIfamily\char'120}\xspace} +\def\LinearACCLX{{\LinearAIIfamily\char'121}\xspace} +\def\LinearACCLXI{{\LinearAIIfamily\char'122}\xspace} +\def\LinearACCLXII{{\LinearAIIfamily\char'123}\xspace} +\def\LinearACCLXIII{{\LinearAIIfamily\char'124}\xspace} +\def\LinearACCLXIV{{\LinearAIIfamily\char'125}\xspace} +\def\LinearACCLXV{{\LinearAIIfamily\char'126}\xspace} +\def\LinearACCLXVI{{\LinearAIIfamily\char'127}\xspace} +\def\LinearACCLXVII{{\LinearAIIfamily\char'130}\xspace} +\def\LinearACCLXVIII{{\LinearAIIfamily\char'131}\xspace} +\def\LinearACCLXIX{{\LinearAIIfamily\char'132}\xspace} +\def\LinearACCLXX{{\LinearAIIfamily\char'133}\xspace} +\def\LinearACCLXXI{{\LinearAIIfamily\char'134}\xspace} +\def\LinearACCLXXII{{\LinearAIIfamily\char'135}\xspace} +\def\LinearACCLXXIII{{\LinearAIIfamily\char'136}\xspace} +\def\LinearACCLXXIV{{\LinearAIIfamily\char'137}\xspace} +\def\LinearACCLXXV{{\LinearAIIfamily\char'140}\xspace} +\def\LinearACCLXXVI{{\LinearAIIfamily\char'141}\xspace} +\def\LinearACCLXXVII{{\LinearAIIfamily\char'142}\xspace} +\def\LinearACCLXXVIII{{\LinearAIIfamily\char'143}\xspace} +\def\LinearACCLXXIX{{\LinearAIIfamily\char'144}\xspace} +\def\LinearACCLXXX{{\LinearAIIfamily\char'145}\xspace} +\def\LinearACCLXXXI{{\LinearAIIfamily\char'146}\xspace} +\def\LinearACCLXXXII{{\LinearAIIfamily\char'147}\xspace} +\def\LinearACCLXXXIII{{\LinearAIIfamily\char'150}\xspace} +\def\LinearACCLXXXIV{{\LinearAIIfamily\char'151}\xspace} +\def\LinearACCLXXXV{{\LinearAIIfamily\char'152}\xspace} +\def\LinearACCLXXXVI{{\LinearAIIfamily\char'153}\xspace} +\def\LinearACCLXXXVII{{\LinearAIIfamily\char'154}\xspace} +\def\LinearACCLXXXVIII{{\LinearAIIfamily\char'155}\xspace} +\def\LinearACCLXXXIX{{\LinearAIIfamily\char'156}\xspace} +\def\LinearACCLXXXX{{\LinearAIIfamily\char'157}\xspace} +\def\LinearACCXCI{{\LinearAIIfamily\char'160}\xspace} +\def\LinearACCXCII{{\LinearAIIfamily\char'161}\xspace} +\def\LinearACCXCIII{{\LinearAIIfamily\char'162}\xspace} +\def\LinearACCXCIV{{\LinearAIIfamily\char'163}\xspace} +\def\LinearACCXCV{{\LinearAIIfamily\char'164}\xspace} +\def\LinearACCXCVI{{\LinearAIIfamily\char'165}\xspace} +\def\LinearACCXCVII{{\LinearAIIfamily\char'166}\xspace} +\def\LinearACCXCVIII{{\LinearAIIfamily\char'167}\xspace} +\def\LinearACCXCIX{{\LinearAIIfamily\char'170}\xspace} +\def\LinearACCC{{\LinearAIIfamily\char'171}\xspace} +\def\LinearACCCI{{\LinearAIIfamily\char'172}\xspace} +\def\LinearACCCII{{\LinearAIIfamily\char'173}\xspace} +\def\LinearACCCIII{{\LinearAIIfamily\char'174}\xspace} +\def\LinearACCCIV{{\LinearAIIfamily\char'175}\xspace} +\def\LinearACCCV{{\LinearAIIfamily\char'176}\xspace} +\def\LinearACCCVI{{\LinearAIIfamily\char'177}\xspace} +\def\LinearACCCVII{{\LinearAIIfamily\char'200}\xspace} +\def\LinearACCCVIII{{\LinearAIIfamily\char'201}\xspace} +\def\LinearACCCIX{{\LinearAIIfamily\char'202}\xspace} +\def\LinearACCCX{{\LinearAIIfamily\char'203}\xspace} +\def\LinearACCCXI{{\LinearAIIfamily\char'204}\xspace} +\def\LinearACCCXII{{\LinearAIIfamily\char'205}\xspace} +\def\LinearACCCXIII{{\LinearAIIfamily\char'206}\xspace} +\def\LinearACCCXIV{{\LinearAIIfamily\char'207}\xspace} +\def\LinearACCCXV{{\LinearAIIfamily\char'210}\xspace} +\def\LinearACCCXVI{{\LinearAIIfamily\char'211}\xspace} +\def\LinearACCCXVII{{\LinearAIIfamily\char'212}\xspace} +\def\LinearACCCXVIII{{\LinearAIIfamily\char'213}\xspace} +\def\LinearACCCXIX{{\LinearAIIfamily\char'214}\xspace} +\def\LinearACCCXX{{\LinearAIIfamily\char'215}\xspace} +\def\LinearACCCXXI{{\LinearAIIfamily\char'216}\xspace} +\def\LinearACCCXXII{{\LinearAIIfamily\char'217}\xspace} +\def\LinearACCCXXIII{{\LinearAIIfamily\char'220}\xspace} +\def\LinearACCCXXIV{{\LinearAIIfamily\char'221}\xspace} +\def\LinearACCCXXV{{\LinearAIIfamily\char'222}\xspace} +\def\LinearACCCXXVI{{\LinearAIIfamily\char'223}\xspace} +\def\LinearACCCXXVII{{\LinearAIIfamily\char'224}\xspace} +\def\LinearACCCXXVIII{{\LinearAIIfamily\char'225}\xspace} +\def\LinearACCCXXIX{{\LinearAIIfamily\char'226}\xspace} +\def\LinearACCCXXX{{\LinearAIIfamily\char'227}\xspace} +\def\LinearACCCXXXI{{\LinearAIIfamily\char'230}\xspace} +\def\LinearACCCXXXII{{\LinearAIIfamily\char'231}\xspace} +\def\LinearACCCXXXIII{{\LinearAIIfamily\char'232}\xspace} +\def\LinearACCCXXXIV{{\LinearAIIfamily\char'233}\xspace} +\def\LinearACCCXXXV{{\LinearAIIfamily\char'234}\xspace} +\def\LinearACCCXXXVI{{\LinearAIIfamily\char'235}\xspace} +\def\LinearACCCXXXVII{{\LinearAIIfamily\char'236}\xspace} +\def\LinearACCCXXXVIII{{\LinearAIIfamily\char'237}\xspace} +\def\LinearACCCXXXIX{{\LinearAIIfamily\char'240}\xspace} +\def\LinearACCCXL{{\LinearAIIfamily\char'241}\xspace} +\def\LinearACCCXLI{{\LinearAIIfamily\char'242}\xspace} +\def\LinearACCCXLII{{\LinearAIIfamily\char'243}\xspace} +\def\LinearACCCXLIII{{\LinearAIIfamily\char'244}\xspace} +\def\LinearACCCXLIV{{\LinearAIIfamily\char'245}\xspace} +\def\LinearACCCXLV{{\LinearAIIfamily\char'246}\xspace} +\def\LinearACCCXLVI{{\LinearAIIfamily\char'247}\xspace} +\def\LinearACCCXLVII{{\LinearAIIfamily\char'250}\xspace} +\def\LinearACCCXLVIII{{\LinearAIIfamily\char'251}\xspace} +\def\LinearACCCXLIX{{\LinearAIIfamily\char'252}\xspace} +\def\LinearACCCL{{\LinearAIIfamily\char'253}\xspace} +\def\LinearACCCLI{{\LinearAIIfamily\char'254}\xspace} +\def\LinearACCCLII{{\LinearAIIfamily\char'255}\xspace} +\def\LinearACCCLIII{{\LinearAIIfamily\char'256}\xspace} +\def\LinearACCCLIV{{\LinearAIIfamily\char'257}\xspace} +\def\LinearACCCLV{{\LinearAIIfamily\char'260}\xspace} +\def\LinearACCCLVI{{\LinearAIIfamily\char'261}\xspace} +\def\LinearACCCLVII{{\LinearAIIfamily\char'262}\xspace} +\def\LinearACCCLVIII{{\LinearAIIfamily\char'263}\xspace} +\def\LinearACCCLIX{{\LinearAIIfamily\char'264}\xspace} +\def\LinearACCCLX{{\LinearAIIfamily\char'265}\xspace} +\def\LinearACCCLXI{{\LinearAIIfamily\char'266}\xspace} +\def\LinearACCCLXII{{\LinearAIIfamily\char'267}\xspace} +\def\LinearACCCLXIII{{\LinearAIIfamily\char'270}\xspace} +\def\LinearACCCLXIV{{\LinearAIIfamily\char'271}\xspace} +\def\LinearACCCLXV{{\LinearAIIfamily\char'272}\xspace} +\def\LinearACCCLXVI{{\LinearAIIfamily\char'273}\xspace} +\def\LinearACCCLXVII{{\LinearAIIfamily\char'274}\xspace} +\def\LinearACCCLXVIII{{\LinearAIIfamily\char'275}\xspace} +\def\LinearACCCLXIX{{\LinearAIIfamily\char'276}\xspace} +\def\LinearACCCLXX{{\LinearAIIfamily\char'277}\xspace} +\def\LinearACCCLXXI{{\LinearAIIfamily\char'300}\xspace} +\def\LinearACCCLXXII{{\LinearAIIfamily\char'301}\xspace} +\def\LinearACCCLXXIII{{\LinearAIIfamily\char'302}\xspace} +\def\LinearACCCLXXIV{{\LinearAIIfamily\char'303}\xspace} +\def\LinearACCCLXXV{{\LinearAIIfamily\char'304}\xspace} +\def\LinearACCCLXXVI{{\LinearAIIfamily\char'305}\xspace} +\def\LinearACCCLXXVII{{\LinearAIIfamily\char'306}\xspace} +\def\LinearACCCLXXVIII{{\LinearAIIfamily\char'307}\xspace} +\def\LinearACCCLXXIX{{\LinearAIIfamily\char'310}\xspace} +\def\LinearACCCLXXX{{\LinearAIIfamily\char'311}\xspace} +\def\LinearACCCLXXXI{{\LinearAIIfamily\char'312}\xspace} +\def\LinearACCCLXXXII{{\LinearAIIfamily\char'313}\xspace} +\def\LinearACCCLXXXIII{{\LinearAIIfamily\char'314}\xspace} +\def\LinearACCCLXXXIV{{\LinearAIIfamily\char'315}\xspace} +\def\LinearACCCLXXXV{{\LinearAIIfamily\char'316}\xspace} +\def\LinearACCCLXXXVI{{\LinearAIIfamily\char'317}\xspace} +\def\LinearACCCLXXXVII{{\LinearAIIfamily\char'320}\xspace} +\def\LinearACCCLXXXVIII{{\LinearAIIfamily\char'321}\xspace} +\def\LinearACCCLXXXIX{{\LinearAIIfamily\char'322}\xspace} +% +% \end{macrocode} +% +% \Finale +%\section*{Acknowledgements} +% I would like to thank my students at the ``Second Chance School'' here +% in Xanthi, Greece, for their help and assistance. In particular, I would +% like to thank Apostolos Bakalakis for his enthusiasm and his really +% important help. diff --git a/Master/texmf-dist/doc/fonts/archaic/linearA/latex/linearA.ins b/Master/texmf-dist/doc/fonts/archaic/linearA/latex/linearA.ins new file mode 100644 index 00000000000..c3fa2eefab9 --- /dev/null +++ b/Master/texmf-dist/doc/fonts/archaic/linearA/latex/linearA.ins @@ -0,0 +1,52 @@ +%% Copyright 2006 Apostolos Syropoulos +%% +%% This file is part of the `linearA' package. +%% You are not allowed to modify its contents. +%% +\def\filedate{2006/03/13} +\def\batchfile{linearA.ins} +\input docstrip.tex + +{\ifx\generate\undefined +\Msg{**********************************************} +\Msg{*} +\Msg{* This installation requires docstrip} +\Msg{* version 2.3c or later.} +\Msg{*} +\Msg{* An older version of docstrip has been input} +\Msg{*} +\Msg{**********************************************} +\errhelp{Move or rename old docstrip.tex.} +\errmessage{Old docstrip in input path} +\batchmode +\csname @@end\endcsname +\fi} + +\preamble + + (c) copyright 2006 Apostolos Syropoulos + This program can be redistributed and/or modified under the terms + of the LaTeX Project Public License Distributed from CTAN + archives in directory macros/latex/base/lppl.txt; either + version 1 of the License, or any later version. + + Please report errors or suggestions for improvement to + + Apostolos Syropoulos + asyropoulos@yahoo.com + +\endpreamble + + +\keepsilent + +\generate{\generateFile{linearA.sty}{f}{\from{linearA.dtx}{linearA}}} +\postamble +\endpostamble +\Msg{**********************************************************} +\Msg{* To finish installation you have to copy} +\Msg{* the generated .sty file in the appropriate} +\Msg{* directory and then to rehash your TeX system} +\Msg{* Happy Linear A TeXing!} +\Msg{**********************************************************} +\endinput diff --git a/Master/texmf-dist/doc/fonts/archaic/linearA/tfm/LinearA.tfm b/Master/texmf-dist/doc/fonts/archaic/linearA/tfm/LinearA.tfm new file mode 100644 index 00000000000..5895431c99e Binary files /dev/null and b/Master/texmf-dist/doc/fonts/archaic/linearA/tfm/LinearA.tfm differ diff --git a/Master/texmf-dist/doc/fonts/archaic/linearA/tfm/LinearACmplxSigns.tfm b/Master/texmf-dist/doc/fonts/archaic/linearA/tfm/LinearACmplxSigns.tfm new file mode 100644 index 00000000000..e6d3de629d5 Binary files /dev/null and b/Master/texmf-dist/doc/fonts/archaic/linearA/tfm/LinearACmplxSigns.tfm differ diff --git a/Master/texmf-dist/doc/fonts/archaic/linearA/type1/LinearA.pfb b/Master/texmf-dist/doc/fonts/archaic/linearA/type1/LinearA.pfb new file mode 100644 index 00000000000..2be6f5a6fe1 Binary files /dev/null and b/Master/texmf-dist/doc/fonts/archaic/linearA/type1/LinearA.pfb differ diff --git a/Master/texmf-dist/doc/fonts/archaic/linearA/type1/LinearACmplxSigns.pfb b/Master/texmf-dist/doc/fonts/archaic/linearA/type1/LinearACmplxSigns.pfb new file mode 100644 index 00000000000..d89c32458c6 Binary files /dev/null and b/Master/texmf-dist/doc/fonts/archaic/linearA/type1/LinearACmplxSigns.pfb differ diff --git a/Master/texmf-dist/doc/fonts/archaic/oldprsn/copsn10.mf b/Master/texmf-dist/doc/fonts/archaic/oldprsn/copsn10.mf deleted file mode 100644 index 5cba60ec790..00000000000 --- a/Master/texmf-dist/doc/fonts/archaic/oldprsn/copsn10.mf +++ /dev/null @@ -1,1001 +0,0 @@ -%% -%% This is file `copsn10.mf', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% oldprsn.dtx (with options: `up') -%% ------------------------------------------------------------------ -%% Author: Peter Wilson (Herries Press) herries dot press at earthlink dot net -%% Copyright 1999--2005 Peter R. Wilson -%% -%% This work may be distributed and/or modified under the -%% conditions of the Latex Project Public License, either -%% version 1.3 of this license or (at your option) any -%% later version. -%% The latest version of the license is in -%% http://www.latex-project.org/lppl.txt -%% and version 1.3 or later is part of all distributions of -%% LaTeX version 2003/06/01 or later. -%% -%% This work has the LPPL maintenance status "author-maintained". -%% -%% This work consists of the files listed in the README file. -%% ------------------------------------------------------------------ -%%% COPSN10.MF Computer Old Persian Cuneiform font 10 point design size. - - -font_identifier:="oldprsn"; font_size 10pt#; - -u#:=.2pt#; % unit width -ht#:=8pt#; % height of characters (CM cap-height is approx 6.8pt) -s#:=1.5pt#; % width correction (right and left) -o#:=1/20pt#; % overshoot -px#:=.4pt#; % horizontal width of pen -font_normal_space:=7pt#; % width of a blank space -font_normal_shrink:=.9pt#; % width correction for blank space -font_x_height:=4.5pt#; % height of one ex -font_quad:=10pt#; % an em - -font_coding_scheme:="Old Persian glyphs"; -mode_setup; - -ho#:=o#; % horizontal overshoot -leftloc#:=s#; % leftmost xcoord of character -py#:=px#; % vertical thickness of the pen - -define_pixels(s,u); -define_blacker_pixels(px,py); -define_good_x_pixels(leftloc); -define_corrected_pixels(o); % turn on overshoot correction -define_horizontal_corrected_pixels(ho); - -numeric midloc, rightloc, aw; -pickup pencircle xscaled px yscaled py; -stylus:=savepen; - -numeric trht, trbs; -numeric th, tb; -th = 6/24; tb = 8/24; -numeric wiht, wibs; -numeric wh, wb; -wh = 10/24; wb = 20/24; -def beginglyph(expr code, unit_width) = - beginchar(code, unit_width*ht#+2s#, ht#, 0); - midloc:=1/2w; rightloc:=(w-s); aw := rightloc-leftloc; - trht := th*h; trbs := tb*h; - wiht := wh*h; wibs := wb*h; - pickup stylus enddef; - -let cmchar=\; - - -def triangle(suffix $)(expr ht, bs, ang) = - path pth[]; - pair pr[]; - pr1 := (x$-ht,y$); % midpoint of base in default position - pr2 := pr1 shifted (1/2bs*up); % base points - pr3 := pr1 shifted (1/2bs*down); - z$trl = pr2 rotatedaround(z$, ang); - z$trr = pr3 rotatedaround(z$, ang); - z$trc = 1/2[z$trl,z$trr]; - z$tic = 1/2[z$,z$trc]; - pth$ := z$--z$trl--z$trr--cycle; -enddef; - - -def trir(suffix $)(expr ht, bs) = - path pth[]; - z$trc = (x$-ht, y$); % midpoint of base - z$trl = (x$trc, y$trc+1/2bs); % base points - z$trr = (x$trc, y$trc-1/2bs); - z$tic = 1/2[z$,z$trc]; - pth$ := z$--z$trl--z$trr--cycle; -enddef; - - -def triu(suffix $)(expr ht, bs) = - path pth[]; - z$trc = (x$, y$-ht); % midpoint of base - z$trl = (x$-1/2bs, y$trc); % base points - z$trr = (x$+1/2bs, y$trc); % base points - z$tic = 1/2[z$,z$trc]; - pth$ := z$--z$trl--z$trr--cycle; -enddef; - - -def tril(suffix $)(expr ht, bs) = - path pth[]; - z$trc = (x$+ht, y$); % midpoint of base - z$trl = (x$trc, y$trc-1/2bs); % base points - z$trr = (x$trc, y$trc+1/2bs); - z$tic = 1/2[z$,z$trc]; - pth$ := z$--z$trl--z$trr--cycle; -enddef; - - -def tril(suffix $)(expr ht, bs) = - path pth[]; - z$trc = (x$+ht, y$); % midpoint of base - z$trl = (x$trc, y$trc-1/2bs); % base points - z$trr = (x$trc, y$trc+1/2bs); - z$tic = 1/2[z$,z$trc]; - pth$ := z$--z$trl--z$trr--cycle; -enddef; - - -def trid(suffix $)(expr ht, bs) = - path pth[]; - z$trc = (x$, y$+ht); % midpoint of base - z$trl = (x$+1/2bs, y$trc); % base points - z$trr = (x$-1/2bs, y$trc); % base points - z$tic = 1/2[z$,z$trc]; - pth$ := z$--z$trl--z$trr--cycle; -enddef; - - -def wing(suffix $)(expr ht, bs, ang) = - path pth[]; - pair pr[]; - pr1 := (x$+ht,y$); % midpoint of base in default position - pr2 := pr1 shifted (1/2bs*down); % base points - pr3 := pr1 shifted (1/2bs*up); - pr4 := pr1 rotatedaround(z$, ang); - z$wil = pr2 rotatedaround(z$, ang); - z$wir = pr3 rotatedaround(z$, ang); - z$wic = 1/2[z$,pr4]; - pth$ := z$--z$wil{(z$wic-z$wil)}..z$wic..{(z$wir-z$wic)}z$wir--cycle; -enddef; - - -def wingl(suffix $)(expr ht, bs) = - path pth[]; - z$wil = (x$+ht, y$-1/2bs); % base points - z$wir = (x$wil, y$+1/2bs); - z$wic = (1/2[x$,x$wil], y$); % midpoint of base curve - pth$ := z$--z$wil{(z$wic-z$wil)}..z$wic..{(z$wir-z$wic)}z$wir--cycle; -enddef; - - -def wingd(suffix $)(expr ht, bs) = - path pth[]; - z$wil = (x$+1/2bs, y$+ht); % base points - z$wir = (x$-1/2bs, y$wil); - z$wic = (x$, 1/2[y$,y$wil]); % midpoint of base curve - pth$ := z$--z$wil{(z$wic-z$wil)}..z$wic..{(z$wir-z$wic)}z$wir--cycle; -enddef; - - -def wingr(suffix $)(expr ht, bs) = - path pth[]; - z$wil = (x$-ht, y$+1/2bs); % base points - z$wir = (x$wil, y$-1/2bs); - z$wic = (1/2[x$,x$wil], y$); % midpoint of base curve - pth$ := z$--z$wil{(z$wic-z$wil)}..z$wic..{(z$wir-z$wic)}z$wir--cycle; -enddef; - - -def wingu(suffix $)(expr ht, bs) = - path pth[]; - z$wil = (x$-1/2bs, y$-ht); % base points - z$wir = (x$+1/2bs, y$wil); - z$wic = (x$, 1/2[y$,y$wil]); % midpoint of base curve - pth$ := z$--z$wil{(z$wic-z$wil)}..z$wic..{(z$wir-z$wic)}z$wir--cycle; -enddef; - -cmchar "Old Persian letter a"; -beginglyph("a", (3tb+2th)); - z1trl=(leftloc,h); % top pin - trir(1, trht, trbs); fill pth1; - z1'=(rightloc,y1); draw z1tic--z1'; - z12trc=(midloc,y1trr); % middle pin - trid(12, trht, trbs); fill pth12; - z12'=(x12,0); draw z12tic--z12'; - z11trl=z12trr; % left pin - trid(11, trht, trbs); fill pth11; - z11'=(x11,0); draw z11tic--z11'; - z13trr=z12trl; % right pin - trid(13, trht, trbs); fill pth13; - z13'=(x13,0); draw z13tic--z13'; - labels(1,11,12,13); -endchar; - -cmchar "Old Persian letter i"; -beginglyph("i", (2tb)); %% 3tb too large - z1trl=(leftloc,h); % top pin - trir(1, trht, trbs); fill pth1; - z1'=(rightloc,y1); draw z1tic--z1'; - z11trr=z1trr; % left pin - trid(11, trht, trbs); fill pth11; - z11'=(x11,0); draw z11tic--z11'; - z12trr=z11trl; % middle pin - trid(12, trht, trbs); fill pth12; - z12'=(x12,0); draw z12tic--z12'; - z2trc=(x11trl,y1); % second top head - trir(2, trht, trbs); fill pth2; - labels(1,2,11,12,13); -endchar; - -cmchar "Old Persian letter u"; -beginglyph("u", (2tb+wh)); %% 3tb+wh too large - z31=(leftloc,1/2h); % left wing - wingl(31, wiht, wibs); fill pth31; - z1trl=(x31wil,h); % top pin - trir(1, trht, trbs); fill pth1; - z1'=(rightloc,y1); draw z1tic--z1'; - z11trr=z1trr; % left pin - trid(11, trht, trbs); fill pth11; - z11'=(x11,0); draw z11tic--z11'; - z12trr=z11trl; % middle pin - trid(12, trht, trbs); fill pth12; - z12'=(x12,0); draw z12tic--z12'; - labels(1,2,11,12,13); -endchar; - -cmchar "Old Persian syllable ka (k)"; -beginglyph("k", (3tb)); %% 4tb too large - z1trr=(leftloc,h); % left pin - trid(1, trht, trbs); fill pth1; - z1'=(x1,0); draw z1tic--z1'; - z11trr=(x1trl,1/2h); % top pin - trir(11, trht, trbs); fill pth11; - z11'=(rightloc,y11); draw z11tic--z11'; - z12trl=z11trr; % bottom pin - trir(12, trht, trbs); fill pth12; - z12'=(rightloc,y12); draw z12tic--z12'; - labels(1,11,12); -endchar; - -cmchar "Old Persian syllable ku (K)"; -beginglyph("K", (tb+wh)); - z1=(leftloc,1/2h); % wing - wingl(1, wiht, wibs); fill pth1; - z2trr=(x1wil,h); % pin - trid(2, trht, trbs); fill pth2; - z2'=(x2,0); draw z2tic--z2'; - labels(1,2); -endchar; - -cmchar "Old Persian syllable xa (x)"; -beginglyph("x", (2tb+2wh)); - z1=(leftloc,1/2h); % left wing - wingl(1, wiht, wibs); fill pth1; - z2=(x1wil,y1); % right wing - wingl(2, wiht, wibs); fill pth2; - z11trr=(x2wil,h); % left pin - trid(11, trht, trbs); fill pth11; - z11'=(x11,0); draw z11tic--z11'; - z12trr=z11trl; % right pin - trid(12, trht, trbs); fill pth12; - z12'=(x12,0); draw z12tic--z12'; - labels(1,2,11,12); -endchar; - -cmchar "Old Persian syllable ga (g)"; -beginglyph("g", (3tb+wh)); - z1=(leftloc,1/2h); % wing - wingl(1, wiht, wibs); fill pth1; - z11trr=(x1wil,h); % left pin - trid(11, trht, trbs); fill pth11; - z11'=(x11,0); draw z11tic--z11'; - z12trr=z11trl; % right pin - trid(12, trht, trbs); fill pth12; - z12'=(x12,0); draw z12tic--z12'; - z21trc=(x12trl,y1); % small pin - trir(21, trht, trbs); fill pth21; - z21'=(rightloc,y21); draw z21tic--z21'; - labels(1,2,11,12,21); -endchar; - -cmchar "Old Persian syllable gu (G)"; -beginglyph("G", (2tb+th+wh)); %% 3tb+wh too large - z1=(leftloc,1/2h); % wing - wingl(1, wiht, wibs); fill pth1; - z12trc=(x1wil, 1/2h); % middle pin - trir(12, trht, trbs); fill pth12; - z12'=(rightloc,y12); draw z12tic--z12'; - z13trl=z12trr; % bottom pin - trir(13, trht, trbs); fill pth13; - z13'=(rightloc,y13); draw z13tic--z13'; - z11trr=z12trl; % top pin - trir(11, trht, trbs); fill pth11; - z11'=(rightloc,y11); draw z11tic--z11'; - z111trc=1/2[z11trc,z11']; - trir(111, trht, trbs); fill pth111; - labels(1,2,3,4,5,6,11,12,13,111); -endchar; - -cmchar "Old Persian syllable ca (c)"; -beginglyph("c", (4tb)); - z1trl=(leftloc,h); % top pin - trir(1, trht, trbs); fill pth1; - z11trr=(x1, y1trr); % left pin - trid(11, trht, trbs); fill pth11; - z11'=(x11,0); draw z11tic--z11'; - z12trr=z11trl; % middle pin - trid(12, trht, trbs); fill pth12; - z12'=(x12,0); draw z12tic--z12'; - z2trl=z12trl; % bottom pin - trir(2, trht, trbs); fill pth2; - z2'=(rightloc,y2); draw z2tic--z2'; - z1'=(x2trl,y1); draw z1tic--z1'; % body of top pin - labels(1,2,3,4,5,6,11,12,13); -endchar; - -cmchar "Old Persian syllable ja (j)"; -beginglyph("j", (th+tb+wh)); - z1trc=(leftloc,1/2h); % hor pin - trir(1, trht, trbs); fill pth1; - z2=(rightloc-wiht,y1); % wing - wingl(2, wiht, wibs); fill pth2; - draw z1tic--z2; - z11trc=(1/2[x1,x2], h); % vert pin - trid(11, trht, trbs); fill pth11; - z11'=(x11,0); draw z11tic--z11'; - labels(1,2,3,4,11,12,13); -endchar; - -cmchar "Old Persian syllable ji (J)"; -beginglyph("J",(7/2tb+wh)); %% 4tb+wh too large - z1trc=(leftloc, 1/2h); % left pin - trir(1, trht, trbs); fill pth1; - z2=(x1+trbs, y1); % wing - draw z1tic--z2; - wingl(2, wiht, wibs); fill pth2; - z12trc=(x2wil,y1); % middle pin - trir(12, trht, trbs); fill pth12; - z12'=(rightloc, y12); draw z12tic--z12'; - z11trr=z12trl; % top pin - trir(11, trht, trbs); fill pth11; - z11'=(rightloc, y11); draw z11tic--z11'; - z13trl=z12trr; % bottom pin - trir(13, trht, trbs); fill pth13; - z13'=(rightloc, y13); draw z13tic--z13'; - labels(1,2,3,4,5,6,7,8,9,10,11,12,13); -endchar; - -cmchar "Old Persian syllable ta (t)"; -beginglyph("t", (4tb+th)); %% 5tb too large - z3trl=(rightloc,h); % right pin - trid(3, trht, trbs); fill pth3; - z3'=(x3,0); draw z3tic--z3'; - z1trl=(x3trr-trbs,h); % left pin - trid(1, trht, trbs); fill pth1; - z1'=(x1,0); draw z1tic--z1'; - z11trr=(leftloc,1/2h); % top pin - trir(11, trht, trbs); fill pth11; - z11'=(x1,y11); draw z11tic--z11'; - z12trl=z11trr; % bottom pin - trir(12, trht, trbs); fill pth12; - z12'=(x1,y12); draw z12tic--z12'; - z2trc=(1/2[x1,x3], y11trl); % middle pin - trid(2, trht, trbs); fill pth2; - z2'=(x2,0); draw z2tic--z2'; - labels(1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -cmchar "Old Persian syllable tu (T)"; -beginglyph("T", (4tb+th)); %% 5tb too large - z1trr=(leftloc,h); % left pin - trid(1, trht, trbs); fill pth1; - z1'=(x1,0); draw z1tic--z1'; - z2trr=z1trl; % center pin - trid(2, trht, trbs); fill pth2; - z2'=(x2,0); draw z2tic--z2'; - z3trr=z2trl; % right pin - trid(3, trht, trbs); fill pth3; - z3'=(x3,0); draw z3tic--z3'; - z11trl=(x3trl, 1/2h); % short hor pin - trir(11, trht, trbs); fill pth11; - z11'=(rightloc,y11); draw z11tic--z11'; - labels(1,2,3,11); -endchar; - -cmchar "Old Persian syllable tha (o)"; -beginglyph("o", (2tb+wh)); - z1trr=(leftloc,h); % left pin - trid(1, trht, trbs); fill pth1; - z1'=(x1,0); draw z1tic--z1'; - z2=(x1,1/2h); % wing - wingl(2, wiht, wibs); fill pth2; - z3trr=(x2wil,h); % right pin - trid(3, trht, trbs); fill pth3; - z3'=(x3,0); draw z3tic--z3'; - labels(1,2,3); -endchar; - -cmchar "Old Persian syllable c(cedilla)a (C)"; -beginglyph("C", (2tb)); - z1trl=(leftloc,h); % top pin - trir(1, trht, trbs); fill pth1; - z1'=(rightloc,y1); draw z1tic--z1'; - z2trl=z1trr; % center pin - trir(2, trht, trbs); fill pth2; - z2'=(rightloc,y2); draw z2tic--z2'; - z11trr=z2trr; % left pin - trid(11, trht, trbs); fill pth11; - z11'=(x11,0); draw z11tic--z11'; - z12trr=z11trl; % right pin - trid(12, trht, trbs); fill pth12; - z12'=(x12,0); draw z12tic--z12'; - labels(1,2,11,12); -endchar; - -cmchar "Old Persian syllable da (d)"; -beginglyph("d", (2tb)); - z1trl=(leftloc,h); % top pin - trir(1, trht, trbs); fill pth1; - z1'=(rightloc,y1); draw z1tic--z1'; - z11trr=z1trr; % left pin - trid(11, trht, trbs); fill pth11; - z11'=(x11,0); draw z11tic--z11'; - z12trr=z11trl; % right pin - trid(12, trht, trbs); fill pth12; - z12'=(x12,0); draw z12tic--z12'; - labels(1,2,11,12); -endchar; - -cmchar "Old Persian syllable di (P)"; -beginglyph("P", (3tb+th)); %% 4tb too large - z2trl=(rightloc,h); % right pin - trid(2, trht, trbs); fill pth2; - z2'=(x2,0); draw z2tic--z2'; - z1trl=z2trr; % left pin - trid(1, trht, trbs); fill pth1; - z1'=(x1,0); draw z1tic--z1'; - z12trc=(leftloc,1/2h); % center pin - trir(12, trht, trbs); fill pth12; - z12'=(x1,y12); draw z12tic--z12'; - z11trr=z12trl; % top pin - trir(11, trht, trbs); fill pth11; - z11'=(x1,y11); draw z11tic--z11'; - z13trl=z12trr; % bottom pin - trir(13, trht, trbs); fill pth13; - z13'=(x1,y13); draw z13tic--z13'; - labels(1,2,11,12,13); -endchar; - -cmchar "Old Persian syllable du (D)"; -beginglyph("D", (2tb+th+wh)); %% 3tb+wh too large - z1=(leftloc,h/2); % wing - wingl(1, wiht, wibs); fill pth1; - z2trl=(rightloc,h); % right pin - trid(2, trht, trbs); fill pth2; - z2'=(x2,0); draw z2tic--z2'; - z12trc=(x1wil,h/2); % center pin - trir(12, trht, trbs); fill pth12; - z12'=(x2,y12); draw z12tic--z12'; - z11trr=z12trl; % top pin - trir(11, trht, trbs); fill pth11; - z11'=(x2,y11); draw z11tic--z11'; - z13trl=z12trr; % bottom pin - trir(13, trht, trbs); fill pth13; - z13'=(x2,y13); draw z13tic--z13'; - labels(1,2,11,12,13); -endchar; - -cmchar "Old Persian syllable na (n)"; -beginglyph("n", (2tb+wh)); - z1=(rightloc-wiht, h/2); % wing - wingl(1, wiht, wibs); fill pth1; - z11trr=(leftloc,h/2); % top pin - trir(11, trht, trbs); fill pth11; - z11'=(x1,y11); draw z11tic--z11'; - z12trl=z11trr; % bottom pin - trir(12, trht, trbs); fill pth12; - z12'=(x1,y12); draw z12tic--z12'; - labels(1,11,12); -endchar; - -cmchar "Old Persian syllable nu (N)"; -beginglyph("N", (2tb+2wh)); - z1=(leftloc, h/2); % left wing - wingl(1, wiht, wibs); fill pth1; - z2=(x1wil, y1); % right wing - wingl(2, wiht, wibs); fill pth2; - z11trr=(x2wil,h/2); % top pin - trir(11, trht, trbs); fill pth11; - z11'=(rightloc,y11); draw z11tic--z11'; - z12trl=z11trr; % bottom pin - trir(12, trht, trbs); fill pth12; - z12'=(rightloc,y12); draw z12tic--z12'; - labels(1,2,11,12); -endchar; - -cmchar "Old Persian syllable pa (p)"; -beginglyph("p", (2tb)); - z1trc=(leftloc,h); % top pin - trir(1, trht, trbs); fill pth1; - z1'=(rightloc,y1); draw z1tic--z1'; - z2trl=(x1,y1); % middle pin - trir(2, trht, trbs); fill pth2; - z2'=(rightloc,y2); draw z2tic--z2'; - z3trl=(x1trc,y2); % bottom pin - trir(3, trht, trbs); fill pth3; - z3'=(rightloc,y3); draw z3tic--z3'; - z11trr=z3trr; % left pin - trid(11, trht, trbs); fill pth11; - z11'=(x11,0); draw z11tic--z11'; - z12trr=z11trl; % right pin - trid(12, trht, trbs); fill pth12; - z12'=(x12,0); draw z12tic--z12'; - labels(1,2,3,11,12); -endchar; - -cmchar "Old Persian syllable fa (f)"; -beginglyph("f", (tb+2wh)); - z1trr=(leftloc,h); % left pin - trid(1, trht, trbs); fill pth1; - z1'=(x1,0); draw z1tic--z1'; - z11=(x1,h/2); % left wing - wingl(11, wiht, wibs); fill pth11; - z12=(x11wil,y11); % right wing - wingl(12, wiht, wibs); fill pth12; - labels(1,11,12); -endchar; - -cmchar "Old Persian syllable ba (b)"; -beginglyph("b", (3tb)); - z1trl=(rightloc,h); % right pin - trid(1, trht, trbs); fill pth1; - z1'=(x1,0); draw z1tic--z1'; - z11trr=(leftloc,h/2); % top pin - trir(11, trht, trbs); fill pth11; - z11'=(x1,y11); draw z11tic--z11'; - z12trl=z11trr; % bottom pin - trir(12, trht, trbs); fill pth12; - z12'=(x1,y12); draw z12tic--z12'; - labels(1,11,12); -endchar; - -cmchar "Old Persian syllable ma (m)"; -beginglyph("m", (4tb+th)); %% 5tb too large - z3trl=(rightloc,h); % right pin - trid(3, trht, trbs); fill pth3; - z3'=(x3,0); draw z3tic--z3'; - z2trl=(x3trr,y3); % center pin - trid(2, trht, trbs); fill pth2; - z2'=(x2,0); draw z2tic--z2'; - z1trl=(x2trr,h); % left pin - trid(1, trht, trbs); fill pth1; - z1'=(x1,0); draw z1tic--z1'; - z11trc=(leftloc, h/2); % hor pin - trir(11, trht, trbs); fill pth11; - z11'=(x1,y11); draw z11tic--z11'; - labels(1,2,3,11); -endchar; - -cmchar "Old Persian syllable mi (w)"; -beginglyph("w", (2tb+wh)); - z1trr=(leftloc,h); % left pin - trid(1, trht, trbs); fill pth1; - z1'=(x1,0); draw z1tic--z1'; - z2=(x1,h/2); % wing - wingl(2, wiht, wibs); fill pth2; - z11trr=(x2wil, h/2); % top pin - trir(11, trht, trbs); fill pth11; - z11'=(rightloc,y11); draw z11tic--z11'; - z12trl=z11trr; % bottom pin - trir(12, trht, trbs); fill pth12; - z12'=(rightloc,y12); draw z12tic--z12'; - labels(1,2,11,12); -endchar; - -cmchar "Old Persian syllable mu (M)"; -beginglyph("M", (5tb+wh)); - z5trc=(rightloc-2trbs, h/2); % right pin - trir(5, trht, trbs); fill pth5; - z5'=(rightloc,y5); draw z5tic--z5'; - z4=(x5trc-wiht,y5); % wing - wingl(4, wiht, wibs); fill pth4; - z2trc=(leftloc+trht,y5); % middle pin - trir(2, trht, trbs); fill pth2; - z2'=z4; draw z2tic--z2'; - z1trr=(leftloc,y2trl); % top pin - trir(1, trht, trbs); fill pth1; - z1'=(3/4[x1,x2'],y1); draw z1tic--z1'; - z3trl=(leftloc,y2trr); % bottom pin - trir(3, trht, trbs); fill pth3; - z3'=(x1',y3); draw z3tic--z3'; - labels(1,2,3,4); -endchar; - -cmchar "Old Persian syllable ya (y)"; -beginglyph("y", (2tb+wh)); - z1trr=(leftloc,h); % left pin - trid(1, trht, trbs); fill pth1; - z1'=(x1,0); draw z1tic--z1'; - z2=(x1,h/2); % wing - wingl(2, wiht, wibs); fill pth2; - z11trc=(x2wil, h/2); % right pin - trir(11, trht, trbs); fill pth11; - z11'=(rightloc,y11); draw z11tic--z11'; - labels(1,2,11,12); -endchar; - -cmchar "Old Persian syllable ra (r)"; -beginglyph("r", (3tb+th)); %% 4tb too large - z11trl=(rightloc, h); % right pin - trid(11, trht, trbs); fill pth11; - z11'=(x11,0); draw z11tic--z11'; - z2trc=(leftloc+trht,h/2); % middle pin - trir(2, trht, trbs); fill pth2; - z2'=(x11,y2); draw z2tic--z2'; - z1trr=(leftloc,y2trl); % top pin - trir(1, trht, trbs); fill pth1; - z1'=(x2',y1); draw z1tic--z1'; - z3trl=(leftloc,y2trr); % bottom pin - trir(3, trht, trbs); fill pth3; - z3'=(x2',y3); draw z3tic--z3'; - labels(1,2,3,4); -endchar; - -cmchar "Old Persian syllable ru (R)"; -beginglyph("R", (tb+th+2wh)); %% 2tb+2wh too large - z3=(rightloc-wiht,h/2); % right wing - wingl(3, wiht, wibs); fill pth3; - z2=(x3-wiht,y3); % left wing - wingl(2, wiht, wibs); fill pth2; - z1trc=(leftloc,y3); % pin - trir(1, trht, trbs); fill pth1; - z1'=z2; draw z1tic--z1'; - labels(1,2,3); -endchar; - -cmchar "Old Persian syllable la (l)"; -beginglyph("l", (3tb+th)); %% 4tb too large - z11trl=(rightloc,h); % right pin - trid(11, trht, trbs); fill pth11; - z11'=(x11,0); draw z11tic--z11'; - z2trc=(leftloc,h/2); % middle pin - trir(2, trht, trbs); fill pth2; - z2'=(x11,y2); draw z2tic--z2'; - z1trr=(x2,y2trl); % top pin - trir(1, trht, trbs); fill pth1; - z1'=(x2',y1); draw z1tic--z1'; - z3trl=(x1trr,y2trr); % bottom pin - trir(3, trht, trbs); fill pth3; - z3'=(x2',y3); draw z3tic--z3'; - labels(1,2,3,11); -endchar; - -cmchar "Old Persian syllable va (v)"; -beginglyph("v", (5tb)); - z11trc=(leftloc,h/2); % left hor pin - trir(11, trht, trbs); fill pth11; - z11'=(x11+trbs,y11); draw z11tic--z11'; - z12trc=(x11',h); % vert pin - trid(12, trht, trbs); fill pth12; - z12'=(x12,0); draw z12tic--z12'; - z2=(x12+1/2trbs+2trht, h/2); % middle pin - trir(2, trht, trbs); fill pth2; - z2'=(rightloc,y2); draw z2tic--z2'; - z1trr=(x2trc-trht,y2trl); % top pin - trir(1, trht, trbs); fill pth1; - z1'=(x2',y1); draw z1tic--z1'; - z3trl=(x1trr,y2trr); % bottom pin - trir(3, trht, trbs); fill pth3; - z3'=(x2',y3); draw z3tic--z3'; - labels(1,2,3,11); -endchar; - -cmchar "Old Persian syllable vi (V)"; -beginglyph("V", (2tb)); - z1trl=(midloc,1/3h); % left pin - trid(1, trht, trbs); fill pth1; - z1'=(x1,0); draw z1tic--z1'; - z2trr=z1trl; % right pin - trid(2, trht, trbs); fill pth2; - z2'=(x2,0); draw z2tic--z2'; - z3trc=(x1trl,h); % top pin - trid(3, trht, trbs); fill pth3; - z3'=(x3,y1trl); draw z3tic--z3'; - z11trc=(leftloc, 1/2[y1trl,y3trl]); % hor pin - trir(11, trht, trbs); fill pth11; - z11'=(rightloc,y11); draw z11tic--z11'; - labels(1,2,3,4,11); -endchar; - -cmchar "Old Persian syllable sa (s)"; -beginglyph("s", (3tb+th)); %% 4tb too large - z12trr=(leftloc,h); % vert pin - trid(12, trht, trbs); fill pth12; - z12'=(x12,0); draw z12tic--z12'; - z2=(x12+1/2trbs+2trht, h/2); % middle pin - trir(2, trht, trbs); fill pth2; - z2'=(rightloc,y2); draw z2tic--z2'; - z1trr=(x2trc-trht,y2trl); % top pin - trir(1, trht, trbs); fill pth1; - z1'=(x2',y1); draw z1tic--z1'; - z3trl=(x1trr,y2trr); % bottom pin - trir(3, trht, trbs); fill pth3; - z3'=(x2',y3); draw z3tic--z3'; - labels(1,2,3,11,12); -endchar; - -cmchar "Old Persian syllable sva (S)"; -beginglyph("S", (2wh)); - z1=(leftloc,1/2wibs); % left wing - wingl(1, wiht, wibs); fill pth1; - z2=(x1+wiht,y1); % right wing - wingl(2, wiht, wibs); fill pth2; - z3trl=(leftloc,h); % pin - trir(3, trht, trbs); fill pth3; - z3'=(rightloc,y3); draw z3tic--z3'; - labels(1,2,3); -endchar; - -cmchar "Old Persian syllable za (z)"; -beginglyph("z", (4tb)); - z1trr=(leftloc,h); % left pin - trid(1, trht, trbs); fill pth1; - z1'=(x1,0); draw z1tic--z1'; - z2trl=(rightloc,h); % right pin - trid(2, trht, trbs); fill pth2; - z2'=(x2,0); draw z2tic--z2'; - z11trc=(x1trl,h/2); % hor pins - trir(11, trht, trbs); fill pth11; - z11'=(x2trr,y11); draw z11tic--z11'; - z12trc=1/2[z11trc,z11']; - trir(12, trht, trbs); fill pth12; - labels(1,2,11); -endchar; - -cmchar "Old Persian syllable ha (h)"; -beginglyph("h", (2tb+2wh)); - z1=(leftloc,h/2); % left wing - wingl(1, wiht, wibs); fill pth1; - z2=(rightloc-wiht,y1); % right wing - wingl(2, wiht, wibs); fill pth2; - z11trr=(x1wil,y1); % top pin - trir(11, trht, trbs); fill pth11; - z11'=(x2,y11); draw z11tic--z11'; - z12trl=z11trr; % bottom pin - trir(12, trht, trbs); fill pth12; - z12'=(x2,y12); draw z12tic--z12'; - labels(1,2,11,12); -endchar; - -cmchar "Old Persian word: king (X)"; -beginglyph("X", (3tb+2wh)); - z4=(rightloc-wiht, h/2); % right wing - wingl(4, wiht, wibs); fill pth4; - z11trc=(x4,h); % center vert pin - trid(11, trht, trbs); fill pth11; - z11'=(x11,0); draw z11tic--z11'; - z3wir=(x11trr,y4wir); % left wing - wingl(3, wiht, wibs); fill pth3; - z1trr=(leftloc,y4); % top pin - trir(1, trht, trbs); fill pth1; - z1'=(x3,y1); draw z1tic--z1'; - z2trl=z1trr; % bottom pin - trir(2, trht, trbs); fill pth2; - z2'=(x1',y2); draw z2tic--z2'; - labels(1,2,3,4,11); -endchar; - -cmchar "Old Persian word: country (version a) (q)"; -beginglyph("q", (9/4tb+wh)); %% 5/2tb+wh too large - numeric n[]; - n1 := 1/2wiht; - n2 := 1/2wibs; - z12trl=(rightloc,h); % right pin - trid(12, trht, trbs); fill pth12; - z12'=(x12,0); draw z12tic--z12'; - z11trl=z12trr; % left pin - trid(11, trht, trbs); fill pth11; - z11'=(x11,0); draw z11tic--z11'; - z1=(leftloc, h-1/2n2); % top left wing - wingl(1, n1, n2); fill pth1; - z2=(x1wil, y1); % top right wing - wingl(2, n1, n2); fill pth2; - z3=(x1, 1/2n2); % bottom left wing - wingl(3, n1, n2); fill pth3; - z4=(x2, y3); % bottom right wing - wingl(4, n1, n2); fill pth4; - labels(1,2,3,4,11,12); -endchar; - -cmchar "Old Persian word: country (version b) (Q)"; -beginglyph("Q", (5/4tb+wh)); %% 3/2tb+wh too large - numeric n[]; - n1 := 1/2wiht; - n2 := 1/2wibs; - z11trl=(rightloc,h); % right pin - trid(11, trht, trbs); fill pth11; - z11'=(x11,0); draw z11tic--z11'; - z1=(leftloc, h-1/2n2); % top left wing - wingl(1, n1, n2); fill pth1; - z2=(x1wil, y1); % top right wing - wingl(2, n1, n2); fill pth2; - z3=(x1, 1/2n2); % bottom left wing - wingl(3, n1, n2); fill pth3; - z4=(x2, y3); % bottom right wing - wingl(4, n1, n2); fill pth4; - labels(1,2,3,4,11,12); -endchar; - -cmchar "Old Persian word: earth (L)"; -beginglyph("L", (3wh)); - z1=(leftloc, wiht); % left wing - wingl(1, wiht, wibs); fill pth1; - z2=(x1wil, y1); % center wing - wingl(2, wiht, wibs); fill pth2; - z3=(x2wil, y1); % right wing - wingl(3, wiht, wibs); fill pth3; - z11trr=(x1,y1wir); % top pin - trir(11, trht, trbs); fill pth11; - z11'=(rightloc,y11); draw z11tic--z11'; - z12trc=(x2,y11); - trir(12, trht, trbs); fill pth12; - z13trc=(x3,y11); - trir(13, trht, trbs); fill pth13; - labels(1,2,3,11,12,13); -endchar; - -cmchar "Old Persian word: god (B)"; -beginglyph("B", (2tb+2wh)); - z4=(rightloc-wiht, h/2); % right wing - wingl(4, wiht, wibs); fill pth4; - z3=(x4-wiht, y4); % left wing - wingl(3, wiht, wibs); fill pth3; - z1trc=(leftloc,y4); % pin - trir(1, trht, trbs); fill pth1; - z1'=z3; draw z1tic--z1'; - z2trc=1/2[z1trc,z1']; - trir(2, trht, trbs); fill pth2; - labels(1,2,3,4); -endchar; - -cmchar "Old Persian word: Auramazda (version a) (e)"; -beginglyph("e", (3tb+wh)); - z43=(rightloc-wiht, h/2); % wing - wingl(43, wiht, wibs); fill pth43; - z46trc=(x43,h); % vert pin - trid(46, trht, trbs); fill pth46; - z46'=(x46,0); draw z46tic--z46'; - z14trr=(leftloc,h/2); % pin 3 - trir(14, trht, trbs); fill pth14; - z14'=(x46,y14); draw z14tic--z14'; - z24trc=1/2[z14trc,z14']; z34trc=2/3[z14trc,z14']; - trir(24, trht, trbs); fill pth24; - - z12trl=z14trr; % pin 2 - trir(12, trht, trbs); fill pth12; - z12'=(x46,y12); draw z12tic--z12'; - z22=(x24,y12); z32=(x34,y12); - trir(22, trht, trbs); fill pth22; - - labels(12,14,21,22,23,24,25,31,32,33,34,35,41,42,43,44,45,46); -endchar; - -cmchar "Old Persian word: Auramazda (version b) (E)"; -beginglyph("E", (4tb)); -%% z43=(rightloc-wiht, h/2); % wing -%% wingl(43, wiht, wibs); fill pth43; - z46trc=(rightloc,h+trht); % vert pin - trid(46, trht, trbs); fill pth46; - z46'=(x46,-1/2trbs); draw z46tic--z46'; - z14trr=(leftloc,h/2); % pin 3 - trir(14, trht, trbs); fill pth14; - z14'=(x46,y14); draw z14tic--z14'; - z24trc=1/3[z14trc,z14']; z34trc=2/3[z14trc,z14']; - trir(24, trht, trbs); fill pth24; - trir(34, trht, trbs); fill pth34; - - z12trl=z14trr; % pin 2 - trir(12, trht, trbs); fill pth12; - z12'=(x46,y12); draw z12tic--z12'; - z22=(x24,y12); z32=(x34,y12); - trir(22, trht, trbs); fill pth22; - trir(32, trht, trbs); fill pth32; - - z21trl=(x24trc, y12trr); % pin 1 - trir(21, trht, trbs); fill pth21; - z21'=(x46,y21); draw z21tic--z21'; - z31=(x34,y21); - trir(31, trht, trbs); fill pth31; - - z25trr=(x24trc, y14trl); % pin 4 - trir(25, trht, trbs); fill pth25; - z25'=(x46,y25); draw z25tic--z25'; - z35=(x34,y25); - trir(35, trht, trbs); fill pth35; - labels(12,14,21,22,23,24,25,31,32,33,34,35,41,42,43,44,45,46); -endchar; - -cmchar "Old Persian word: Auramazda (version c) (F)"; -beginglyph("F", (4tb+wh)); - z43=(rightloc-wiht, h/2); % wing - wingl(43, wiht, wibs); fill pth43; - z46trc=(x43,h+trht); % vert pin - trid(46, trht, trbs); fill pth46; - z46'=(x46,-1/2trbs); draw z46tic--z46'; - z14trr=(leftloc,y43); % pin 3 - trir(14, trht, trbs); fill pth14; - z14'=(x46,y14); draw z14tic--z14'; - z24trc=1/3[z14trc,z14']; z34trc=2/3[z14trc,z14']; - trir(24, trht, trbs); fill pth24; - trir(34, trht, trbs); fill pth34; - - z12trl=z14trr; % pin 2 - trir(12, trht, trbs); fill pth12; - z12'=(x46,y12); draw z12tic--z12'; - z22=(x24,y12); z32=(x34,y12); - trir(22, trht, trbs); fill pth22; - trir(32, trht, trbs); fill pth32; - - z21trl=(x24trc, y12trr); % pin 1 - trir(21, trht, trbs); fill pth21; - z21'=(x46,y21); draw z21tic--z21'; - z31=(x34,y21); - trir(31, trht, trbs); fill pth31; - - z25trr=(x24trc, y14trl); % pin 4 - trir(25, trht, trbs); fill pth25; - z25'=(x46,y25); draw z25tic--z25'; - z35=(x34,y25); - trir(35, trht, trbs); fill pth35; - labels(12,14,21,22,23,24,25,31,32,33,34,35,41,42,43,44,45,46); -endchar; - -cmchar "Old Persian numeral 1 (1)"; -beginglyph("1", (tb)); - z1trc=(midloc,h); - trid(1, trht, trbs); fill pth1; - z1'=(x1,0); draw z1tic--z1'; - labels(1,2); -endchar; - -cmchar "Old Persian numeral 2 (2)"; -beginglyph("2", (tb)); - z1trc=(midloc,h); - trid(1, trht, trbs); fill pth1; - z1'=(x1,0); draw z1tic--z1'; - z2trc=1/2[z1trc,z1']; - trid(2, trht, trbs); fill pth2; - labels(1,2); -endchar; - -cmchar "Old Persian numeral 10 (3)"; -beginglyph("3", (wh)); - z1=(leftloc,h/2); - wingl(1, wiht, wibs); fill pth1; - labels(1,2); -endchar; - -cmchar "Old Persian numeral 20 (4)"; -beginglyph("4", (1/2wh)); - z1=(leftloc,3/4h); - wingl(1, 1/2wiht, 1/2wibs); fill pth1; - z2=(leftloc,1/4h); - wingl(2, 1/2wiht, 1/2wibs); fill pth2; - labels(1,2); -endchar; - -cmchar "Old Persian numeral 100 (5)"; -beginglyph("5", (tb+2th)); - z1trl=(leftloc,h); % top pins - trir(1, trht, trbs); fill pth1; - z2trr=(rightloc,h); - tril(2, trht, trbs); fill pth2; - draw z1tic--z2tic; - z11trc=(1/2[x1,x2],y1trr); % vertical pin - trid(11, trht, trbs); fill pth11; - z11'=(x11,0); draw z11tic--z11'; - labels(1,2,11); -endchar; - -cmchar "Old Persian word divider (:)"; -beginglyph(":", (3tb)); - numeric alpha; - alpha := trbs; - z1=(leftloc+alpha, h-alpha); - z2=(rightloc-alpha, alpha); - triangle(1, trht, trbs, angle((z2-z1))); - fill pth1; draw z1tic--z2; - labels(1,2); -endchar; - -end - diff --git a/Master/texmf-dist/doc/fonts/archaic/phaistos/OpenType/Phaistos.otf b/Master/texmf-dist/doc/fonts/archaic/phaistos/OpenType/Phaistos.otf new file mode 100644 index 00000000000..5a0658c675a Binary files /dev/null and b/Master/texmf-dist/doc/fonts/archaic/phaistos/OpenType/Phaistos.otf differ diff --git a/Master/texmf-dist/doc/fonts/archaic/phaistos/afm/phaistos.afm b/Master/texmf-dist/doc/fonts/archaic/phaistos/afm/phaistos.afm new file mode 100644 index 00000000000..a8c5f73ea3e --- /dev/null +++ b/Master/texmf-dist/doc/fonts/archaic/phaistos/afm/phaistos.afm @@ -0,0 +1,68 @@ +StartFontMetrics 2.0 +Comment Generated by pfaedit +Comment Creation Date: Thu Apr 22 19:35:49 2004 +FontName phaistos +FullName phaistos +FamilyName phaistos +Weight Medium +Notice ((c) Copyright 2004 S Doumanis & A Syropoulos. Created by Stratos Doumanis and Apostolos Syropoulos with FontForge 1.0 (http://fontforge.sf.net). This program can be redistributed and/or modified under) +Comment the terms of the LaTeX Project Public License Distributed from CTAN archives in directory macros/latex/base/lppl.txt; either version 1 of the License, or any later version. +Comment +ItalicAngle 0 +IsFixedPitch false +UnderlinePosition -100 +UnderlineThickness 50 +Version 001.000 +EncodingScheme ISOLatin1Encoding +FontBBox 24 -1 1842 2134 +CapHeight 1610 +Ascender 1203 +Descender 15 +StartCharMetrics 45 +C 65 ; WX 1457 ; N A ; B 27 10 1390 1807 ; +C 66 ; WX 1921 ; N B ; B 44 6 1842 2010 ; +C 67 ; WX 1494 ; N C ; B 31 4 1447 1651 ; +C 68 ; WX 1070 ; N D ; B 51 20 994 1765 ; +C 69 ; WX 1030 ; N E ; B 54 35 962 1776 ; +C 70 ; WX 1269 ; N F ; B 31 7 1208 1758 ; +C 71 ; WX 1134 ; N G ; B 28 29 1094 1387 ; +C 72 ; WX 1080 ; N H ; B 26 9 1040 1254 ; +C 73 ; WX 1100 ; N I ; B 30 26 1042 1611 ; +C 74 ; WX 530 ; N J ; B 27 5 487 1790 ; +C 75 ; WX 424 ; N K ; B 51 12 368 1791 ; +C 76 ; WX 1119 ; N L ; B 24 11 1080 1074 ; +C 77 ; WX 391 ; N M ; B 40 13 332 1853 ; +C 78 ; WX 968 ; N N ; B 41 7 875 1593 ; +C 79 ; WX 1240 ; N O ; B 35 42 1199 1322 ; +C 80 ; WX 680 ; N P ; B 37 11 640 1640 ; +C 81 ; WX 611 ; N Q ; B 31 6 574 1642 ; +C 82 ; WX 1197 ; N R ; B 24 18 1128 1601 ; +C 83 ; WX 1029 ; N S ; B 29 9 986 1487 ; +C 84 ; WX 994 ; N T ; B 40 15 942 1518 ; +C 85 ; WX 932 ; N U ; B 36 18 885 1357 ; +C 86 ; WX 806 ; N V ; B 31 0 765 1342 ; +C 87 ; WX 527 ; N W ; B 53 13 469 1644 ; +C 88 ; WX 1893 ; N X ; B 51 19 1842 1777 ; +C 89 ; WX 1777 ; N Y ; B 40 20 1739 1022 ; +C 90 ; WX 506 ; N Z ; B 41 15 448 1721 ; +C 97 ; WX 1469 ; N a ; B 51 -1 1405 2014 ; +C 98 ; WX 740 ; N b ; B 42 12 689 1484 ; +C 99 ; WX 1354 ; N c ; B 37 3 1296 1327 ; +C 100 ; WX 1470 ; N d ; B 36 7 1413 990 ; +C 101 ; WX 1184 ; N e ; B 41 27 1140 1469 ; +C 102 ; WX 1338 ; N f ; B 39 10 1293 1283 ; +C 103 ; WX 1890 ; N g ; B 52 15 1834 788 ; +C 104 ; WX 1163 ; N h ; B 34 12 1117 1333 ; +C 105 ; WX 887 ; N i ; B 38 13 829 1445 ; +C 106 ; WX 905 ; N j ; B 32 10 846 1392 ; +C 107 ; WX 586 ; N k ; B 42 37 517 1760 ; +C 108 ; WX 1233 ; N l ; B 24 10 1191 1204 ; +C 109 ; WX 682 ; N m ; B 43 3 620 1580 ; +C 110 ; WX 938 ; N n ; B 35 11 881 1458 ; +C 111 ; WX 718 ; N o ; B 38 15 668 1553 ; +C 112 ; WX 871 ; N p ; B 37 15 797 2006 ; +C 113 ; WX 1565 ; N q ; B 39 7 1519 1384 ; +C 114 ; WX 1414 ; N r ; B 37 10 1361 1601 ; +C 115 ; WX 787 ; N s ; B 60 16 723 2134 ; +EndCharMetrics +EndFontMetrics diff --git a/Master/texmf-dist/doc/fonts/archaic/phaistos/dvips/phaistos.map b/Master/texmf-dist/doc/fonts/archaic/phaistos/dvips/phaistos.map new file mode 100644 index 00000000000..7f27c401919 --- /dev/null +++ b/Master/texmf-dist/doc/fonts/archaic/phaistos/dvips/phaistos.map @@ -0,0 +1 @@ +phaistos phaistos Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} +%\iffalse +% +% (c) Copyright 2004 Apostolos Syropoulos +% This program can be redistributed and/or modified under the terms +% of the LaTeX Project Public License Distributed from CTAN +% archives in directory macros/latex/base/lppl.txt; either +% version 1 of the License, or any later version. +% +% Please report errors or suggestions for improvement to +% +% Apostolos Syropoulos +% 366, 28th October Str. +% GR-671 00 Xanthi, GREECE +% apostolo@ocean1.ee.duth.gr or apostolo@obelix.ee.duth.gr +% +%\fi +% \CheckSum{193} +% \iffalse This is a Metacomment +% +%\ProvidesFile{phaistos.sty} +% [2004/04/23 v1.0 Package `phaistos.sty'] +% +% \begin{macrocode} +%<*driver> +\documentclass{ltxdoc} +\usepackage{url} +\GetFileInfo{phaistos.drv} +\begin{document} + \DocInput{phaistos.dtx} +\end{document} +% +% \end{macrocode} +% \fi +% +% \title{The \textsf{phaistos} package} +% \author{Apostolos Syropoulos\\366, 28th October Str.\\ +% GR-671 00 Xanthi, HELLAS\\ +% Email:\texttt{apostolo@obelix.ee.duth.gr}} +% \date{2004/04/23} +% \maketitle +% +%\MakeShortVerb{\|} +%\StopEventually{} +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% \section{Introduction} +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +% The \textsf{phaistos} package defines the necessary \LaTeX\ interface to +% the phaistos font, which consists of all symbols found on the well-known +% disk of Phaistos. To the best of our knowledge, the script has not been +% deciphered yet and probably +% it will never be deciphered. The font was designed by Stratos Doumanis +% and the author of this package with help from Zoi Amanatidou and Panagiotis +% Koudas. In order to design the glyphs we used the excellent booklet +% ``Le Disque de Phaistos'' by Jean-Pierre Olivier, Diffusion de Boccard, +% Paris, 1992. The booklet contains many images of the various symbols as well +% as many drawings. The font was created using a methodology that was developed +% for the creation of the Epi-Olmec font. +% +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% \section{The Source Code} +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +% The first thing we need to define is a new local font encoding. The +% following code is not much of a font encoding, nevertheless it is +% required to have these minimum declarations in order to use the +% ``font encoding.'' +% \begin{macrocode} +%<*phaistos> +\DeclareFontEncoding{LPH}{}{} +\DeclareFontSubstitution{LPH}{cmr}{m}{n} +\DeclareFontFamily{LPH}{cmr}{\hyphenchar\font=-1} +% \end{macrocode} +% Clearly, it makes no sense to have any series other than normal. So all +% of the following definitions default to the first case. +% \begin{macrocode} +\DeclareFontShape{LPH}{cmr}{m}{n}{% + <-> phaistos }{} + +\DeclareFontShape{LPH}{cmr}{m}{sc}{% + <-> ssub * cmr/m/n}{} + +\DeclareFontShape{LPH}{cmr}{m}{sl}{% + <-> ssub * cmr/m/n}{} + +\DeclareFontShape{LPH}{cmr}{m}{it}{% + <-> ssub * cmr/m/n}{} + +\DeclareFontShape{LPH}{cmr}{bx}{n}{% + <-> ssub * cmr/m/n}{} + +\DeclareFontShape{LPH}{cmr}{bx}{sc}{% + <-> ssub * cmr/m/n}{} + +\DeclareFontShape{LPH}{cmr}{bx}{sl}{% + <-> ssub * cmr/m/n}{} + +\DeclareFontShape{LPH}{cmr}{bx}{it}{% + <-> ssub * cmr/m/n}{} +% \end{macrocode} +% Let us now proceed with the definition of the various glyph access commands. +% The names of the glyph access commands are those of the ``{\em Phaistos +% ConScript Unicode Standard}'' +% (see \url{http://www.evertype.com/standards/csur/phaistos.html}). +% \begin{macrocode} + +\DeclareTextSymbol{\PHpedestrian}{LPH}{"41} +\DeclareTextSymbolDefault{\PHpedestrian}{LPH} + +\DeclareTextSymbol{\PHplumedHead}{LPH}{"42} +\DeclareTextSymbolDefault{\PHplumedHead}{LPH} + +\DeclareTextSymbol{\PHtattooedHead}{LPH}{"43} +\DeclareTextSymbolDefault{\PHtattooedHead}{LPH} + +\DeclareTextSymbol{\PHcaptive}{LPH}{"44} +\DeclareTextSymbolDefault{\PHcaptive}{LPH} + +\DeclareTextSymbol{\PHchild}{LPH}{"45} +\DeclareTextSymbolDefault{\PHchild}{LPH} + +\DeclareTextSymbol{\PHwoman}{LPH}{"46} +\DeclareTextSymbolDefault{\PHwoman}{LPH} + +\DeclareTextSymbol{\PHhelmet}{LPH}{"47} +\DeclareTextSymbolDefault{\PHhelmet}{LPH} + +\DeclareTextSymbol{\PHgaunlet}{LPH}{"48} +\DeclareTextSymbolDefault{\PHgaunlet}{LPH} + +\DeclareTextSymbol{\PHtiara}{LPH}{"49} +\DeclareTextSymbolDefault{\PHtiara}{LPH} + +\DeclareTextSymbol{\PHarrow}{LPH}{"4A} +\DeclareTextSymbolDefault{\PHarrow}{LPH} + +\DeclareTextSymbol{\PHbow}{LPH}{"4B} +\DeclareTextSymbolDefault{\PHbow}{LPH} + +\DeclareTextSymbol{\PHshield}{LPH}{"4C} +\DeclareTextSymbolDefault{\PHshield}{LPH} + +\DeclareTextSymbol{\PHclub}{LPH}{"4D} +\DeclareTextSymbolDefault{\PHclub}{LPH} + +\DeclareTextSymbol{\PHmanacles}{LPH}{"4E} +\DeclareTextSymbolDefault{\PHmanacles}{LPH} + +\DeclareTextSymbol{\PHmattock}{LPH}{"4F} +\DeclareTextSymbolDefault{\PHmattock}{LPH} + +\DeclareTextSymbol{\PHsaw}{LPH}{"50} +\DeclareTextSymbolDefault{\PHsaw}{LPH} + +\DeclareTextSymbol{\PHlid}{LPH}{"51} +\DeclareTextSymbolDefault{\PHlid}{LPH} + +\DeclareTextSymbol{\PHboomerang}{LPH}{"52} +\DeclareTextSymbolDefault{\PHboomerang}{LPH} + +\DeclareTextSymbol{\PHcarpentryPlane}{LPH}{"53} +\DeclareTextSymbolDefault{\PHcarpentryPlane}{LPH} + +\DeclareTextSymbol{\PHdolium}{LPH}{"54} +\DeclareTextSymbolDefault{\PHdolium}{LPH} + +\DeclareTextSymbol{\PHcomb}{LPH}{"55} +\DeclareTextSymbolDefault{\PHcomb}{LPH} + +\DeclareTextSymbol{\PHsling}{LPH}{"56} +\DeclareTextSymbolDefault{\PHsling}{LPH} + +\DeclareTextSymbol{\PHcolumn}{LPH}{"57} +\DeclareTextSymbolDefault{\PHcolumn}{LPH} + +\DeclareTextSymbol{\PHbeehive}{LPH}{"58} +\DeclareTextSymbolDefault{\PHbeehive}{LPH} + +\DeclareTextSymbol{\PHship}{LPH}{"59} +\DeclareTextSymbolDefault{\PHship}{LPH} + +\DeclareTextSymbol{\PHhorn}{LPH}{"5A} +\DeclareTextSymbolDefault{\PHhorn}{LPH} + +\DeclareTextSymbol{\PHhide}{LPH}{"61} +\DeclareTextSymbolDefault{\PHhide}{LPH} + +\DeclareTextSymbol{\PHbullLeg}{LPH}{"62} +\DeclareTextSymbolDefault{\PHbullLeg}{LPH} + +\DeclareTextSymbol{\PHcat}{LPH}{"63} +\DeclareTextSymbolDefault{\PHcat}{LPH} + +\DeclareTextSymbol{\PHram}{LPH}{"64} +\DeclareTextSymbolDefault{\PHram}{LPH} + +\DeclareTextSymbol{\PHeagle}{LPH}{"65} +\DeclareTextSymbolDefault{\PHeagle}{LPH} + +\DeclareTextSymbol{\PHdove}{LPH}{"66} +\DeclareTextSymbolDefault{\PHdove}{LPH} + +\DeclareTextSymbol{\PHtunny}{LPH}{"67} +\DeclareTextSymbolDefault{\PHtunny}{LPH} + +\DeclareTextSymbol{\PHbee}{LPH}{"68} +\DeclareTextSymbolDefault{\PHbee}{LPH} + +\DeclareTextSymbol{\PHplaneTree}{LPH}{"69} +\DeclareTextSymbolDefault{\PHplaneTree}{LPH} + +\DeclareTextSymbol{\PHvine}{LPH}{"6A} +\DeclareTextSymbolDefault{\PHvine}{LPH} + +\DeclareTextSymbol{\PHpapyrus}{LPH}{"6B} +\DeclareTextSymbolDefault{\PHpapyrus}{LPH} + +\DeclareTextSymbol{\PHrosette}{LPH}{"6C} +\DeclareTextSymbolDefault{\PHrosette}{LPH} + +\DeclareTextSymbol{\PHlily}{LPH}{"6D} +\DeclareTextSymbolDefault{\PHlily}{LPH} + +\DeclareTextSymbol{\PHoxBack}{LPH}{"6E} +\DeclareTextSymbolDefault{\PHoxBack}{LPH} + +\DeclareTextSymbol{\PHflute}{LPH}{"6F} +\DeclareTextSymbolDefault{\PHflute}{LPH} + +\DeclareTextSymbol{\PHgrater}{LPH}{"70} +\DeclareTextSymbolDefault{\PHgrater}{LPH} + +\DeclareTextSymbol{\PHstrainer}{LPH}{"71} +\DeclareTextSymbolDefault{\PHstrainer}{LPH} + +\DeclareTextSymbol{\PHsmallAxe}{LPH}{"72} +\DeclareTextSymbolDefault{\PHsmallAxe}{LPH} + +\DeclareTextSymbol{\PHwavyBand}{LPH}{"73} +\DeclareTextSymbolDefault{\PHwavyBand}{LPH} +% +% \end{macrocode} +% That is all! But this is not all we can do with the font. +% I believe that the design of a macro package +% that would allow people to replicate the disk is a really challenging +% idea. Indeed, we are working towards this direction, and we hope to +% be able to produce some results in near future. Of course, this isn't +% much of a project, but it is definetely fun! +%\Finale diff --git a/Master/texmf-dist/doc/fonts/archaic/phaistos/latex/phaistos.ins b/Master/texmf-dist/doc/fonts/archaic/phaistos/latex/phaistos.ins new file mode 100644 index 00000000000..4edba5aa62f --- /dev/null +++ b/Master/texmf-dist/doc/fonts/archaic/phaistos/latex/phaistos.ins @@ -0,0 +1,55 @@ +%% Copyright 2004 Apostolos Syropoulos +%% +%% This file is part of the `phaistos' package. +%% You are not allowed to modify its contents. +%% +\def\filedate{2004/04/23} +\def\batchfile{phaistos.ins} +\input docstrip.tex + +{\ifx\generate\undefined +\Msg{**********************************************} +\Msg{*} +\Msg{* This installation requires docstrip} +\Msg{* version 2.3c or later.} +\Msg{*} +\Msg{* An older version of docstrip has been input} +\Msg{*} +\Msg{**********************************************} +\errhelp{Move or rename old docstrip.tex.} +\errmessage{Old docstrip in input path} +\batchmode +\csname @@end\endcsname +\fi} + +\preamble + + (c) Copyright 2004 Apostolos Syropoulos + This program can be redistributed and/or modified under the terms + of the LaTeX Project Public License Distributed from CTAN + archives in directory macros/latex/base/lppl.txt; either + version 1 of the License, or any later version. + + Please report errors or suggestions for improvement to + + Apostolos Syropoulos + 366, 28th October Str. + GR-671 00 Xanthi, GREECE + apostolo@ocean1.ee.duth.gr or apostolo@obelix.ee.duth.gr + +\endpreamble + + +\keepsilent + +\generate{\generateFile{phaistos.sty}{f}{\from{phaistos.dtx}{phaistos}}} +\postamble +\endpostamble +\Msg{**********************************************************} +\Msg{* To finish installation you have to copy} +\Msg{* the .sty files in the appropriate directory} +\Msg{* and to rehash your TeX, if it is required to do so.} +\Msg{* Do not forget to install the font!} +\Msg{* Happy Cretan TeXing!} +\Msg{**********************************************************} +\endinput diff --git a/Master/texmf-dist/doc/fonts/archaic/phaistos/tfm/phaistos.tfm b/Master/texmf-dist/doc/fonts/archaic/phaistos/tfm/phaistos.tfm new file mode 100644 index 00000000000..fed8916a7e3 Binary files /dev/null and b/Master/texmf-dist/doc/fonts/archaic/phaistos/tfm/phaistos.tfm differ diff --git a/Master/texmf-dist/doc/fonts/archaic/phaistos/type1/phaistos.pfb b/Master/texmf-dist/doc/fonts/archaic/phaistos/type1/phaistos.pfb new file mode 100644 index 00000000000..6cafa943cac Binary files /dev/null and b/Master/texmf-dist/doc/fonts/archaic/phaistos/type1/phaistos.pfb differ diff --git a/Master/texmf-dist/doc/fonts/archaic/phaistos/var/getglyphs b/Master/texmf-dist/doc/fonts/archaic/phaistos/var/getglyphs new file mode 100644 index 00000000000..3a999c7f694 --- /dev/null +++ b/Master/texmf-dist/doc/fonts/archaic/phaistos/var/getglyphs @@ -0,0 +1,31 @@ +#!/usr/bin/perl +# +# (c) Copyright 2004 Apostolos Syropoulos +# +# This program can be used to geneate a table of the glyphs +# that are provided by the ``phaistos'' LaTeX package. +# This program is absolutely free software. +# +open (XX, "phaistos.sty") || die "Can't open file './phaistos.sty'\n"; +open (YY, ">glyphs.tex") || die "Can't create file './glyphs.tex'\n"; +print YY <){ + if (s/^\\DeclareTextSymbol\{\\//) { + /^(\w*)/; + print YY "\\verb|\\$1 = |\\$1\\newline \n"; + } +} +print YY <