From f1bf9d8690e3726e140dd466760a96ff58f4a3f6 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 9 Sep 2008 16:30:38 +0000 Subject: dingbat .mf placement fix (axel.retif, 08 Sep 2008 00:44:39) git-svn-id: svn://tug.org/texlive/trunk@10517 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/doc/fonts/dingbat/README | 36 -- Master/texmf-dist/doc/fonts/dingbat/ark10.mf | 320 ---------- Master/texmf-dist/doc/fonts/dingbat/dingbat.mf | 693 --------------------- Master/texmf-dist/doc/fonts/dingbat/dingbat.pdf | Bin 130376 -> 0 bytes Master/texmf-dist/doc/fonts/dingbat/dingbat.tex | 48 -- Master/texmf-dist/doc/latex/dingbat/README | 36 ++ Master/texmf-dist/doc/latex/dingbat/dingbat.pdf | Bin 0 -> 130376 bytes Master/texmf-dist/doc/latex/dingbat/dingbat.tex | 48 ++ .../fonts/source/public/dingbat/ark10.mf | 320 ++++++++++ .../fonts/source/public/dingbat/dingbat.mf | 693 +++++++++++++++++++++ .../texmf-dist/fonts/tfm/public/dingbat/ark10.tfm | Bin 372 -> 308 bytes .../fonts/tfm/public/dingbat/dingbat.tfm | Bin 320 -> 256 bytes Master/texmf-dist/source/fonts/dingbat/dingbat.dtx | 329 ---------- Master/texmf-dist/source/fonts/dingbat/dingbat.ins | 58 -- Master/texmf-dist/source/latex/dingbat/dingbat.dtx | 329 ++++++++++ Master/texmf-dist/source/latex/dingbat/dingbat.ins | 58 ++ 16 files changed, 1484 insertions(+), 1484 deletions(-) delete mode 100644 Master/texmf-dist/doc/fonts/dingbat/README delete mode 100644 Master/texmf-dist/doc/fonts/dingbat/ark10.mf delete mode 100644 Master/texmf-dist/doc/fonts/dingbat/dingbat.mf delete mode 100644 Master/texmf-dist/doc/fonts/dingbat/dingbat.pdf delete mode 100644 Master/texmf-dist/doc/fonts/dingbat/dingbat.tex create mode 100644 Master/texmf-dist/doc/latex/dingbat/README create mode 100644 Master/texmf-dist/doc/latex/dingbat/dingbat.pdf create mode 100644 Master/texmf-dist/doc/latex/dingbat/dingbat.tex create mode 100644 Master/texmf-dist/fonts/source/public/dingbat/ark10.mf create mode 100644 Master/texmf-dist/fonts/source/public/dingbat/dingbat.mf delete mode 100644 Master/texmf-dist/source/fonts/dingbat/dingbat.dtx delete mode 100644 Master/texmf-dist/source/fonts/dingbat/dingbat.ins create mode 100644 Master/texmf-dist/source/latex/dingbat/dingbat.dtx create mode 100644 Master/texmf-dist/source/latex/dingbat/dingbat.ins (limited to 'Master/texmf-dist') diff --git a/Master/texmf-dist/doc/fonts/dingbat/README b/Master/texmf-dist/doc/fonts/dingbat/README deleted file mode 100644 index 954410faa42..00000000000 --- a/Master/texmf-dist/doc/fonts/dingbat/README +++ /dev/null @@ -1,36 +0,0 @@ - +---------------------------------+ - | DINGBAT: | - |A LaTeX interface to the ark10.mf| - | and dingbat.mf symbol fonts | - | | - | By Scott Pakin, pakin@uiuc.edu | - +---------------------------------+ - -Installation ------------- - -There's nothing special about building dingbat: - - latex dingbat.ins <== Generate dingbat.sty - latex dingbat.dtx <== Produce the documentation (dingbat.dvi) - makeindex -s gind.ist dingbat <== Generate an index - latex dingbat.dtx <== Incorporate the index into the document - -If you're new to this, see -http://www.tex.ac.uk/cgi-bin/texfaq2html?label=instpackages for more -information on installing packages. - - -Copyright and license ---------------------- -Copyright (C) 2001 Scott Pakin, pakin@uiuc.edu - -This package may be distributed and/or modified under the conditions -of the LaTeX Project Public License, either version 1.2 of this -license or (at your option) any later version. The latest version of -this license is in: - - http://www.latex-project.org/lppl.txt - -and version 1.2 or later is part of all distributions of LaTeX version -1999/12/01 or later. diff --git a/Master/texmf-dist/doc/fonts/dingbat/ark10.mf b/Master/texmf-dist/doc/fonts/dingbat/ark10.mf deleted file mode 100644 index 751a17cd8f8..00000000000 --- a/Master/texmf-dist/doc/fonts/dingbat/ark10.mf +++ /dev/null @@ -1,320 +0,0 @@ -% ark10.mf file -% Copyright (c) 1988 by Arthur M. Keller -% The ARK font was initially done in MF79 -% by Scott Kim. It was converted to (new) MF by N.N. Billawala -% of Metamarks. -% It contains 10 characters. - - -rulepen:=pensquare scaled 1; % makes one pixel proofing lines -mode_setup; -designsize:=10pt#; -width#:=10pt#; -height#:=7.5pt#; -depth#:=2.5pt#; - define_pixels(width,height,depth); -extra_beginchar:=extra_beginchar&"save p;path p[];"; - -% ***** general macros ***** -extra_beginchar:=extra_beginchar&"w#:=charwd;"; % for adjust def -extra_endchar:=extra_endchar&"wsaved:=w; w:=r-l;"; % for adjust def - -letter_fit#:=letter_fit:=0; -def adjust(expr left_adjustment,right_adjustment) = - l:=-round(left_adjustment*hppp)-letter_fit; - interim xoffset:=-l; - charwd:=charwd+2letter_fit#+left_adjustment+right_adjustment; - r:=l+round(charwd*hppp); - w:=r-round(right_adjustment*hppp)-letter_fit; - enddef; - -def makebox(text rule)= % makes a reference box for screen and proof characters - for y=0,h.o_,-d.o_: rule((l,y),(r,y)); endfor % horizontals - for x=l,r: rule((x,-d.o_),(x,h.o_)); endfor % outer verticals - if charic<>0: rule((wsaved+charic*hppp,h.o_),(wsaved+charic*hppp,.5h.o_));fi -enddef; - -% ***** pencils ***** - -line_thickness:=max(1,.3pt); % thickness of character lines -pencil_thickness#:=.6width#; % pencil thickness -tip_length#:=.5width#; % length of pencil tips -lead_length#:=.3tip_length#; % amount of pencil tip lead showing -tip_curve:=.2; % curvature of the pencil tip -lead_curve:=.1; % curvature of the pencil tip lead part -bottom_showing:=.7; % proportion of bottom height/width in pencil - -def pencil_pen=pencircle scaled line_thickness; enddef; -define_pixels(pencil_thickness,tip_length,lead_length); - - -% The pencil keeps a general vertical size no matter what the rotation angle is. -% The width is determined after the character is drawn. -% Adjustments can be made to the height of the pencil(size) -% angle of pencil from upright or 90 degrees(rotation) -% thickness or width of the pencil(pencil_thickness) -% length of the tip of the pencil(pencil_tip) -% size of the lead showing in the tip(lead_length) -% the curvature of the pencil tip(tip_curve) as a percentage of the tip_length -% the curvature of the lead tip(lead_curve) as a percentage of the lead_length -% the size of the bottom part of the pencil(bottom_showing) - -vardef pencil(expr tip,size,rotation)= - save x,y,p,t; path p[]; transform t; pickup pencil_pen; - z1=tip+(0,size/(sind abs(90+rotation))); % bottom - z2=z1-(0,.5pencil_thickness); - for n:=0 upto 5:z[10+n]=z2+(.5pencil_thickness,0) rotated (n*60); endfor - for n:=0 upto 5:z[10+n]a=.45[z2,z[10+n]]; endfor % bottom lead - z2 transformed t=z1-(0,.5*bottom_showing*pencil_thickness); - z11 transformed t=z11; z12 transformed t=z12; - z113=z13 transformed t; z114=z14 transformed t; - z115=z15 transformed t; z110=z10 transformed t; - z3=tip+(0,tip_length); penpos3(pencil_thickness,0); % tip - z4=tip_curve[z3,tip]; - p1=z3r...z4{left}...z3l; - z20=(x114,ypart tip); z21=(x115,ypart tip); - z22=p1 intersectionpoint (z114--z20); - z23=p1 intersectionpoint (z115--z21); - z5=tip+(0,lead_length); % lead - y30=y31=y5; z30=whatever[tip,z3l]; z31=whatever[tip,z3r]; - z6=lead_curve[z5,tip]; - p2=(z10--z11--z12--z13--z14--z15--cycle) transformed t; % pencil bottom - p3=z113--z3l--tip--z3r--z110; % pencil - p4=z114--z22; - p5=z115--z23; - p6=(z10a..z11a..z12a..z13a..z14a..z15a..cycle) transformed t; % bottom lead - p7=tip--z31...z6{left}...z30--cycle; % lead tip - for n:=1 upto 5: draw p[n] rotatedaround (tip,rotation); endfor - for n:=6,7: fill p[n]rotatedaround (tip,rotation); endfor -enddef; - -% An amount for placing the tip of the pencil -def tip_adjust= - if abs(tip_length*cosd (90+rotation))>abs(.5*pencil_thickness):0 - else:abs(.5*pencil_thickness-abs(tip_length*cosd (90+rotation)))fi enddef; - -"small pencil"; - rotation:=55; % angle of pencil - pencil_width#:= - pencil_thickness#+ % base or minimum width - (height#+depth#) % vertical pencil dimension - *abs(cosd(90+rotation)/sind(90+rotation)) % * rotation - -pencil_thickness#*abs(cosd(90+rotation)); % - adjustment to thickness - - beginchar(oct"120",pencil_width#,height#,depth#); - z0=(if rotation>0:w- else:0+ fi tip_adjust,0); - pencil(z0,h+d,rotation); - adjust(.2width#,.2width#); - endchar; - -"large pencil"; - rotation:=20; % angle of pencil - pencil_width#:= - pencil_thickness#+ % base or minimum width - (height#+depth#) % vertical pencil dimension - *abs(cosd(90+rotation)/sind(90+rotation)) % * rotation - -pencil_thickness#*abs(cosd(90+rotation)); % - adjustment to thickness - - beginchar(oct"127",pencil_width#,2.8height#,2.8depth#); - z0=(if rotation>0:w- else:0+ fi tip_adjust,0); - pencil(z0,h+d,rotation); - adjust(.2width#,.2width#); - endchar; - - -% ***** return ***** -def return_pen=pencircle scaled line_thickness; enddef; - - -"return"; - beginchar(oct"103",.4width#,.6height#,.6depth#); - save curvature,arrowhead,base_length; - curvature1=angle((h+d),-.25(h+d)); - curvature2=angle(-(h+d),-.25(h+d)); - arrowhead=.2h; % length of arrowhead - pickup return_pen; % the pen used in this char - top lft z1=(0,h); bot lft z3=(0,-d); rt z2=(w,.5[y1,y3]); - p1=z1{dir curvature1}...z2{down}...z3{dir curvature2}; - z4=z3+(arrowhead,0) rotated curvature2; - z5=z3+(arrowhead,0) rotated (curvature2+120); - z6=z3+(arrowhead,0) rotated (curvature2-120); - draw p1; filldraw z4--z5--z6--cycle; - adjust(.3width#,.2width#); - endchar; - - - -% ***** eye ***** -"eye"; - beginchar(oct"105",1.2width#,.75height#,depth#); - save limit; pair limit; % keeps curve bounded - randomseed:=.71; % iris shape - pickup pencil_pen; % the pen used in this char - lft x1=0; x0=x2=x4=.5w; rt x3=w; - bot y2=0; y0=y1=y3=.5h; top y4=h; - limit=if abs(y2-y1)>abs(x2-x1):down else:(0,0) fi; - draw z1{limit}...z2{right}...z3{-limit}-- - z3+(0,eps){-limit}...z4{left}...z1+(0,eps){limit}--cycle; % outer shape - draw z2..(.5[z0,z3])..z4..(.5[z0,z1])..cycle; % "retina" - pickup pencircle; % number and shape of pupil lines can be altered here - for n:=0 step 25 until 360: - draw z0--(z0+(.9abs(y4-y0),0)rotated n); - endfor - for n:=60 step 60 until 360: - draw z0--(z0+(.9abs(y4-y0),0)rotated (n*(uniformdeviate 5))); - endfor - pickup pencircle scaled .10h; - for n:=12 step 30 until 375: - draw z0--(z0+((((uniformdeviate 2)+2)*.15abs(y4-y0)),0)rotated n); - endfor - adjust(.2width#,.2width#); - endchar; - - -% ***** hands ***** -handheight#:=6.5pt#; -handdepth#:=3pt#; - define_pixels(handheight,handdepth); -cuff_width:=.15width; % thickness of the cuff -shirt_width:=.75cuff_width; % thickness of the sleeve -digit:=round(.2handheight); % thickness of the fingers -indent:=.05width; % finger indent increment -knuckles:=2indent; % length of knuckles -finger_tips:=3indent; % length of finger tips - -def handpen=pickup pencircle scaled .2pt; enddef; - -% Makes an open horizontal oval shape; path moves clockwise -vardef finger(expr tip,alength)suffix $= - save x,y,tips; boolean tips; tips=if str$="tips":true else:false fi; - z2=tip; x1=x3=x2 if tips:+finger_tips else:-knuckles fi; x4=x3-alength; - y1=y2+.5digit; y1-y3=digit; y4=y3; - if tips:z4..z3{left}...z2...z1{right} else:z1{right}...z2...z3{left}...z4 fi -enddef; - -% Points used in the hand characters -def hand_points= - y1=y2=h; top y3=top y4=y2-(.05h+1); x1=x5=0; x2=x3=x6=x7=x1+cuff_width;% cuff - y5=y6=0; bot y7=bot y8=y5+(.05h+1); x4=x8=x1a=x3a=x2+shirt_width; - y1a=y3-(.1h); y2a=y3; x2a=.3[x1a,w-3indent]; % wrist - y3a=y1a-.5h; y4a=y7+(.05h+1); y5a=.2[y4a,y2a]; x4a=x5a=.45[x3a,x5d]; - y1b=y3-.5digit; y2b+digit=y3b+2digit=y4b+3digit=y1b; y5b=y4b; % knuckles - x1b+2indent=x2b+indent=x3b=x4b+indent=w; x5b=x3b+2knuckles; - for n:=1 upto 4:y[n]c=y[n]b; endfor % tips - x1c=x2c=x3c=x4c-indent=0[x3d,x3b]; - z3d=(.5[x3a,x3b],-d); z2d=z3d+(.5digit,.3d); z4d=z2d-(digit,0); % up thumb - z1d=(x2d-indent,.5[y2d,y4b-.5digit]); z5d=z1d-(1.5digit,0); - z1e=z5d+(0,.5digit); z2e=(.2[x1e,x3b],y1e); % down thumb - z5e=(.55[x3c,x3b],y3b-.5digit); - z3e=.4[z2e,z5e]+(.55digit,0)rotated(angle(z5e-z2e)-90); - z4e-z3e=whatever*(z5e-z2e); y4e=y4b; - z6e=z3e+(1.1digit,0)rotated(angle(z5e-z2e)+90); z7e=z6e-(.5knuckles,0); - z8e=(1[x3a,x5d],y3b); - enddef; - -def cuff(expr trans)= - p10=z1--z2--z6--z5--cycle; fill p10 transformed trans; % cuff - p11=z3--z4--z8--z7; draw p11 transformed trans; % sleeve - enddef; - -"left thumbs down"; - beginchar(oct"104",1.2*width#,handheight#,handdepth#); - transform t[]; t1=identity shifted (0,-.1h); - handpen hand_points; - cuff(t1); % cuff - p1=z1a{right}...z2a{right}...finger(z1b,2.5indent); % finger - p2=finger(z2b,2.5indent); % finger - p3=finger(z3b,4.5indent); % finger - p4=finger(z4b,2.5indent)... % finger - z1d{down}...z2d{down}...z3d...z4d{up}...z5d{z4a-z3d}...z3a{left};% thumb - for n:=1 upto 4: draw p[n] transformed t1; endfor - adjust(.2width#,.2width#); - endchar; - -"right thumbs down"; - beginchar(oct"144",1.2*width#,handheight#,handdepth#); - transform t[]; - t1=identity reflectedabout ((.5w,0),(.5w,h)) shifted (0,-.1h); - handpen hand_points; - cuff(t1); % cuff - p1=z1a{right}...z2a{right}...finger(z1b,2.5indent); % finger - p2=finger(z2b,2.5indent); % finger - p3=finger(z3b,4.5indent); % finger - p4=finger(z4b,2.5indent)... % finger - z1d{down}...z2d{down}...z3d...z4d{up}...z5d{z4a-z3d}...z3a{left};% thumb - for n:=1 upto 4: draw p[n] transformed t1; endfor - adjust(.2width#,.2width#); - endchar; - -"left thumbs up"; - beginchar(oct"125",1.2*width#,handheight#,handdepth#); - transform t[]; - t1=identity reflectedabout ((0,.5h),(w,.5h)) shifted (0,-.1h); - handpen hand_points; - cuff(t1); % cuff - p1=z1a{right}...z2a{right}...finger(z1b,0)--finger(z1c,0)tips; % finger - p2=finger(z2b,0)--finger(z2c,0)tips; % finger - p3=finger(z3b,0)--finger(z3c,0)tips; % finger - p4=finger(z4c,0)tips--finger(z4b,0){left}... % finger - z1d{down}...z2d{down}...z3d...z4d{up}...z5d{z4a-z3d}...z4a...z5a{up}; - p5=z3a--z4a; % wrist - for n:=1 upto 5: draw p[n] shifted (0,-.07h) transformed t1; endfor - adjust(.2width#,.2width#); - endchar; - -"right thumbs up"; - beginchar(oct"165",1.2*width#,handheight#,handdepth#); - transform t[]; - t1=identity rotatedaround ((.5w,.5h),180) shifted (0,-.1h); - handpen hand_points; - cuff(t1); % cuff - p1=z1a{right}...z2a{right}...finger(z1b,0)--finger(z1c,0)tips; % finger - p2=finger(z2b,0)--finger(z2c,0)tips; % finger - p3=finger(z3b,0)--finger(z3c,0)tips; % finger - p4=finger(z4c,0)tips--finger(z4b,0){left}... % finger - z1d{down}...z2d{down}...z3d...z4d{up}...z5d{z4a-z3d}...z4a...z5a{up}; - p5=z3a--z4a; % wrist - for n:=1 upto 5: draw p[n] shifted (0,-.07h) transformed t1; endfor - adjust(.2width#,.2width#); - endchar; - -"left hand pointing right"; - beginchar(oct"122",1.2*width#,handheight#,handdepth#); - transform t[]; - t1=identity reflectedabout ((0,.5h),(w,.5h)) shifted (0,-.1h); - handpen hand_points; - cuff(t1); % cuff - z1f=(z2e{right}...z3e{z5e-z2e}...z5e{left}...z6e{z2e-z5e}) - intersectionpoint ((0,y4b-.5digit)--(w,y4b-.5digit)); - p1=z1a{right}...z2a{right}...finger(z1b,0)--finger(z1c,0)tips; % finger - p2=finger(z2b,0)--finger(z2c,0)tips; % finger - p3=finger(z3b,0)--finger(z3c,0)tips; % finger - p4=z5e--finger(z5b,0)--z1f; % finger - p5=z3a{right}...z1e{right}...z2e{right}...z3e{z5e-z2e}... - z4e{z5e-z2e}...z5e{left}...z6e{z2e-z5e} & z6e--z7e{dir 120}..z8e; - w:=w+2knuckles; - for n:=1 upto 5: draw p[n] shifted (0,-.07h) transformed t1; endfor - adjust(.2width#,.35width#); - endchar; - -"right hand pointing left"; - beginchar(oct"114",1.2*width#,handheight#,handdepth#); - transform t[]; - t1=identity rotatedaround ((.5w,.5h),180) shifted (0,-.1h); - handpen hand_points; - cuff(t1); % cuff - z1f=(z2e{right}...z3e{z5e-z2e}...z5e{left}...z6e{z2e-z5e}) - intersectionpoint ((0,y4b-.5digit)--(w,y4b-.5digit)); - p1=z1a{right}...z2a{right}...finger(z1b,0)--finger(z1c,0)tips; % finger - p2=finger(z2b,0)--finger(z2c,0)tips; % finger - p3=finger(z3b,0)--finger(z3c,0)tips; % finger - p4=z5e--finger(z5b,0)--z1f; % finger - p5=z3a{right}...z1e{right}...z2e{right}...z3e{z5e-z2e}... - z4e{z5e-z2e}...z5e{left}...z6e{z2e-z5e} & z6e--z7e{dir 120}..z8e; - w:=w+2knuckles; - for n:=1 upto 5: draw p[n] shifted (0,-.07h) transformed t1; endfor - adjust(.35width#,.2width#); - endchar; - -end - diff --git a/Master/texmf-dist/doc/fonts/dingbat/dingbat.mf b/Master/texmf-dist/doc/fonts/dingbat/dingbat.mf deleted file mode 100644 index 4aa92c3100c..00000000000 --- a/Master/texmf-dist/doc/fonts/dingbat/dingbat.mf +++ /dev/null @@ -1,693 +0,0 @@ -% Dingbat characters as of 3-3-89 by Doug Henderson -% To be run with plain.bas. -% Last modified on 3-27-89 - -font_size=10pt#; % make the pxl or pk files be in ...\pixel\pxl1500 - -def clear_all = - clearit; clearxy; -enddef; - -%%% -% turn pt,in,cm etc. into pixel values -%%% - -mode_setup; - -%%% -% define your variables here -%%% -string s[]; -picture p[]; -numeric anchor_scale; -anchor_scale=10; -path the_anchor,ring_of_anchor,tilted_anchor,tilted_ring; -% how much to tilt the anchor -numeric akilter; -akilter:=20; -picture holdit,holdem,flower_x,flower_y; -path collar, thumb, index_finger, the_bird, ring_finger, pinky_finger ; -a#:=12pt#; -b#:=12pt#; -glyph_width#:=10pt#; -glyph_height#:=7pt#; -uniform_square#:=20pt#; -triangle_size#:=12pt#; -check_width#:=10pt#; -check_height#:=10pt#; -check_depth#:=0pt#; -dash#:=2pt#; -%flu_width#:=31pt#; -%flu_height#:=15pt#; -flu_width#:=62pt#; -flu_height#:=30pt#; -anchor_height#:=150pt#/anchor_scale; -anchor_width#:=130pt#/anchor_scale; -anchor_depth#:=0pt#; - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -% Very thin weight stroke for flouron (not advised for < 600dpi) -%thinish#:=.25pt#; -%thinthick#:=.45pt#; -%thickish#:=.75pt#; - -% Normal weight stroke for flouron -thinish#:=.5pt#; -thinthick#:=1pt#; -thickish#:=1.5pt#; - -% Heavy weight stroke for flouron -%thinish#:=1pt#; -%thinthick#:=2pt#; -%thickish#:=2.5pt#; - -% Strokes widths for the flower from 1-12 (= 1 pixel - 4.5pt) -flower_one#:=.25; -flower_two#:=.5; -flower_three#:=.5pt#/1.5; -flower_four#:=.5pt#/1.5; -flower_five#:=1pt#/1.5; -flower_six#:=1.5pt#/1.5; -flower_seven#:=2pt#/1.5; -flower_eight#:=2.5pt#/1.5; -flower_nine#:=3pt#/1.5; -flower_ten#:=3.5pt#/1.5; -flower_eleven#:=4pt#/1.5; -flower_twelve#:=4.5pt#/1.5; -hand_scale=6; -hand_width#:=110pt#/hand_scale; -hand_height#:=80pt#/hand_scale; -hand_depth#:=0pt#; - -%%% -% define your pixels here, do this for each variable defined above -%%% - -define_pixels(glyph_width,glyph_height,uniform_square,triangle_size); -define_pixels(check_width,check_height,check_depth,dash,thinish,thickish); -define_pixels(thinthick,flu_width,flu_height,a,b); -define_pixels(flower_one,flower_two,flower_three,flower_four,flower_five); -define_pixels(flower_six,flower_seven,flower_eight,flower_nine,flower_ten); -define_pixels(flower_eleven,flower_twelve); -define_pixels(hand_width,hand_height,hand_depth,dash); -define_pixels(anchor_height,anchor_weight,anchor_depth); - -%%% -% define a macro which pauses until the user hits the return key -%%% - -def - whoa= s0:= readstring; -enddef; -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% Define all the pens we use -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -pickup pensquare scaled .2pt; -smallpen:=savepen; -pickup pensquare scaled .4pt; -bigpen:=savepen; -pickup pensquare scaled .8pt; -bigger:=savepen; -pickup pencircle scaled .1pt; -razorpen:=savepen; -pickup pencircle scaled 2pt; -bigdotpen:=savepen; -pickup pencircle scaled 1.1pt; -lildotpen:=savepen; -pickup pensquare scaled 1.6pt; -chunkypen:=savepen; -pickup pencircle scaled .35pt; -ringpen:=savepen; - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% Let the dingbat characters begin -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -"Anchor for TUG dingbat contest"; -beginchar("O",anchor_width#,anchor_height#,anchor_depth#); - %%% - % x variables - %%% - x1=8/130w; % x1 - x2=6/130w; % x2 - x3=13/130w; % x3 - x4=x25=x26=x31=30/130w; % x4 x25 x26 x31 - x5=x22=60/130w; % x5 - x6=x14=x18=x19=90/130w; % x6 x14 x18 x19 - x27=x28=x45=54/130w; % x27 x28 x45 - x17=x35=x56=66/130w; % x17 x35 x56 - - x7=107/130w; % x7 - x8=114/130w; % x8 - x10=112/130w; % x10 - x12=94/130w; % x12 - x13=99/130w; % x13 - x15=72/130w; % x15 - x16=67/130w; % x16 - x20=70/130w; % x20 - x21=65/130w; % x21 - x23=55/130w; % x23 - x24=50/130w; % x24 - - x29=53/130w; % x29 - x30=48/130w; % x30 - x32=21/130w; % x32 - x33=26/130w; % x33 - - %%% - % y variables - %%% - y1=y10=65/150h; % y1 y10 - y2=y8=43/150h; % y2 y8 - y3=y7=45/150h; % y3 y7 - - y4=y6=25/150h; % y4 y6 - y5=13/150h; % y5 - y21=y23=130/150h; % y21 y23 - y22=136/150h; % y22 - y45=y56=20/150h; % y45 y56 - - y18=y26=y27=y35=118/150h; % y18 y26 y27 y35 - y19=y20=y24=y25=124/150h; % y19 y20 y24 y25 - y17=y28=40/150h; % y17 y28 - y16=y29=36/150h; % y16 y29 - y15=y30=35/150h; % y15 y30 - y14=y31=38/150h; % y14 y31 - y13=y32=50/150h; % y13 y32 - y12=y33=54/150h; % y12 y33 - - %%% - % path assignments - %%% - the_anchor = z25--z26--z27--z28 & z28..z29..z31..z32 & - z32--z33--z1--z2--z3 & z3..z4..z45 & z45--z5--z56 & z56..z6..z7 & - z7--z8--z10--z12--z13 & z13..z14..z16..z17 & - z17--z35--z18--z19--cycle; - ring_of_anchor = z20..z22..z24; - - tilted_anchor = the_anchor rotated akilter; - tilted_ring = ring_of_anchor rotated akilter; - %%% - % draw the character, show how ring meets anchor - %%% - pickup razorpen; - fill the_anchor; - pickup ringpen; - draw ring_of_anchor; - - %%% - % after clearing previous path (upright anchor) fill the tilted path - %%% - %clearit; - %fill tilted_anchor; - %draw tilted_ring; - %showit; - %message"When thru viewing, press Enter to continue"; - %whoa; - - labels(range 1 thru 4,45,5,56,range 6 thru 19); - labels(range 20 thru 33,35); - -endchar; - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -"Hand pointer to the left"; -beginchar("N",hand_width#,hand_height#,hand_depth#); - %%% - % x variables - %%% - x1=9.5/110w; % x1 - x2=15/110w; % x2 - x3=x6=20/110w; % x3 x6 - x4=19/110w; % x4 - x5=x8=16/110w; % x5 x8 - x7=21/110w; % x7 - x9=10.5/110w; % x8 - x10=5/110w; % x10 - x11=42.5/110w; % x11 - x1112=61/110w; % x1112 (a point between 11 and 12) - x12=67/110w; % x12 - x13=x24=70/110w; % x13 x24 - x14=57.5/110w; % x14 - x15=76/110w; % x15 - x16=77/110w; % x16 - x17=58/110w; % x17 - x18=82.5/110w; % x18 - x19=83/110w; % x19 - x20=57/110w; % x20 - x21=94/110w; % x21 - x22=102/110w; % x22 - x23=90/110w; % x23 - x25=43.5/110w; % x25 - x26=62.5/110w; % x26 - x27=75/110w; % x27 - x28=74/110w; % x28 - - %%% - % y variables - %%% - y1=y24=63/80h; % y1 y24 - y2=y25=64/80h; % y2 y25 - y3=63.5/80h; % y3 - y4=59/80h; % y4 - y5=y17=40/80h; % y5 y17 - y6=18/80h; % y6 - y7=13/80h; % y7 - y8=12.5/80h; % y8 - y9=13.5/80h; % y9 - y10=39.5/80h; % y10 - y11=15/80h; % y11 - y1112=17.5/80h; % y1112 (a point between 11 and 12) - y12=20/80h; % y12 - y13=27.5/80h; % y13 - y14=28/80h; % y14 - y15=32/80h; % y15 - y16=39/80h; % y16 - y18=44/80h; % y18 - y19=y21=50/80h; % y19 - y20=51/80h; % y20 - y22=55/80h; % y22 - y23=62/80h; % y23 - y26=71/80h; % y26 - y27=72/80h; % y27 - y28=67/80h; % y28 - - collar=z1..z2..z3 & z3..z4..z5..z6..z7 & z7..z8..z9 & z9..z10..z1; - thumb=z25..z26..z27..z28..z24; - index_finger=z4..z25..z24..z23..z22..z21..z19..z20; - the_bird=z17--z16..z18..z19; - ring_finger=z14--z13..z15..z16; - pinky_finger=z6..z11..z1112 & z1112..z12..z13; - - pickup razorpen; - - draw collar; draw thumb; draw index_finger; - draw the_bird; draw ring_finger; draw pinky_finger; - labels(range 1 thru 11,1112,range 12 thru 28); -endchar; - -"Flowery flouron"; -beginchar("J",flu_width#,flu_height#,0); - % first stroke = x1 thru x8 - x1=.02w; x2=.10w; x3=.23w; x4=.38w; x5=.51w; - x6=.73w; x7=.85w; x8=x14=x19=.98w; - % second stroke = x9 thru x14 - x9=.22w; x10=.17w; x11=.165w; x12=.20w; - x13=.58w; % x14=x8=x19 - % third stroke = x15 thru x19 - x15=.32w; x16=.46w; x17=.65w; x18=.82w; % x19=x8=x14 - % first stroke = y1 thru y8 - y1=.05h; y2=.19h; y3=.26h; y4=.24h; y5=.18h; - y6=.13h; y7=.14h; y8=y14=y19=.19h; - % second stroke = y9 thru y14 - y9=.99h; y10=.92h; y11=.85h; - y12=.71h; y13=.32h; % y14=y8 - % third stroke = y15 thru y19 - y15=.67h; y16=.74h; y17=.71h; y18=.48h; - % pen positions for stroke 1 - penpos1(flower_one,135); penpos2(flower_five,135); penpos3(flower_nine,90); - penpos4(flower_twelve,90); penpos5(flower_ten,67); penpos6(flower_five,85); - penpos7(flower_four,90); penpos8(flower_three,135); - % pen positions for stroke 2 - penpos9(flower_one,135); penpos10(flower_seven,180); - penpos11(flower_eight,180); penpos12(flower_seven,210); - penpos13(flower_six,210); penpos14(flower_three,270); - % pen positions for stroke 3 - penpos15(flower_one,115); penpos16(flower_seven,100); - penpos17(flower_nine,70); penpos18(flower_five,45); - penpos19(flower_three,45); - % now draw our three strokes - penstroke z1e..z2e..z3e..z4e..z5e..z6e..z7e..z8e; - penstroke z9e...z10e...z11e...z12e{dir 315}...z13e...z14e; - penstroke z15e..z16e..z17e..z18e{dir 315}..z19e; - penlabels(range 1 thru 19); - flower_x:=currentpicture; -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -"Right flower"; -beginchar("K",flu_width#,flu_height#,0); - currentpicture:=currentpicture+flower_x; - currentpicture:=currentpicture reflectedabout((.5[0,0],1),(.5[0,0],0)); - currentpicture:=currentpicture shifted (w,0); - flower_y:=currentpicture; -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -"Flipped left flower--matches J"; -beginchar("L",flu_width#,flu_height#,0); - currentpicture:=currentpicture+flower_y; - currentpicture:=currentpicture reflectedabout((0,.5[0,h]),(1,.5[0,h])); -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -"Flipped right flower--matches K"; -beginchar("M",flu_width#,flu_height#,0); - currentpicture:=currentpicture+flower_x; - currentpicture:=currentpicture reflectedabout((0,.5[0,h]),(1,.5[0,h])); -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -"DLA satelite dish"; -beginchar("I",a#,b#,0); - numeric zero; zero=0; - % define the coordinates we will work with here - z1=origin; z2=(a,zero); z3=(a,b/5); z4=(zero,b/5); - x5=3/10(x2-x1); y5=y4=y6; x6=7/10(x2-x1); - x7=4/10(x2-x1); y7=y8=y9=3/10(b); x8=6/10(x2-x1); - x9=x10=1/2(x2-x1); - x11=1/10(x2-x1); y11=9/10(b); x12=3/10(x2-x1); - y12=.53(b); x13=9/10(x2-x1); y13=5/10(b); - y10=4.5/10(b); - - % draw the bottom platform of the dish - pickup pensquare xscaled .5pt yscaled .5pt - filldraw z1--z2--z3--z4--cycle; - % draw the base of the dish, which sits on top of the bottom platform - pickup penrazor; - filldraw z5--z7--z8--z6--cycle; - % draw the arm holding the dish, which sits on the base of the dish - pickup penrazor xscaled .5pt; - draw z9--z10; - % draw the dish now - pickup pencircle xscaled .5pt yscaled .5pt; - draw z11..z12..z13; - % dish mod, complete the dish top -% draw z11--z13; - labels(range 1 thru 13); -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -"Left flouron"; -beginchar("E",flu_width#,flu_height#,0); - pickup pencircle; - x1=.23w; x2=.10w; x3=.05w; x4=.10w; x5=.19w; - x6=.25w; x7=.26w; x8=.20w; x9=.22w; x10=.26w; - x11=.48w; x12=.62w; x13=.71w; x14=.84w; x15=.90w; - x16=.97w; x17=.93w; x18=.84w; - y1=.07h; y2=.07h; y3=.33h; y4=.57h; y5=.65h; - y6=.61h; y7=.53h; y8=.55h; y9=.75h; y10=.80h; - y11=.67h; y12=.56h; y13=.53h; y14=.55h; y15=.60h; - y16=.80h; y17=.92h; y18=.87h; - penpos1(thinish,270); penpos2(thinish,225); - penpos3(thickish,180); penpos4(thinish,135); - penpos5(thinish,90); penpos6(thinish,45); - penpos7(thinish,0); penpos8(thinish,225); - penpos9(thinish,135); penpos10(thinish,90); - penpos11(thinish,45); penpos12(thinish,45); - penpos13(thinish,90); penpos14(thinthick,135); - penpos15(thinthick,135); penpos16(thinthick,180); - penpos17(thinish,225); penpos18(thinish,270); - penstroke z1e..z2e..z3e..z4e..z5e..z6e..z7e..z8e..z9e..z10e..z11e..z12e.. - z13e..z14e..z15e..z16e..z17e..z18e; - penlabels(range 1 thru 18); -holdit:=currentpicture; -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -"Right flouron"; -beginchar("F",flu_width#,flu_height#,0); - currentpicture:=currentpicture+holdit; -% currentpicture:=currentpicture reflectedabout((.5[l,r],1),(.5[l,r],0)); - currentpicture:=currentpicture reflectedabout((.5[0,0],1),(.5[0,0],0)); - currentpicture:=currentpicture shifted (w,0); - holdem:=currentpicture; -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -"Flipped left flouron--matches F"; -beginchar("G",flu_width#,flu_height#,0); - currentpicture:=currentpicture+holdem; - currentpicture:=currentpicture reflectedabout((0,.5[0,h]),(1,.5[0,h])); -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -"Flipped right flouron--matches E"; -beginchar("H",flu_width#,flu_height#,0); - currentpicture:=currentpicture+holdit; - currentpicture:=currentpicture reflectedabout((0,.5[0,h]),(1,.5[0,h])); -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -"Check mark"; -beginchar("D",check_width#,check_height#,check_depth#); - pickup pencircle; - y1=.4h; y2=.15h; y3=.85h; - x1l=0+eps; x2=1/3w; x3=.85w; - penpos1(dash,45); penpos2(dash,90); penpos3(dash,170); - penstroke z1e--z2e--z3e; - penlabels(1,2,3); -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -"Square (filled) with dots border design"; -beginchar("C",triangle_size#,triangle_size#,0); -x1=x3=good.x(1/2triangle_size); -x2=good.x(1/10triangle_size); -x4=good.x(9/10triangle_size); -x5=x6=good.x(3/10triangle_size); -x7=x8=good.x(7/10triangle_size); -x9=x10=good.x(2/10triangle_size); -x12=x11=good.x(8/10triangle_size); - -y1=good.y(1/10triangle_size); -y9=y12=good.y(2/10triangle_size); -y5=y8=good.y(3/10triangle_size); -y2=y4=good.y(1/2triangle_size); -y6=y7=good.y(7/10triangle_size); -y10=y11=good.y(8/10triangle_size); -y3=good.y(9/10triangle_size); - -pickup razorpen; -fill z1..z5..z2 & z2..z6..z3 & z3..z7..z4 & z4..z8..z1..cycle; -pickup bigdotpen; -drawdot z9; drawdot z12; drawdot z10; drawdot z11; - -labels(range 1 thru 12); - -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -"Square (unfilled) with dots border design"; -beginchar("B",triangle_size#,triangle_size#,0); - x1=x3=good.x(1/2triangle_size); - x2=good.x(1/10triangle_size); - x4=good.x(9/10triangle_size); - x5=x6=good.x(3/10triangle_size); - x7=x8=good.x(7/10triangle_size); - x9=x10=good.x(2/10triangle_size); - x12=x11=good.x(8/10triangle_size); - - y1=good.y(1/10triangle_size); - y9=y12=good.y(2/10triangle_size); - y5=y8=good.y(3/10triangle_size); - y2=y4=good.y(1/2triangle_size); - y6=y7=good.y(7/10triangle_size); - y10=y11=good.y(8/10triangle_size); - y3=good.y(9/10triangle_size); - - pickup bigpen; - draw z1..z5..z2; - draw z2..z6..z3; - draw z3..z7..z4; - draw z4..z8..z1; - - pickup bigdotpen; - drawdot z9; drawdot z12; drawdot z10; drawdot z11; - pickup lildotpen; - erase drawdot z9; erase drawdot z12; erase drawdot z10;erase drawdot z11; - - labels(range 1 thru 12); - -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -"Z border design"; -beginchar("Z",glyph_width#,glyph_height#,0); -pickup bigger; -% define our x values for the border design -x1=x6=x7=good.x(glyph_width); -x4=6/8good.x(glyph_width); -x8=2/8good.x(glyph_width); -x2=x3=x5=0; -% design our y values for the border design -y1=y2=0; -y7=y8=1/3good.y(glyph_height); -y3=y4=2/3good.y(glyph_height); -y5=y6=good.y(glyph_height); - -draw z5--z6--z7--z8; -draw z1--z2--z3--z4; -%draw bot z5--z3; -%draw top z1--z7; - -labels(range 1 thru 8); - -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -"S border design"; -beginchar("S",glyph_width#,glyph_height#,0); -pickup bigger; -% define our x values for the border design -x1=x6=x7=0; -x2=x3=x8=good.x(glyph_width); -x4=good.x(2/8glyph_width); -x5=good.x(6/8glyph_width); - -y1=y2=0; -y5=y6=good.y(1/3glyph_height); -y3=y4=good.y(2/3glyph_height); -y7=y8=good.y(glyph_height); - -draw z1--z2--z3--z4; -draw z5--z6--z7--z8; -%draw top z1--z6; -%draw bot z8--z3; -cullit; - -labels(range 1 thru 8); - -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -"Overlapping thick\thin line border design--- character 1 (top-left)"; -beginchar("a",uniform_square#,uniform_square#,0); - -x1=x2=good.x(1/10uniform_square); -x3=x4=good.x(4/10uniform_square); -x5=x8=good.x(uniform_square); -x6=x7=good.x(2/10uniform_square); - -y1=y6=good.y(0); -y2=y3=good.y(6/10uniform_square); -y7=y8=good.y(8/10uniform_square); -y4=y5=good.y(9/10uniform_square); - -pickup chunkypen; -draw z1--z2--z3--z4--z5; -pickup bigpen; -draw z6--z7--z8; -p1:=currentpicture; - -labels(range 1 thru 8); - -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -"Overlapping thick\thin line border design--- character 2 (top-middle)"; -beginchar("b",uniform_square#,uniform_square#,0); - -x1=x3=good.x(0); -x2=x4=good.x(uniform_square); - -y1=y2=good.y(9/10uniform_square); -y3=y4=good.y(8/10uniform_square); - -pickup chunkypen; -draw z1--z2; -pickup bigpen; -draw z3--z4; -p2:=currentpicture; - -labels(1,2,3,4); - -endchar; -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -"Overlapping thick\thin line border design--- character 3 (top-right)"; -beginchar("c",uniform_square#,uniform_square#,0); - -x1=x6=good.x(0); -x2=x3=good.x(6/10uniform_square); -x7=x8=good.x(8/10uniform_square); -x4=x5=good.x(9/10uniform_square); - -y1=y2=good.y(9/10uniform_square); -y6=y7=good.y(8/10uniform_square); -y3=y4=good.y(6/10uniform_square); -y5=y8=good.y(0); - -pickup chunkypen; -draw z1--z2--z3--z4--z5; -pickup bigpen; -draw z6--z7--z8; -p3:=currentpicture; - -labels(range 1 thru 8); - -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -"Overlapping thick\thin line border design--- character 4 (middle-left)"; -beginchar("d",uniform_square#,uniform_square#,0); - -x1=x2=good.x(1/10uniform_square); -x3=x4=good.x(2/10uniform_square); -y1=y3=good.y(0); -y2=y4=good.y(uniform_square); - -pickup chunkypen; -draw z1--z2; -pickup bigpen; -draw z3--z4; -p4:=currentpicture; - -labels(1,2,3,4); - -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -"Overlapping thick\thin line border design--- character 5 (middle-right)"; -beginchar("e",uniform_square#,uniform_square#,0); -currentpicture:=currentpicture + p4; -currentpicture:=currentpicture reflectedabout((.5[0,w],0),(.5[0,w],1)); -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -"Overlapping thick\thin line border design--- character 6 (bottom-left)"; -beginchar("f",uniform_square#,uniform_square#,0); -currentpicture:=currentpicture + p1; -currentpicture:=currentpicture -reflectedabout((0,.5[0,uniform_square]),(1,.5[0,uniform_square])); -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -"Overlapping thick\thin line border design--- character 7 (bottom-middle)"; -beginchar("g",uniform_square#,uniform_square#,0); -currentpicture:=currentpicture + p2; -currentpicture:=currentpicture -reflectedabout((0,.5[0,uniform_square]),(1,.5[0,uniform_square])); -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -"Overlapping thick\thin line border design--- character 8 (bottom-right)"; -beginchar("h",uniform_square#,uniform_square#,0); -currentpicture:=currentpicture + p3; -currentpicture:=currentpicture -reflectedabout((0,.5[0,uniform_square]),(1,.5[0,uniform_square])); -endchar; -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -bye diff --git a/Master/texmf-dist/doc/fonts/dingbat/dingbat.pdf b/Master/texmf-dist/doc/fonts/dingbat/dingbat.pdf deleted file mode 100644 index 947521c77f6..00000000000 Binary files a/Master/texmf-dist/doc/fonts/dingbat/dingbat.pdf and /dev/null differ diff --git a/Master/texmf-dist/doc/fonts/dingbat/dingbat.tex b/Master/texmf-dist/doc/fonts/dingbat/dingbat.tex deleted file mode 100644 index e260c9701ea..00000000000 --- a/Master/texmf-dist/doc/fonts/dingbat/dingbat.tex +++ /dev/null @@ -1,48 +0,0 @@ -\nopagenumbers - - -\font\ding dingbat scaled 1200 - -\setbox0=\hbox{\ding\char'141} -\newdimen\charwidth \charwidth\wd0 -\def\updoublerulefill{\xleaders\hbox to 10pt - {\hss\ding\char'142 \hss}\hfill} -\def\downdoublerulefill{\xleaders\hbox to 10pt - {\hss\ding\char'147 \hss}\hfill} -\def\leftdoublerulefill{\xleaders\vbox to 10pt - {\vss\hbox{\ding\char'144}\vss}\vfill} -\def\rightdoublerulefill{\xleaders\vbox to 10pt - {\vss\hbox{\ding\char'145}\vss}\vfill} - -\newdimen\Width \newdimen\Height -\Width\hsize \Height\vsize -\def\rramec{\vbox to\Height - {\hbox to\Width{\ding\char'141\updoublerulefill{\char'143}} - \xleaders\vbox to 10pt - {\vss\hbox to\Width{\ding\char'144\hfill\char'145}\vss} - \vfill - \hbox to\Width{\ding\char'146\downdoublerulefill{\char'150}}}} - -\def\RRamec #1{\setbox0=\vbox{#1}\Height\ht0\advance\Height\dp0 - \Width\wd0 \advance\Width 2\charwidth - \vbox - {\hbox to\Width{\ding\char'141\updoublerulefill{\char'143}} - \hbox to\Width{\vbox to\Height{\leftdoublerulefill}\hss - \box0\hss\vbox to\Height{\rightdoublerulefill}} - \hbox to\Width{\ding\char'146\downdoublerulefill{\char'150}}}} - -\rramec -\tolerance 800 -\RRamec{\hsize 5cm Hip hip hurrahhh Hip hip hurrahhh Hip hip -hurrahhh Hip hip hurrahhh Hip hip hurrahhh Hip hip hurrahhh Hip -hip hurrahhh Hip hip hurrahhh Hip hip hurrahhh Hip hip hurrahhh -Hip hip hurrahhh Hip hip hurrahhh Hip hip hurrahhh Hip hip -hurrahhh Hip hip hurrahhh Hip hip hurrahhh Hip hip hurrahhh Hip -hip hurrahhh Hip hip hurrahhh Hip hip hurrahhh Hip hip hurrahhh -Hip hip hurrahhh Hip hip hurrahhh Hip hip hurrahhh Hip hip -hurrahhh Hip hip hurrahhh Hip hip hurrahhh Hip hip hurrahhh Hip -hip hurrahhh Hip hip hurrahhh Hip hip hurrahhh Hip hip hurrahhh} - - - -\bye diff --git a/Master/texmf-dist/doc/latex/dingbat/README b/Master/texmf-dist/doc/latex/dingbat/README new file mode 100644 index 00000000000..954410faa42 --- /dev/null +++ b/Master/texmf-dist/doc/latex/dingbat/README @@ -0,0 +1,36 @@ + +---------------------------------+ + | DINGBAT: | + |A LaTeX interface to the ark10.mf| + | and dingbat.mf symbol fonts | + | | + | By Scott Pakin, pakin@uiuc.edu | + +---------------------------------+ + +Installation +------------ + +There's nothing special about building dingbat: + + latex dingbat.ins <== Generate dingbat.sty + latex dingbat.dtx <== Produce the documentation (dingbat.dvi) + makeindex -s gind.ist dingbat <== Generate an index + latex dingbat.dtx <== Incorporate the index into the document + +If you're new to this, see +http://www.tex.ac.uk/cgi-bin/texfaq2html?label=instpackages for more +information on installing packages. + + +Copyright and license +--------------------- +Copyright (C) 2001 Scott Pakin, pakin@uiuc.edu + +This package may be distributed and/or modified under the conditions +of the LaTeX Project Public License, either version 1.2 of this +license or (at your option) any later version. The latest version of +this license is in: + + http://www.latex-project.org/lppl.txt + +and version 1.2 or later is part of all distributions of LaTeX version +1999/12/01 or later. diff --git a/Master/texmf-dist/doc/latex/dingbat/dingbat.pdf b/Master/texmf-dist/doc/latex/dingbat/dingbat.pdf new file mode 100644 index 00000000000..947521c77f6 Binary files /dev/null and b/Master/texmf-dist/doc/latex/dingbat/dingbat.pdf differ diff --git a/Master/texmf-dist/doc/latex/dingbat/dingbat.tex b/Master/texmf-dist/doc/latex/dingbat/dingbat.tex new file mode 100644 index 00000000000..e260c9701ea --- /dev/null +++ b/Master/texmf-dist/doc/latex/dingbat/dingbat.tex @@ -0,0 +1,48 @@ +\nopagenumbers + + +\font\ding dingbat scaled 1200 + +\setbox0=\hbox{\ding\char'141} +\newdimen\charwidth \charwidth\wd0 +\def\updoublerulefill{\xleaders\hbox to 10pt + {\hss\ding\char'142 \hss}\hfill} +\def\downdoublerulefill{\xleaders\hbox to 10pt + {\hss\ding\char'147 \hss}\hfill} +\def\leftdoublerulefill{\xleaders\vbox to 10pt + {\vss\hbox{\ding\char'144}\vss}\vfill} +\def\rightdoublerulefill{\xleaders\vbox to 10pt + {\vss\hbox{\ding\char'145}\vss}\vfill} + +\newdimen\Width \newdimen\Height +\Width\hsize \Height\vsize +\def\rramec{\vbox to\Height + {\hbox to\Width{\ding\char'141\updoublerulefill{\char'143}} + \xleaders\vbox to 10pt + {\vss\hbox to\Width{\ding\char'144\hfill\char'145}\vss} + \vfill + \hbox to\Width{\ding\char'146\downdoublerulefill{\char'150}}}} + +\def\RRamec #1{\setbox0=\vbox{#1}\Height\ht0\advance\Height\dp0 + \Width\wd0 \advance\Width 2\charwidth + \vbox + {\hbox to\Width{\ding\char'141\updoublerulefill{\char'143}} + \hbox to\Width{\vbox to\Height{\leftdoublerulefill}\hss + \box0\hss\vbox to\Height{\rightdoublerulefill}} + \hbox to\Width{\ding\char'146\downdoublerulefill{\char'150}}}} + +\rramec +\tolerance 800 +\RRamec{\hsize 5cm Hip hip hurrahhh Hip hip hurrahhh Hip hip +hurrahhh Hip hip hurrahhh Hip hip hurrahhh Hip hip hurrahhh Hip +hip hurrahhh Hip hip hurrahhh Hip hip hurrahhh Hip hip hurrahhh +Hip hip hurrahhh Hip hip hurrahhh Hip hip hurrahhh Hip hip +hurrahhh Hip hip hurrahhh Hip hip hurrahhh Hip hip hurrahhh Hip +hip hurrahhh Hip hip hurrahhh Hip hip hurrahhh Hip hip hurrahhh +Hip hip hurrahhh Hip hip hurrahhh Hip hip hurrahhh Hip hip +hurrahhh Hip hip hurrahhh Hip hip hurrahhh Hip hip hurrahhh Hip +hip hurrahhh Hip hip hurrahhh Hip hip hurrahhh Hip hip hurrahhh} + + + +\bye diff --git a/Master/texmf-dist/fonts/source/public/dingbat/ark10.mf b/Master/texmf-dist/fonts/source/public/dingbat/ark10.mf new file mode 100644 index 00000000000..751a17cd8f8 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/dingbat/ark10.mf @@ -0,0 +1,320 @@ +% ark10.mf file +% Copyright (c) 1988 by Arthur M. Keller +% The ARK font was initially done in MF79 +% by Scott Kim. It was converted to (new) MF by N.N. Billawala +% of Metamarks. +% It contains 10 characters. + + +rulepen:=pensquare scaled 1; % makes one pixel proofing lines +mode_setup; +designsize:=10pt#; +width#:=10pt#; +height#:=7.5pt#; +depth#:=2.5pt#; + define_pixels(width,height,depth); +extra_beginchar:=extra_beginchar&"save p;path p[];"; + +% ***** general macros ***** +extra_beginchar:=extra_beginchar&"w#:=charwd;"; % for adjust def +extra_endchar:=extra_endchar&"wsaved:=w; w:=r-l;"; % for adjust def + +letter_fit#:=letter_fit:=0; +def adjust(expr left_adjustment,right_adjustment) = + l:=-round(left_adjustment*hppp)-letter_fit; + interim xoffset:=-l; + charwd:=charwd+2letter_fit#+left_adjustment+right_adjustment; + r:=l+round(charwd*hppp); + w:=r-round(right_adjustment*hppp)-letter_fit; + enddef; + +def makebox(text rule)= % makes a reference box for screen and proof characters + for y=0,h.o_,-d.o_: rule((l,y),(r,y)); endfor % horizontals + for x=l,r: rule((x,-d.o_),(x,h.o_)); endfor % outer verticals + if charic<>0: rule((wsaved+charic*hppp,h.o_),(wsaved+charic*hppp,.5h.o_));fi +enddef; + +% ***** pencils ***** + +line_thickness:=max(1,.3pt); % thickness of character lines +pencil_thickness#:=.6width#; % pencil thickness +tip_length#:=.5width#; % length of pencil tips +lead_length#:=.3tip_length#; % amount of pencil tip lead showing +tip_curve:=.2; % curvature of the pencil tip +lead_curve:=.1; % curvature of the pencil tip lead part +bottom_showing:=.7; % proportion of bottom height/width in pencil + +def pencil_pen=pencircle scaled line_thickness; enddef; +define_pixels(pencil_thickness,tip_length,lead_length); + + +% The pencil keeps a general vertical size no matter what the rotation angle is. +% The width is determined after the character is drawn. +% Adjustments can be made to the height of the pencil(size) +% angle of pencil from upright or 90 degrees(rotation) +% thickness or width of the pencil(pencil_thickness) +% length of the tip of the pencil(pencil_tip) +% size of the lead showing in the tip(lead_length) +% the curvature of the pencil tip(tip_curve) as a percentage of the tip_length +% the curvature of the lead tip(lead_curve) as a percentage of the lead_length +% the size of the bottom part of the pencil(bottom_showing) + +vardef pencil(expr tip,size,rotation)= + save x,y,p,t; path p[]; transform t; pickup pencil_pen; + z1=tip+(0,size/(sind abs(90+rotation))); % bottom + z2=z1-(0,.5pencil_thickness); + for n:=0 upto 5:z[10+n]=z2+(.5pencil_thickness,0) rotated (n*60); endfor + for n:=0 upto 5:z[10+n]a=.45[z2,z[10+n]]; endfor % bottom lead + z2 transformed t=z1-(0,.5*bottom_showing*pencil_thickness); + z11 transformed t=z11; z12 transformed t=z12; + z113=z13 transformed t; z114=z14 transformed t; + z115=z15 transformed t; z110=z10 transformed t; + z3=tip+(0,tip_length); penpos3(pencil_thickness,0); % tip + z4=tip_curve[z3,tip]; + p1=z3r...z4{left}...z3l; + z20=(x114,ypart tip); z21=(x115,ypart tip); + z22=p1 intersectionpoint (z114--z20); + z23=p1 intersectionpoint (z115--z21); + z5=tip+(0,lead_length); % lead + y30=y31=y5; z30=whatever[tip,z3l]; z31=whatever[tip,z3r]; + z6=lead_curve[z5,tip]; + p2=(z10--z11--z12--z13--z14--z15--cycle) transformed t; % pencil bottom + p3=z113--z3l--tip--z3r--z110; % pencil + p4=z114--z22; + p5=z115--z23; + p6=(z10a..z11a..z12a..z13a..z14a..z15a..cycle) transformed t; % bottom lead + p7=tip--z31...z6{left}...z30--cycle; % lead tip + for n:=1 upto 5: draw p[n] rotatedaround (tip,rotation); endfor + for n:=6,7: fill p[n]rotatedaround (tip,rotation); endfor +enddef; + +% An amount for placing the tip of the pencil +def tip_adjust= + if abs(tip_length*cosd (90+rotation))>abs(.5*pencil_thickness):0 + else:abs(.5*pencil_thickness-abs(tip_length*cosd (90+rotation)))fi enddef; + +"small pencil"; + rotation:=55; % angle of pencil + pencil_width#:= + pencil_thickness#+ % base or minimum width + (height#+depth#) % vertical pencil dimension + *abs(cosd(90+rotation)/sind(90+rotation)) % * rotation + -pencil_thickness#*abs(cosd(90+rotation)); % - adjustment to thickness + + beginchar(oct"120",pencil_width#,height#,depth#); + z0=(if rotation>0:w- else:0+ fi tip_adjust,0); + pencil(z0,h+d,rotation); + adjust(.2width#,.2width#); + endchar; + +"large pencil"; + rotation:=20; % angle of pencil + pencil_width#:= + pencil_thickness#+ % base or minimum width + (height#+depth#) % vertical pencil dimension + *abs(cosd(90+rotation)/sind(90+rotation)) % * rotation + -pencil_thickness#*abs(cosd(90+rotation)); % - adjustment to thickness + + beginchar(oct"127",pencil_width#,2.8height#,2.8depth#); + z0=(if rotation>0:w- else:0+ fi tip_adjust,0); + pencil(z0,h+d,rotation); + adjust(.2width#,.2width#); + endchar; + + +% ***** return ***** +def return_pen=pencircle scaled line_thickness; enddef; + + +"return"; + beginchar(oct"103",.4width#,.6height#,.6depth#); + save curvature,arrowhead,base_length; + curvature1=angle((h+d),-.25(h+d)); + curvature2=angle(-(h+d),-.25(h+d)); + arrowhead=.2h; % length of arrowhead + pickup return_pen; % the pen used in this char + top lft z1=(0,h); bot lft z3=(0,-d); rt z2=(w,.5[y1,y3]); + p1=z1{dir curvature1}...z2{down}...z3{dir curvature2}; + z4=z3+(arrowhead,0) rotated curvature2; + z5=z3+(arrowhead,0) rotated (curvature2+120); + z6=z3+(arrowhead,0) rotated (curvature2-120); + draw p1; filldraw z4--z5--z6--cycle; + adjust(.3width#,.2width#); + endchar; + + + +% ***** eye ***** +"eye"; + beginchar(oct"105",1.2width#,.75height#,depth#); + save limit; pair limit; % keeps curve bounded + randomseed:=.71; % iris shape + pickup pencil_pen; % the pen used in this char + lft x1=0; x0=x2=x4=.5w; rt x3=w; + bot y2=0; y0=y1=y3=.5h; top y4=h; + limit=if abs(y2-y1)>abs(x2-x1):down else:(0,0) fi; + draw z1{limit}...z2{right}...z3{-limit}-- + z3+(0,eps){-limit}...z4{left}...z1+(0,eps){limit}--cycle; % outer shape + draw z2..(.5[z0,z3])..z4..(.5[z0,z1])..cycle; % "retina" + pickup pencircle; % number and shape of pupil lines can be altered here + for n:=0 step 25 until 360: + draw z0--(z0+(.9abs(y4-y0),0)rotated n); + endfor + for n:=60 step 60 until 360: + draw z0--(z0+(.9abs(y4-y0),0)rotated (n*(uniformdeviate 5))); + endfor + pickup pencircle scaled .10h; + for n:=12 step 30 until 375: + draw z0--(z0+((((uniformdeviate 2)+2)*.15abs(y4-y0)),0)rotated n); + endfor + adjust(.2width#,.2width#); + endchar; + + +% ***** hands ***** +handheight#:=6.5pt#; +handdepth#:=3pt#; + define_pixels(handheight,handdepth); +cuff_width:=.15width; % thickness of the cuff +shirt_width:=.75cuff_width; % thickness of the sleeve +digit:=round(.2handheight); % thickness of the fingers +indent:=.05width; % finger indent increment +knuckles:=2indent; % length of knuckles +finger_tips:=3indent; % length of finger tips + +def handpen=pickup pencircle scaled .2pt; enddef; + +% Makes an open horizontal oval shape; path moves clockwise +vardef finger(expr tip,alength)suffix $= + save x,y,tips; boolean tips; tips=if str$="tips":true else:false fi; + z2=tip; x1=x3=x2 if tips:+finger_tips else:-knuckles fi; x4=x3-alength; + y1=y2+.5digit; y1-y3=digit; y4=y3; + if tips:z4..z3{left}...z2...z1{right} else:z1{right}...z2...z3{left}...z4 fi +enddef; + +% Points used in the hand characters +def hand_points= + y1=y2=h; top y3=top y4=y2-(.05h+1); x1=x5=0; x2=x3=x6=x7=x1+cuff_width;% cuff + y5=y6=0; bot y7=bot y8=y5+(.05h+1); x4=x8=x1a=x3a=x2+shirt_width; + y1a=y3-(.1h); y2a=y3; x2a=.3[x1a,w-3indent]; % wrist + y3a=y1a-.5h; y4a=y7+(.05h+1); y5a=.2[y4a,y2a]; x4a=x5a=.45[x3a,x5d]; + y1b=y3-.5digit; y2b+digit=y3b+2digit=y4b+3digit=y1b; y5b=y4b; % knuckles + x1b+2indent=x2b+indent=x3b=x4b+indent=w; x5b=x3b+2knuckles; + for n:=1 upto 4:y[n]c=y[n]b; endfor % tips + x1c=x2c=x3c=x4c-indent=0[x3d,x3b]; + z3d=(.5[x3a,x3b],-d); z2d=z3d+(.5digit,.3d); z4d=z2d-(digit,0); % up thumb + z1d=(x2d-indent,.5[y2d,y4b-.5digit]); z5d=z1d-(1.5digit,0); + z1e=z5d+(0,.5digit); z2e=(.2[x1e,x3b],y1e); % down thumb + z5e=(.55[x3c,x3b],y3b-.5digit); + z3e=.4[z2e,z5e]+(.55digit,0)rotated(angle(z5e-z2e)-90); + z4e-z3e=whatever*(z5e-z2e); y4e=y4b; + z6e=z3e+(1.1digit,0)rotated(angle(z5e-z2e)+90); z7e=z6e-(.5knuckles,0); + z8e=(1[x3a,x5d],y3b); + enddef; + +def cuff(expr trans)= + p10=z1--z2--z6--z5--cycle; fill p10 transformed trans; % cuff + p11=z3--z4--z8--z7; draw p11 transformed trans; % sleeve + enddef; + +"left thumbs down"; + beginchar(oct"104",1.2*width#,handheight#,handdepth#); + transform t[]; t1=identity shifted (0,-.1h); + handpen hand_points; + cuff(t1); % cuff + p1=z1a{right}...z2a{right}...finger(z1b,2.5indent); % finger + p2=finger(z2b,2.5indent); % finger + p3=finger(z3b,4.5indent); % finger + p4=finger(z4b,2.5indent)... % finger + z1d{down}...z2d{down}...z3d...z4d{up}...z5d{z4a-z3d}...z3a{left};% thumb + for n:=1 upto 4: draw p[n] transformed t1; endfor + adjust(.2width#,.2width#); + endchar; + +"right thumbs down"; + beginchar(oct"144",1.2*width#,handheight#,handdepth#); + transform t[]; + t1=identity reflectedabout ((.5w,0),(.5w,h)) shifted (0,-.1h); + handpen hand_points; + cuff(t1); % cuff + p1=z1a{right}...z2a{right}...finger(z1b,2.5indent); % finger + p2=finger(z2b,2.5indent); % finger + p3=finger(z3b,4.5indent); % finger + p4=finger(z4b,2.5indent)... % finger + z1d{down}...z2d{down}...z3d...z4d{up}...z5d{z4a-z3d}...z3a{left};% thumb + for n:=1 upto 4: draw p[n] transformed t1; endfor + adjust(.2width#,.2width#); + endchar; + +"left thumbs up"; + beginchar(oct"125",1.2*width#,handheight#,handdepth#); + transform t[]; + t1=identity reflectedabout ((0,.5h),(w,.5h)) shifted (0,-.1h); + handpen hand_points; + cuff(t1); % cuff + p1=z1a{right}...z2a{right}...finger(z1b,0)--finger(z1c,0)tips; % finger + p2=finger(z2b,0)--finger(z2c,0)tips; % finger + p3=finger(z3b,0)--finger(z3c,0)tips; % finger + p4=finger(z4c,0)tips--finger(z4b,0){left}... % finger + z1d{down}...z2d{down}...z3d...z4d{up}...z5d{z4a-z3d}...z4a...z5a{up}; + p5=z3a--z4a; % wrist + for n:=1 upto 5: draw p[n] shifted (0,-.07h) transformed t1; endfor + adjust(.2width#,.2width#); + endchar; + +"right thumbs up"; + beginchar(oct"165",1.2*width#,handheight#,handdepth#); + transform t[]; + t1=identity rotatedaround ((.5w,.5h),180) shifted (0,-.1h); + handpen hand_points; + cuff(t1); % cuff + p1=z1a{right}...z2a{right}...finger(z1b,0)--finger(z1c,0)tips; % finger + p2=finger(z2b,0)--finger(z2c,0)tips; % finger + p3=finger(z3b,0)--finger(z3c,0)tips; % finger + p4=finger(z4c,0)tips--finger(z4b,0){left}... % finger + z1d{down}...z2d{down}...z3d...z4d{up}...z5d{z4a-z3d}...z4a...z5a{up}; + p5=z3a--z4a; % wrist + for n:=1 upto 5: draw p[n] shifted (0,-.07h) transformed t1; endfor + adjust(.2width#,.2width#); + endchar; + +"left hand pointing right"; + beginchar(oct"122",1.2*width#,handheight#,handdepth#); + transform t[]; + t1=identity reflectedabout ((0,.5h),(w,.5h)) shifted (0,-.1h); + handpen hand_points; + cuff(t1); % cuff + z1f=(z2e{right}...z3e{z5e-z2e}...z5e{left}...z6e{z2e-z5e}) + intersectionpoint ((0,y4b-.5digit)--(w,y4b-.5digit)); + p1=z1a{right}...z2a{right}...finger(z1b,0)--finger(z1c,0)tips; % finger + p2=finger(z2b,0)--finger(z2c,0)tips; % finger + p3=finger(z3b,0)--finger(z3c,0)tips; % finger + p4=z5e--finger(z5b,0)--z1f; % finger + p5=z3a{right}...z1e{right}...z2e{right}...z3e{z5e-z2e}... + z4e{z5e-z2e}...z5e{left}...z6e{z2e-z5e} & z6e--z7e{dir 120}..z8e; + w:=w+2knuckles; + for n:=1 upto 5: draw p[n] shifted (0,-.07h) transformed t1; endfor + adjust(.2width#,.35width#); + endchar; + +"right hand pointing left"; + beginchar(oct"114",1.2*width#,handheight#,handdepth#); + transform t[]; + t1=identity rotatedaround ((.5w,.5h),180) shifted (0,-.1h); + handpen hand_points; + cuff(t1); % cuff + z1f=(z2e{right}...z3e{z5e-z2e}...z5e{left}...z6e{z2e-z5e}) + intersectionpoint ((0,y4b-.5digit)--(w,y4b-.5digit)); + p1=z1a{right}...z2a{right}...finger(z1b,0)--finger(z1c,0)tips; % finger + p2=finger(z2b,0)--finger(z2c,0)tips; % finger + p3=finger(z3b,0)--finger(z3c,0)tips; % finger + p4=z5e--finger(z5b,0)--z1f; % finger + p5=z3a{right}...z1e{right}...z2e{right}...z3e{z5e-z2e}... + z4e{z5e-z2e}...z5e{left}...z6e{z2e-z5e} & z6e--z7e{dir 120}..z8e; + w:=w+2knuckles; + for n:=1 upto 5: draw p[n] shifted (0,-.07h) transformed t1; endfor + adjust(.35width#,.2width#); + endchar; + +end + diff --git a/Master/texmf-dist/fonts/source/public/dingbat/dingbat.mf b/Master/texmf-dist/fonts/source/public/dingbat/dingbat.mf new file mode 100644 index 00000000000..4aa92c3100c --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/dingbat/dingbat.mf @@ -0,0 +1,693 @@ +% Dingbat characters as of 3-3-89 by Doug Henderson +% To be run with plain.bas. +% Last modified on 3-27-89 + +font_size=10pt#; % make the pxl or pk files be in ...\pixel\pxl1500 + +def clear_all = + clearit; clearxy; +enddef; + +%%% +% turn pt,in,cm etc. into pixel values +%%% + +mode_setup; + +%%% +% define your variables here +%%% +string s[]; +picture p[]; +numeric anchor_scale; +anchor_scale=10; +path the_anchor,ring_of_anchor,tilted_anchor,tilted_ring; +% how much to tilt the anchor +numeric akilter; +akilter:=20; +picture holdit,holdem,flower_x,flower_y; +path collar, thumb, index_finger, the_bird, ring_finger, pinky_finger ; +a#:=12pt#; +b#:=12pt#; +glyph_width#:=10pt#; +glyph_height#:=7pt#; +uniform_square#:=20pt#; +triangle_size#:=12pt#; +check_width#:=10pt#; +check_height#:=10pt#; +check_depth#:=0pt#; +dash#:=2pt#; +%flu_width#:=31pt#; +%flu_height#:=15pt#; +flu_width#:=62pt#; +flu_height#:=30pt#; +anchor_height#:=150pt#/anchor_scale; +anchor_width#:=130pt#/anchor_scale; +anchor_depth#:=0pt#; + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +% Very thin weight stroke for flouron (not advised for < 600dpi) +%thinish#:=.25pt#; +%thinthick#:=.45pt#; +%thickish#:=.75pt#; + +% Normal weight stroke for flouron +thinish#:=.5pt#; +thinthick#:=1pt#; +thickish#:=1.5pt#; + +% Heavy weight stroke for flouron +%thinish#:=1pt#; +%thinthick#:=2pt#; +%thickish#:=2.5pt#; + +% Strokes widths for the flower from 1-12 (= 1 pixel - 4.5pt) +flower_one#:=.25; +flower_two#:=.5; +flower_three#:=.5pt#/1.5; +flower_four#:=.5pt#/1.5; +flower_five#:=1pt#/1.5; +flower_six#:=1.5pt#/1.5; +flower_seven#:=2pt#/1.5; +flower_eight#:=2.5pt#/1.5; +flower_nine#:=3pt#/1.5; +flower_ten#:=3.5pt#/1.5; +flower_eleven#:=4pt#/1.5; +flower_twelve#:=4.5pt#/1.5; +hand_scale=6; +hand_width#:=110pt#/hand_scale; +hand_height#:=80pt#/hand_scale; +hand_depth#:=0pt#; + +%%% +% define your pixels here, do this for each variable defined above +%%% + +define_pixels(glyph_width,glyph_height,uniform_square,triangle_size); +define_pixels(check_width,check_height,check_depth,dash,thinish,thickish); +define_pixels(thinthick,flu_width,flu_height,a,b); +define_pixels(flower_one,flower_two,flower_three,flower_four,flower_five); +define_pixels(flower_six,flower_seven,flower_eight,flower_nine,flower_ten); +define_pixels(flower_eleven,flower_twelve); +define_pixels(hand_width,hand_height,hand_depth,dash); +define_pixels(anchor_height,anchor_weight,anchor_depth); + +%%% +% define a macro which pauses until the user hits the return key +%%% + +def + whoa= s0:= readstring; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% Define all the pens we use +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +pickup pensquare scaled .2pt; +smallpen:=savepen; +pickup pensquare scaled .4pt; +bigpen:=savepen; +pickup pensquare scaled .8pt; +bigger:=savepen; +pickup pencircle scaled .1pt; +razorpen:=savepen; +pickup pencircle scaled 2pt; +bigdotpen:=savepen; +pickup pencircle scaled 1.1pt; +lildotpen:=savepen; +pickup pensquare scaled 1.6pt; +chunkypen:=savepen; +pickup pencircle scaled .35pt; +ringpen:=savepen; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% Let the dingbat characters begin +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +"Anchor for TUG dingbat contest"; +beginchar("O",anchor_width#,anchor_height#,anchor_depth#); + %%% + % x variables + %%% + x1=8/130w; % x1 + x2=6/130w; % x2 + x3=13/130w; % x3 + x4=x25=x26=x31=30/130w; % x4 x25 x26 x31 + x5=x22=60/130w; % x5 + x6=x14=x18=x19=90/130w; % x6 x14 x18 x19 + x27=x28=x45=54/130w; % x27 x28 x45 + x17=x35=x56=66/130w; % x17 x35 x56 + + x7=107/130w; % x7 + x8=114/130w; % x8 + x10=112/130w; % x10 + x12=94/130w; % x12 + x13=99/130w; % x13 + x15=72/130w; % x15 + x16=67/130w; % x16 + x20=70/130w; % x20 + x21=65/130w; % x21 + x23=55/130w; % x23 + x24=50/130w; % x24 + + x29=53/130w; % x29 + x30=48/130w; % x30 + x32=21/130w; % x32 + x33=26/130w; % x33 + + %%% + % y variables + %%% + y1=y10=65/150h; % y1 y10 + y2=y8=43/150h; % y2 y8 + y3=y7=45/150h; % y3 y7 + + y4=y6=25/150h; % y4 y6 + y5=13/150h; % y5 + y21=y23=130/150h; % y21 y23 + y22=136/150h; % y22 + y45=y56=20/150h; % y45 y56 + + y18=y26=y27=y35=118/150h; % y18 y26 y27 y35 + y19=y20=y24=y25=124/150h; % y19 y20 y24 y25 + y17=y28=40/150h; % y17 y28 + y16=y29=36/150h; % y16 y29 + y15=y30=35/150h; % y15 y30 + y14=y31=38/150h; % y14 y31 + y13=y32=50/150h; % y13 y32 + y12=y33=54/150h; % y12 y33 + + %%% + % path assignments + %%% + the_anchor = z25--z26--z27--z28 & z28..z29..z31..z32 & + z32--z33--z1--z2--z3 & z3..z4..z45 & z45--z5--z56 & z56..z6..z7 & + z7--z8--z10--z12--z13 & z13..z14..z16..z17 & + z17--z35--z18--z19--cycle; + ring_of_anchor = z20..z22..z24; + + tilted_anchor = the_anchor rotated akilter; + tilted_ring = ring_of_anchor rotated akilter; + %%% + % draw the character, show how ring meets anchor + %%% + pickup razorpen; + fill the_anchor; + pickup ringpen; + draw ring_of_anchor; + + %%% + % after clearing previous path (upright anchor) fill the tilted path + %%% + %clearit; + %fill tilted_anchor; + %draw tilted_ring; + %showit; + %message"When thru viewing, press Enter to continue"; + %whoa; + + labels(range 1 thru 4,45,5,56,range 6 thru 19); + labels(range 20 thru 33,35); + +endchar; + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +"Hand pointer to the left"; +beginchar("N",hand_width#,hand_height#,hand_depth#); + %%% + % x variables + %%% + x1=9.5/110w; % x1 + x2=15/110w; % x2 + x3=x6=20/110w; % x3 x6 + x4=19/110w; % x4 + x5=x8=16/110w; % x5 x8 + x7=21/110w; % x7 + x9=10.5/110w; % x8 + x10=5/110w; % x10 + x11=42.5/110w; % x11 + x1112=61/110w; % x1112 (a point between 11 and 12) + x12=67/110w; % x12 + x13=x24=70/110w; % x13 x24 + x14=57.5/110w; % x14 + x15=76/110w; % x15 + x16=77/110w; % x16 + x17=58/110w; % x17 + x18=82.5/110w; % x18 + x19=83/110w; % x19 + x20=57/110w; % x20 + x21=94/110w; % x21 + x22=102/110w; % x22 + x23=90/110w; % x23 + x25=43.5/110w; % x25 + x26=62.5/110w; % x26 + x27=75/110w; % x27 + x28=74/110w; % x28 + + %%% + % y variables + %%% + y1=y24=63/80h; % y1 y24 + y2=y25=64/80h; % y2 y25 + y3=63.5/80h; % y3 + y4=59/80h; % y4 + y5=y17=40/80h; % y5 y17 + y6=18/80h; % y6 + y7=13/80h; % y7 + y8=12.5/80h; % y8 + y9=13.5/80h; % y9 + y10=39.5/80h; % y10 + y11=15/80h; % y11 + y1112=17.5/80h; % y1112 (a point between 11 and 12) + y12=20/80h; % y12 + y13=27.5/80h; % y13 + y14=28/80h; % y14 + y15=32/80h; % y15 + y16=39/80h; % y16 + y18=44/80h; % y18 + y19=y21=50/80h; % y19 + y20=51/80h; % y20 + y22=55/80h; % y22 + y23=62/80h; % y23 + y26=71/80h; % y26 + y27=72/80h; % y27 + y28=67/80h; % y28 + + collar=z1..z2..z3 & z3..z4..z5..z6..z7 & z7..z8..z9 & z9..z10..z1; + thumb=z25..z26..z27..z28..z24; + index_finger=z4..z25..z24..z23..z22..z21..z19..z20; + the_bird=z17--z16..z18..z19; + ring_finger=z14--z13..z15..z16; + pinky_finger=z6..z11..z1112 & z1112..z12..z13; + + pickup razorpen; + + draw collar; draw thumb; draw index_finger; + draw the_bird; draw ring_finger; draw pinky_finger; + labels(range 1 thru 11,1112,range 12 thru 28); +endchar; + +"Flowery flouron"; +beginchar("J",flu_width#,flu_height#,0); + % first stroke = x1 thru x8 + x1=.02w; x2=.10w; x3=.23w; x4=.38w; x5=.51w; + x6=.73w; x7=.85w; x8=x14=x19=.98w; + % second stroke = x9 thru x14 + x9=.22w; x10=.17w; x11=.165w; x12=.20w; + x13=.58w; % x14=x8=x19 + % third stroke = x15 thru x19 + x15=.32w; x16=.46w; x17=.65w; x18=.82w; % x19=x8=x14 + % first stroke = y1 thru y8 + y1=.05h; y2=.19h; y3=.26h; y4=.24h; y5=.18h; + y6=.13h; y7=.14h; y8=y14=y19=.19h; + % second stroke = y9 thru y14 + y9=.99h; y10=.92h; y11=.85h; + y12=.71h; y13=.32h; % y14=y8 + % third stroke = y15 thru y19 + y15=.67h; y16=.74h; y17=.71h; y18=.48h; + % pen positions for stroke 1 + penpos1(flower_one,135); penpos2(flower_five,135); penpos3(flower_nine,90); + penpos4(flower_twelve,90); penpos5(flower_ten,67); penpos6(flower_five,85); + penpos7(flower_four,90); penpos8(flower_three,135); + % pen positions for stroke 2 + penpos9(flower_one,135); penpos10(flower_seven,180); + penpos11(flower_eight,180); penpos12(flower_seven,210); + penpos13(flower_six,210); penpos14(flower_three,270); + % pen positions for stroke 3 + penpos15(flower_one,115); penpos16(flower_seven,100); + penpos17(flower_nine,70); penpos18(flower_five,45); + penpos19(flower_three,45); + % now draw our three strokes + penstroke z1e..z2e..z3e..z4e..z5e..z6e..z7e..z8e; + penstroke z9e...z10e...z11e...z12e{dir 315}...z13e...z14e; + penstroke z15e..z16e..z17e..z18e{dir 315}..z19e; + penlabels(range 1 thru 19); + flower_x:=currentpicture; +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +"Right flower"; +beginchar("K",flu_width#,flu_height#,0); + currentpicture:=currentpicture+flower_x; + currentpicture:=currentpicture reflectedabout((.5[0,0],1),(.5[0,0],0)); + currentpicture:=currentpicture shifted (w,0); + flower_y:=currentpicture; +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +"Flipped left flower--matches J"; +beginchar("L",flu_width#,flu_height#,0); + currentpicture:=currentpicture+flower_y; + currentpicture:=currentpicture reflectedabout((0,.5[0,h]),(1,.5[0,h])); +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +"Flipped right flower--matches K"; +beginchar("M",flu_width#,flu_height#,0); + currentpicture:=currentpicture+flower_x; + currentpicture:=currentpicture reflectedabout((0,.5[0,h]),(1,.5[0,h])); +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +"DLA satelite dish"; +beginchar("I",a#,b#,0); + numeric zero; zero=0; + % define the coordinates we will work with here + z1=origin; z2=(a,zero); z3=(a,b/5); z4=(zero,b/5); + x5=3/10(x2-x1); y5=y4=y6; x6=7/10(x2-x1); + x7=4/10(x2-x1); y7=y8=y9=3/10(b); x8=6/10(x2-x1); + x9=x10=1/2(x2-x1); + x11=1/10(x2-x1); y11=9/10(b); x12=3/10(x2-x1); + y12=.53(b); x13=9/10(x2-x1); y13=5/10(b); + y10=4.5/10(b); + + % draw the bottom platform of the dish + pickup pensquare xscaled .5pt yscaled .5pt + filldraw z1--z2--z3--z4--cycle; + % draw the base of the dish, which sits on top of the bottom platform + pickup penrazor; + filldraw z5--z7--z8--z6--cycle; + % draw the arm holding the dish, which sits on the base of the dish + pickup penrazor xscaled .5pt; + draw z9--z10; + % draw the dish now + pickup pencircle xscaled .5pt yscaled .5pt; + draw z11..z12..z13; + % dish mod, complete the dish top +% draw z11--z13; + labels(range 1 thru 13); +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +"Left flouron"; +beginchar("E",flu_width#,flu_height#,0); + pickup pencircle; + x1=.23w; x2=.10w; x3=.05w; x4=.10w; x5=.19w; + x6=.25w; x7=.26w; x8=.20w; x9=.22w; x10=.26w; + x11=.48w; x12=.62w; x13=.71w; x14=.84w; x15=.90w; + x16=.97w; x17=.93w; x18=.84w; + y1=.07h; y2=.07h; y3=.33h; y4=.57h; y5=.65h; + y6=.61h; y7=.53h; y8=.55h; y9=.75h; y10=.80h; + y11=.67h; y12=.56h; y13=.53h; y14=.55h; y15=.60h; + y16=.80h; y17=.92h; y18=.87h; + penpos1(thinish,270); penpos2(thinish,225); + penpos3(thickish,180); penpos4(thinish,135); + penpos5(thinish,90); penpos6(thinish,45); + penpos7(thinish,0); penpos8(thinish,225); + penpos9(thinish,135); penpos10(thinish,90); + penpos11(thinish,45); penpos12(thinish,45); + penpos13(thinish,90); penpos14(thinthick,135); + penpos15(thinthick,135); penpos16(thinthick,180); + penpos17(thinish,225); penpos18(thinish,270); + penstroke z1e..z2e..z3e..z4e..z5e..z6e..z7e..z8e..z9e..z10e..z11e..z12e.. + z13e..z14e..z15e..z16e..z17e..z18e; + penlabels(range 1 thru 18); +holdit:=currentpicture; +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +"Right flouron"; +beginchar("F",flu_width#,flu_height#,0); + currentpicture:=currentpicture+holdit; +% currentpicture:=currentpicture reflectedabout((.5[l,r],1),(.5[l,r],0)); + currentpicture:=currentpicture reflectedabout((.5[0,0],1),(.5[0,0],0)); + currentpicture:=currentpicture shifted (w,0); + holdem:=currentpicture; +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +"Flipped left flouron--matches F"; +beginchar("G",flu_width#,flu_height#,0); + currentpicture:=currentpicture+holdem; + currentpicture:=currentpicture reflectedabout((0,.5[0,h]),(1,.5[0,h])); +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +"Flipped right flouron--matches E"; +beginchar("H",flu_width#,flu_height#,0); + currentpicture:=currentpicture+holdit; + currentpicture:=currentpicture reflectedabout((0,.5[0,h]),(1,.5[0,h])); +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +"Check mark"; +beginchar("D",check_width#,check_height#,check_depth#); + pickup pencircle; + y1=.4h; y2=.15h; y3=.85h; + x1l=0+eps; x2=1/3w; x3=.85w; + penpos1(dash,45); penpos2(dash,90); penpos3(dash,170); + penstroke z1e--z2e--z3e; + penlabels(1,2,3); +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +"Square (filled) with dots border design"; +beginchar("C",triangle_size#,triangle_size#,0); +x1=x3=good.x(1/2triangle_size); +x2=good.x(1/10triangle_size); +x4=good.x(9/10triangle_size); +x5=x6=good.x(3/10triangle_size); +x7=x8=good.x(7/10triangle_size); +x9=x10=good.x(2/10triangle_size); +x12=x11=good.x(8/10triangle_size); + +y1=good.y(1/10triangle_size); +y9=y12=good.y(2/10triangle_size); +y5=y8=good.y(3/10triangle_size); +y2=y4=good.y(1/2triangle_size); +y6=y7=good.y(7/10triangle_size); +y10=y11=good.y(8/10triangle_size); +y3=good.y(9/10triangle_size); + +pickup razorpen; +fill z1..z5..z2 & z2..z6..z3 & z3..z7..z4 & z4..z8..z1..cycle; +pickup bigdotpen; +drawdot z9; drawdot z12; drawdot z10; drawdot z11; + +labels(range 1 thru 12); + +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +"Square (unfilled) with dots border design"; +beginchar("B",triangle_size#,triangle_size#,0); + x1=x3=good.x(1/2triangle_size); + x2=good.x(1/10triangle_size); + x4=good.x(9/10triangle_size); + x5=x6=good.x(3/10triangle_size); + x7=x8=good.x(7/10triangle_size); + x9=x10=good.x(2/10triangle_size); + x12=x11=good.x(8/10triangle_size); + + y1=good.y(1/10triangle_size); + y9=y12=good.y(2/10triangle_size); + y5=y8=good.y(3/10triangle_size); + y2=y4=good.y(1/2triangle_size); + y6=y7=good.y(7/10triangle_size); + y10=y11=good.y(8/10triangle_size); + y3=good.y(9/10triangle_size); + + pickup bigpen; + draw z1..z5..z2; + draw z2..z6..z3; + draw z3..z7..z4; + draw z4..z8..z1; + + pickup bigdotpen; + drawdot z9; drawdot z12; drawdot z10; drawdot z11; + pickup lildotpen; + erase drawdot z9; erase drawdot z12; erase drawdot z10;erase drawdot z11; + + labels(range 1 thru 12); + +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +"Z border design"; +beginchar("Z",glyph_width#,glyph_height#,0); +pickup bigger; +% define our x values for the border design +x1=x6=x7=good.x(glyph_width); +x4=6/8good.x(glyph_width); +x8=2/8good.x(glyph_width); +x2=x3=x5=0; +% design our y values for the border design +y1=y2=0; +y7=y8=1/3good.y(glyph_height); +y3=y4=2/3good.y(glyph_height); +y5=y6=good.y(glyph_height); + +draw z5--z6--z7--z8; +draw z1--z2--z3--z4; +%draw bot z5--z3; +%draw top z1--z7; + +labels(range 1 thru 8); + +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +"S border design"; +beginchar("S",glyph_width#,glyph_height#,0); +pickup bigger; +% define our x values for the border design +x1=x6=x7=0; +x2=x3=x8=good.x(glyph_width); +x4=good.x(2/8glyph_width); +x5=good.x(6/8glyph_width); + +y1=y2=0; +y5=y6=good.y(1/3glyph_height); +y3=y4=good.y(2/3glyph_height); +y7=y8=good.y(glyph_height); + +draw z1--z2--z3--z4; +draw z5--z6--z7--z8; +%draw top z1--z6; +%draw bot z8--z3; +cullit; + +labels(range 1 thru 8); + +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +"Overlapping thick\thin line border design--- character 1 (top-left)"; +beginchar("a",uniform_square#,uniform_square#,0); + +x1=x2=good.x(1/10uniform_square); +x3=x4=good.x(4/10uniform_square); +x5=x8=good.x(uniform_square); +x6=x7=good.x(2/10uniform_square); + +y1=y6=good.y(0); +y2=y3=good.y(6/10uniform_square); +y7=y8=good.y(8/10uniform_square); +y4=y5=good.y(9/10uniform_square); + +pickup chunkypen; +draw z1--z2--z3--z4--z5; +pickup bigpen; +draw z6--z7--z8; +p1:=currentpicture; + +labels(range 1 thru 8); + +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +"Overlapping thick\thin line border design--- character 2 (top-middle)"; +beginchar("b",uniform_square#,uniform_square#,0); + +x1=x3=good.x(0); +x2=x4=good.x(uniform_square); + +y1=y2=good.y(9/10uniform_square); +y3=y4=good.y(8/10uniform_square); + +pickup chunkypen; +draw z1--z2; +pickup bigpen; +draw z3--z4; +p2:=currentpicture; + +labels(1,2,3,4); + +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +"Overlapping thick\thin line border design--- character 3 (top-right)"; +beginchar("c",uniform_square#,uniform_square#,0); + +x1=x6=good.x(0); +x2=x3=good.x(6/10uniform_square); +x7=x8=good.x(8/10uniform_square); +x4=x5=good.x(9/10uniform_square); + +y1=y2=good.y(9/10uniform_square); +y6=y7=good.y(8/10uniform_square); +y3=y4=good.y(6/10uniform_square); +y5=y8=good.y(0); + +pickup chunkypen; +draw z1--z2--z3--z4--z5; +pickup bigpen; +draw z6--z7--z8; +p3:=currentpicture; + +labels(range 1 thru 8); + +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +"Overlapping thick\thin line border design--- character 4 (middle-left)"; +beginchar("d",uniform_square#,uniform_square#,0); + +x1=x2=good.x(1/10uniform_square); +x3=x4=good.x(2/10uniform_square); +y1=y3=good.y(0); +y2=y4=good.y(uniform_square); + +pickup chunkypen; +draw z1--z2; +pickup bigpen; +draw z3--z4; +p4:=currentpicture; + +labels(1,2,3,4); + +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +"Overlapping thick\thin line border design--- character 5 (middle-right)"; +beginchar("e",uniform_square#,uniform_square#,0); +currentpicture:=currentpicture + p4; +currentpicture:=currentpicture reflectedabout((.5[0,w],0),(.5[0,w],1)); +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +"Overlapping thick\thin line border design--- character 6 (bottom-left)"; +beginchar("f",uniform_square#,uniform_square#,0); +currentpicture:=currentpicture + p1; +currentpicture:=currentpicture +reflectedabout((0,.5[0,uniform_square]),(1,.5[0,uniform_square])); +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +"Overlapping thick\thin line border design--- character 7 (bottom-middle)"; +beginchar("g",uniform_square#,uniform_square#,0); +currentpicture:=currentpicture + p2; +currentpicture:=currentpicture +reflectedabout((0,.5[0,uniform_square]),(1,.5[0,uniform_square])); +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +"Overlapping thick\thin line border design--- character 8 (bottom-right)"; +beginchar("h",uniform_square#,uniform_square#,0); +currentpicture:=currentpicture + p3; +currentpicture:=currentpicture +reflectedabout((0,.5[0,uniform_square]),(1,.5[0,uniform_square])); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +bye diff --git a/Master/texmf-dist/fonts/tfm/public/dingbat/ark10.tfm b/Master/texmf-dist/fonts/tfm/public/dingbat/ark10.tfm index a10cce88f38..ac5ef126eff 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/dingbat/ark10.tfm and b/Master/texmf-dist/fonts/tfm/public/dingbat/ark10.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/dingbat/dingbat.tfm b/Master/texmf-dist/fonts/tfm/public/dingbat/dingbat.tfm index 7bcf08e168b..3352c8fa707 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/dingbat/dingbat.tfm and b/Master/texmf-dist/fonts/tfm/public/dingbat/dingbat.tfm differ diff --git a/Master/texmf-dist/source/fonts/dingbat/dingbat.dtx b/Master/texmf-dist/source/fonts/dingbat/dingbat.dtx deleted file mode 100644 index a30fb904004..00000000000 --- a/Master/texmf-dist/source/fonts/dingbat/dingbat.dtx +++ /dev/null @@ -1,329 +0,0 @@ -% \iffalse meta-comment -% -% Copyright (C) 2001 Scott Pakin -% ------------------------------------------------------- -% -% This package may be distributed and/or modified under the -% conditions of the LaTeX Project Public License, either version 1.2 -% of this license or (at your option) any later version. -% The latest version of this license is in -% http://www.latex-project.org/lppl.txt -% and version 1.2 or later is part of all distributions of LaTeX -% version 1999/12/01 or later. -% -% \fi -% \iffalse -%% File: dingbat.dtx Copyright (C) 2001 Scott Pakin -% -%\NeedsTeXFormat{LaTeX2e} -%\ProvidesPackage{dingbat} -% [2001/04/27 v1.00 Hands and other dingbats] -%\ProvidesFile{uark.fd} -% [2001/04/27 v1.00 Font definitions for the ark10 font] -%\ProvidesFile{udingbat.fd} -% [2001/04/27 v1.00 Font definitions for the dingbat font] -% -%<*driver> -\documentclass{ltxdoc} -\usepackage{dingbat} -\usepackage{tabularx} -\EnableCrossrefs -\CodelineIndex - -% Uncomment the following line if you don't want to include a -% source-code listing. -%\OnlyDescription - -\begin{document} -\DocInput{dingbat.dtx} -\end{document} -% -% \fi -% -% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% -% \CheckSum{76} -% \GetFileInfo{dingbat.sty} -% -% \title{The \textsf{dingbat} package\thanks{This file -% has version number \fileversion, last -% revised \filedate.}} -% \author{Scott Pakin\\pakin@uiuc.edu} -% \date{\filedate} -% \maketitle -% -% \changes{v1.00}{2001/04/27}{Initial version} -% -% \DoNotIndex{\newcommand,\selectfont} -% -% \StopEventually{^^A -% \section{Credits} -% -% Just so it's clear who did what, here are the various components of -% the \textsf{dingbat} package and the associated copyright information: -% -% \begin{center} -% \begin{tabularx}{0.9\textwidth}{lX} -% \texttt{ark10.mf} & Copyright (c) 1988 by Arthur M. Keller \\ -% & The ARK font was initially done in MF79 -% by Scott Kim. It was converted to (new) MF by N.N. Billawala -% of Metamarks. \\ -% \texttt{dingbat.dtx} & Copyright (C) 2001 Scott Pakin \\ -% \texttt{dingbat.ins} & Copyright (C) 2001 Scott Pakin \\ -% \texttt{dingbat.mf} & Created 3-3-89 by Doug Henderson \\ -% \texttt{uark.fd} & Copyright (C) 2001 Scott Pakin -% \end{tabularx} -% \end{center} -% -% \PrintIndex -% } -% -% \begin{abstract} -% The \textsf{dingbat} package provides a \LaTeXe\ interface to the -% |ark10.mf| and |dingbat.mf| fonts. -% \end{abstract} -% -% -% \section{Usage} -% -% ^^A Typeset a symbol in one column and its name in the next. -% \def\tblsym#1{#1 & \texttt{\string#1}} -% -% \DescribeMacro{\rightpointright} -% \DescribeMacro{\leftpointright} -% \DescribeMacro{\leftthumbsdown} -% \DescribeMacro{\leftthumbsup} -% \DescribeMacro{\rightpointleft} -% \DescribeMacro{\rightthumbsdown} -% \DescribeMacro{\rightthumbsup} -% The \textsf{dingbat} package defines the following hand gestures: -% -% \begin{center} -% \renewcommand{\arraystretch}{1.2} -% \begin{tabular}{lll} -% \tblsym{\rightpointright} & Right hand pointing to the right \\ -% \tblsym{\leftpointright} & Left hand pointing to the right \\ -% \tblsym{\leftthumbsdown} & Left hand, thumbs down \\ -% \tblsym{\leftthumbsup} & Left hand, thumbs up \\ -% \tblsym{\rightpointleft} & Right hand pointing to the left \\ -% \tblsym{\rightthumbsdown} & Right hand, thumbs down \\ -% \tblsym{\rightthumbsup} & Right hand, thumbs up \\ -% \end{tabular} -% \end{center} -% -% \noindent -% (|\rightpointright| comes from |dingbat.mf|, while the rest come from -% |ark10.mf|, hence, the discrepency in style.) -% -% \DescribeMacro{\squarewithdots} -% \DescribeMacro{\filledsquarewithdots} -% \DescribeMacro{\Sborder} -% \DescribeMacro{\Zborder} -% The following symbols are intended to be used to create fancy borders -% around a box or the entire page. -% -% \begin{center} -% \renewcommand{\arraystretch}{1.2} -% \begin{tabular}{lll} -% \tblsym{\squarewithdots} & Unfilled square with dots \\ -% \tblsym{\filledsquarewithdots} & Filled square with dots \\ -% \tblsym{\Sborder} & \textit{S}-like border design \\ -% \tblsym{\Zborder} & \textit{Z}-like border design \\ -% \end{tabular} -% \end{center} -% -% \noindent -% Note that if you \emph{are} going to create fancy borders, I recommend -% using the \textsf{niceframe} package. \textsf{niceframe} is geared -% to drawing fancy borders and knows specifically about the border -% characters in |dingbat.mf|. The symbols defined by the -% \textsf{dingbat} package, |\squarewithdots|, |\filledsquarewithdots|, -% |\Sborder|, and |\Zborder|, are the only border characters that might -% be useful outside of a border (e.g., in a straight line or as a bullet -% in a fancy itemized list); the other, unnamed, characters defined in -% |dingbat.mf| represent a frame's corners and sides. -% -% \DescribeMacro{\largepencil} -% \DescribeMacro{\anchor} -% \DescribeMacro{\carriagereturn} -% \DescribeMacro{\checkmark} -% \DescribeMacro{\eye} -% \DescribeMacro{\satellitedish} -% \DescribeMacro{\smallpencil} -% The following \textsf{dingbat} symbols don't fit into either of the -% previous categories: -% -% \begin{center} -% \renewcommand{\arraystretch}{1.2} -% \begin{tabular}{lll} -% \tblsym{\largepencil} & Large pencil \\ -% \tblsym{\anchor} & Anchor \\ -% \tblsym{\carriagereturn} & Carriage return \\ -% \tblsym{\checkmark} & Check mark \\ -% \tblsym{\eye} & Eye \\ -% \tblsym{\satellitedish} & DLA satellite dish \\ -% \tblsym{\smallpencil} & Small pencil \\ -% \end{tabular} -% \end{center} -% -% For some of these symbols, most notably |\largepencil|, the font -% metrics seem to be a bit off. As a result, the symbols tend to jut -% into previous or subsequent lines. -% -% -% \section{Implementation} -% -% There's nothing particularly interesting about the implementation. -% Section~\ref{sec:symbol-commands} defines the symbol commands that -% make up |dingbat.sty|, and Section~\ref{sec:font-definitions} creates -% the |uark.fd| and |udingbat.fd| font definition files, which \LaTeX\ -% loads when |dingbat.sty| selects font encoding~|U| and font family -% |ark| or |dingbat|. -% -% \subsection{Symbol commands} -% \label{sec:symbol-commands} -% -% \begin{macrocode} -%<*package> -% \end{macrocode} -% -% \begin{macro}{\arkfamily} -% \begin{macro}{\ark@sym} -% Define a macro, |\arkfamily|, which switches the font to |ark| and -% another macro, |\ark@sym| which typesets a symbol in the |ark| font. -% \begin{macrocode} -\newcommand{\arkfamily}{\fontencoding{U}\fontfamily{ark}\selectfont} -\newcommand{\ark@sym}[1]{{\arkfamily\symbol{#1}}} -% \end{macrocode} -% \end{macro} -% \end{macro} -% -% \begin{macro}{\carriagereturn} -% \begin{macro}{\leftthumbsdown} -% \begin{macro}{\eye} -% \begin{macro}{\rightpointleft} -% \begin{macro}{\smallpencil} -% \begin{macro}{\leftpointright} -% \begin{macro}{\leftthumbsup} -% \begin{macro}{\largepencil} -% \begin{macro}{\rightthumbsdown} -% \begin{macro}{\rightthumbsup} -% There are only ten symbols in the |ark| font. We define names -% individually for each of them. Note that |\largepencil|'s bounding box -% is a little too short, so |\largepencil| may jut into the previous line -% of text. I think some of the other bounding boxes may be the wrong -% size, as well, but I haven't yet tested that carefully. -% \begin{macrocode} -\newcommand{\carriagereturn}{\ark@sym{'103}} -\newcommand{\leftthumbsdown}{\ark@sym{'104}} -\newcommand{\eye}{\ark@sym{'105}} -\newcommand{\rightpointleft}{\ark@sym{'114}} -\newcommand{\smallpencil}{\ark@sym{'120}} -\newcommand{\leftpointright}{\ark@sym{'122}} -\newcommand{\leftthumbsup}{\ark@sym{'125}} -\newcommand{\largepencil}{\ark@sym{'127}} -\newcommand{\rightthumbsdown}{\ark@sym{'144}} -\newcommand{\rightthumbsup}{\ark@sym{'165}} -% \end{macrocode} -% \end{macro} -% \end{macro} -% \end{macro} -% \end{macro} -% \end{macro} -% \end{macro} -% \end{macro} -% \end{macro} -% \end{macro} -% \end{macro} -% -% \begin{macro}{\dingbatfamily} -% \begin{macro}{\dingbat@sym} -% Define a macro, |\dingbatfamily|, which switches the font to |dingbat| -% and another macro, |\dingbat@sym| which typesets a symbol in the -% |dingbat| font. -% \begin{macrocode} -\newcommand{\dingbatfamily}{\fontencoding{U}\fontfamily{dingbat}\selectfont} -\newcommand{\dingbat@sym}[1]{{\dingbatfamily\symbol{#1}}} -% \end{macrocode} -% \end{macro} -% \end{macro} -% -% \begin{macro}{\checkmark} -% \begin{macro}{\satellitedish} -% \begin{macro}{\rightpointright} -% \begin{macro}{\anchor} -% The following are definitions for all the non-border characters in -% |dingbat.mf|. -% \begin{macrocode} -\newcommand{\checkmark}{\dingbat@sym{'104}} -\newcommand{\satellitedish}{\dingbat@sym{'111}} -\newcommand{\rightpointright}{\dingbat@sym{'116}} -\newcommand{\anchor}{\dingbat@sym{'117}} -% \end{macrocode} -% \end{macro} -% \end{macro} -% \end{macro} -% \end{macro} -% -% \begin{macro}{\squarewithdots} -% \begin{macro}{\filledsquarewithdots} -% \begin{macro}{\Sborder} -% \begin{macro}{\Zborder} -% The following are the border characters. There are many more, but I -% haven't yet made up \LaTeX\ names for them. -% \begin{macrocode} -\newcommand{\squarewithdots}{\dingbat@sym{'102}} -\newcommand{\filledsquarewithdots}{\dingbat@sym{'103}} -\newcommand{\Sborder}{\dingbat@sym{'123}} -\newcommand{\Zborder}{\dingbat@sym{'132}} -% \end{macrocode} -% \end{macro} -% \end{macro} -% \end{macro} -% \end{macro} -% -% \begin{macrocode} -% -% \end{macrocode} -% -% \subsection{Font definition files} -% \label{sec:font-definitions} -% -% \subsubsection{\ttfamily uark.fd} -% -% All we do here is define |ark| as a symbol font (|U|~encoding) and tell -% \LaTeX\ to scale |ark10.mf| to whatever font size is requested. -% -% \begin{macrocode} -%<*uarkfd> -% \end{macrocode} -% -% \begin{macrocode} -\DeclareFontFamily{U}{ark}{} -\DeclareFontShape{U}{ark}{m}{n}{<-> ark10}{} -% \end{macrocode} -% -% \begin{macrocode} -% -% \end{macrocode} -% -% \subsubsection{\ttfamily udingbat.fd} -% -% Similarly, we define |dingbat| as another, |U|-encoded symbol font and -% instruct \LaTeX\ to scale |dingbat.mf| to whatever font size is requested. -% -% \begin{macrocode} -%<*udingbatfd> -% \end{macrocode} -% -% \begin{macrocode} -\DeclareFontFamily{U}{dingbat}{} -\DeclareFontShape{U}{dingbat}{m}{n}{<-> dingbat}{} -% \end{macrocode} -% -% \begin{macrocode} -% -% \end{macrocode} -% -% \Finale -% diff --git a/Master/texmf-dist/source/fonts/dingbat/dingbat.ins b/Master/texmf-dist/source/fonts/dingbat/dingbat.ins deleted file mode 100644 index c181a574212..00000000000 --- a/Master/texmf-dist/source/fonts/dingbat/dingbat.ins +++ /dev/null @@ -1,58 +0,0 @@ -%% -%% This file will generate fast loadable files and documentation -%% driver files from the doc files in this package when run through -%% LaTeX or TeX. -%% -%% Copyright (C) 2001 Scott Pakin -%% ------------------------------------------------------- -%% -%% This package may be distributed and/or modified under the -%% conditions of the LaTeX Project Public License, either version 1.2 -%% of this license or (at your option) any later version. -%% The latest version of this license is in -%% http://www.latex-project.org/lppl.txt -%% and version 1.2 or later is part of all distributions of LaTeX -%% version 1999/12/01 or later. -%% -%% --------------- start of docstrip commands ------------------ -%% -\input docstrip - -\keepsilent - -\usedir{tex/latex/dingbat} - -\preamble - -This is a generated file. - -Copyright (C) 2001 Scott Pakin -------------------------------------------------------- - -This package may be distributed and/or modified under the -conditions of the LaTeX Project Public License, either version 1.2 -of this license or (at your option) any later version. -The latest version of this license is in - http://www.latex-project.org/lppl.txt -and version 1.2 or later is part of all distributions of LaTeX -version 1999/12/01 or later. - -\endpreamble - -\generate{\file{dingbat.sty}{\from{dingbat.dtx}{package}}} -\generate{\file{uark.fd}{\from{dingbat.dtx}{uarkfd}}} -\generate{\file{udingbat.fd}{\from{dingbat.dtx}{udingbatfd}}} - -\Msg{***********************************************************} -\Msg{*} -\Msg{* To finish the installation, you have to move} -\Msg{* dingbat.sty, uark.fd, ark10.mf, and dingbat.mf into} -\Msg{* directories searched by TeX.} -\Msg{*} -\Msg{* To produce the documentation, run dingbat.dtx} -\Msg{* through LaTeX.} -\Msg{*} -\Msg{* Happy TeXing!} -\Msg{***********************************************************} - -\endbatchfile diff --git a/Master/texmf-dist/source/latex/dingbat/dingbat.dtx b/Master/texmf-dist/source/latex/dingbat/dingbat.dtx new file mode 100644 index 00000000000..a30fb904004 --- /dev/null +++ b/Master/texmf-dist/source/latex/dingbat/dingbat.dtx @@ -0,0 +1,329 @@ +% \iffalse meta-comment +% +% Copyright (C) 2001 Scott Pakin +% ------------------------------------------------------- +% +% This package may be distributed and/or modified under the +% conditions of the LaTeX Project Public License, either version 1.2 +% of this license or (at your option) any later version. +% The latest version of this license is in +% http://www.latex-project.org/lppl.txt +% and version 1.2 or later is part of all distributions of LaTeX +% version 1999/12/01 or later. +% +% \fi +% \iffalse +%% File: dingbat.dtx Copyright (C) 2001 Scott Pakin +% +%\NeedsTeXFormat{LaTeX2e} +%\ProvidesPackage{dingbat} +% [2001/04/27 v1.00 Hands and other dingbats] +%\ProvidesFile{uark.fd} +% [2001/04/27 v1.00 Font definitions for the ark10 font] +%\ProvidesFile{udingbat.fd} +% [2001/04/27 v1.00 Font definitions for the dingbat font] +% +%<*driver> +\documentclass{ltxdoc} +\usepackage{dingbat} +\usepackage{tabularx} +\EnableCrossrefs +\CodelineIndex + +% Uncomment the following line if you don't want to include a +% source-code listing. +%\OnlyDescription + +\begin{document} +\DocInput{dingbat.dtx} +\end{document} +% +% \fi +% +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +% \CheckSum{76} +% \GetFileInfo{dingbat.sty} +% +% \title{The \textsf{dingbat} package\thanks{This file +% has version number \fileversion, last +% revised \filedate.}} +% \author{Scott Pakin\\pakin@uiuc.edu} +% \date{\filedate} +% \maketitle +% +% \changes{v1.00}{2001/04/27}{Initial version} +% +% \DoNotIndex{\newcommand,\selectfont} +% +% \StopEventually{^^A +% \section{Credits} +% +% Just so it's clear who did what, here are the various components of +% the \textsf{dingbat} package and the associated copyright information: +% +% \begin{center} +% \begin{tabularx}{0.9\textwidth}{lX} +% \texttt{ark10.mf} & Copyright (c) 1988 by Arthur M. Keller \\ +% & The ARK font was initially done in MF79 +% by Scott Kim. It was converted to (new) MF by N.N. Billawala +% of Metamarks. \\ +% \texttt{dingbat.dtx} & Copyright (C) 2001 Scott Pakin \\ +% \texttt{dingbat.ins} & Copyright (C) 2001 Scott Pakin \\ +% \texttt{dingbat.mf} & Created 3-3-89 by Doug Henderson \\ +% \texttt{uark.fd} & Copyright (C) 2001 Scott Pakin +% \end{tabularx} +% \end{center} +% +% \PrintIndex +% } +% +% \begin{abstract} +% The \textsf{dingbat} package provides a \LaTeXe\ interface to the +% |ark10.mf| and |dingbat.mf| fonts. +% \end{abstract} +% +% +% \section{Usage} +% +% ^^A Typeset a symbol in one column and its name in the next. +% \def\tblsym#1{#1 & \texttt{\string#1}} +% +% \DescribeMacro{\rightpointright} +% \DescribeMacro{\leftpointright} +% \DescribeMacro{\leftthumbsdown} +% \DescribeMacro{\leftthumbsup} +% \DescribeMacro{\rightpointleft} +% \DescribeMacro{\rightthumbsdown} +% \DescribeMacro{\rightthumbsup} +% The \textsf{dingbat} package defines the following hand gestures: +% +% \begin{center} +% \renewcommand{\arraystretch}{1.2} +% \begin{tabular}{lll} +% \tblsym{\rightpointright} & Right hand pointing to the right \\ +% \tblsym{\leftpointright} & Left hand pointing to the right \\ +% \tblsym{\leftthumbsdown} & Left hand, thumbs down \\ +% \tblsym{\leftthumbsup} & Left hand, thumbs up \\ +% \tblsym{\rightpointleft} & Right hand pointing to the left \\ +% \tblsym{\rightthumbsdown} & Right hand, thumbs down \\ +% \tblsym{\rightthumbsup} & Right hand, thumbs up \\ +% \end{tabular} +% \end{center} +% +% \noindent +% (|\rightpointright| comes from |dingbat.mf|, while the rest come from +% |ark10.mf|, hence, the discrepency in style.) +% +% \DescribeMacro{\squarewithdots} +% \DescribeMacro{\filledsquarewithdots} +% \DescribeMacro{\Sborder} +% \DescribeMacro{\Zborder} +% The following symbols are intended to be used to create fancy borders +% around a box or the entire page. +% +% \begin{center} +% \renewcommand{\arraystretch}{1.2} +% \begin{tabular}{lll} +% \tblsym{\squarewithdots} & Unfilled square with dots \\ +% \tblsym{\filledsquarewithdots} & Filled square with dots \\ +% \tblsym{\Sborder} & \textit{S}-like border design \\ +% \tblsym{\Zborder} & \textit{Z}-like border design \\ +% \end{tabular} +% \end{center} +% +% \noindent +% Note that if you \emph{are} going to create fancy borders, I recommend +% using the \textsf{niceframe} package. \textsf{niceframe} is geared +% to drawing fancy borders and knows specifically about the border +% characters in |dingbat.mf|. The symbols defined by the +% \textsf{dingbat} package, |\squarewithdots|, |\filledsquarewithdots|, +% |\Sborder|, and |\Zborder|, are the only border characters that might +% be useful outside of a border (e.g., in a straight line or as a bullet +% in a fancy itemized list); the other, unnamed, characters defined in +% |dingbat.mf| represent a frame's corners and sides. +% +% \DescribeMacro{\largepencil} +% \DescribeMacro{\anchor} +% \DescribeMacro{\carriagereturn} +% \DescribeMacro{\checkmark} +% \DescribeMacro{\eye} +% \DescribeMacro{\satellitedish} +% \DescribeMacro{\smallpencil} +% The following \textsf{dingbat} symbols don't fit into either of the +% previous categories: +% +% \begin{center} +% \renewcommand{\arraystretch}{1.2} +% \begin{tabular}{lll} +% \tblsym{\largepencil} & Large pencil \\ +% \tblsym{\anchor} & Anchor \\ +% \tblsym{\carriagereturn} & Carriage return \\ +% \tblsym{\checkmark} & Check mark \\ +% \tblsym{\eye} & Eye \\ +% \tblsym{\satellitedish} & DLA satellite dish \\ +% \tblsym{\smallpencil} & Small pencil \\ +% \end{tabular} +% \end{center} +% +% For some of these symbols, most notably |\largepencil|, the font +% metrics seem to be a bit off. As a result, the symbols tend to jut +% into previous or subsequent lines. +% +% +% \section{Implementation} +% +% There's nothing particularly interesting about the implementation. +% Section~\ref{sec:symbol-commands} defines the symbol commands that +% make up |dingbat.sty|, and Section~\ref{sec:font-definitions} creates +% the |uark.fd| and |udingbat.fd| font definition files, which \LaTeX\ +% loads when |dingbat.sty| selects font encoding~|U| and font family +% |ark| or |dingbat|. +% +% \subsection{Symbol commands} +% \label{sec:symbol-commands} +% +% \begin{macrocode} +%<*package> +% \end{macrocode} +% +% \begin{macro}{\arkfamily} +% \begin{macro}{\ark@sym} +% Define a macro, |\arkfamily|, which switches the font to |ark| and +% another macro, |\ark@sym| which typesets a symbol in the |ark| font. +% \begin{macrocode} +\newcommand{\arkfamily}{\fontencoding{U}\fontfamily{ark}\selectfont} +\newcommand{\ark@sym}[1]{{\arkfamily\symbol{#1}}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\carriagereturn} +% \begin{macro}{\leftthumbsdown} +% \begin{macro}{\eye} +% \begin{macro}{\rightpointleft} +% \begin{macro}{\smallpencil} +% \begin{macro}{\leftpointright} +% \begin{macro}{\leftthumbsup} +% \begin{macro}{\largepencil} +% \begin{macro}{\rightthumbsdown} +% \begin{macro}{\rightthumbsup} +% There are only ten symbols in the |ark| font. We define names +% individually for each of them. Note that |\largepencil|'s bounding box +% is a little too short, so |\largepencil| may jut into the previous line +% of text. I think some of the other bounding boxes may be the wrong +% size, as well, but I haven't yet tested that carefully. +% \begin{macrocode} +\newcommand{\carriagereturn}{\ark@sym{'103}} +\newcommand{\leftthumbsdown}{\ark@sym{'104}} +\newcommand{\eye}{\ark@sym{'105}} +\newcommand{\rightpointleft}{\ark@sym{'114}} +\newcommand{\smallpencil}{\ark@sym{'120}} +\newcommand{\leftpointright}{\ark@sym{'122}} +\newcommand{\leftthumbsup}{\ark@sym{'125}} +\newcommand{\largepencil}{\ark@sym{'127}} +\newcommand{\rightthumbsdown}{\ark@sym{'144}} +\newcommand{\rightthumbsup}{\ark@sym{'165}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\dingbatfamily} +% \begin{macro}{\dingbat@sym} +% Define a macro, |\dingbatfamily|, which switches the font to |dingbat| +% and another macro, |\dingbat@sym| which typesets a symbol in the +% |dingbat| font. +% \begin{macrocode} +\newcommand{\dingbatfamily}{\fontencoding{U}\fontfamily{dingbat}\selectfont} +\newcommand{\dingbat@sym}[1]{{\dingbatfamily\symbol{#1}}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\checkmark} +% \begin{macro}{\satellitedish} +% \begin{macro}{\rightpointright} +% \begin{macro}{\anchor} +% The following are definitions for all the non-border characters in +% |dingbat.mf|. +% \begin{macrocode} +\newcommand{\checkmark}{\dingbat@sym{'104}} +\newcommand{\satellitedish}{\dingbat@sym{'111}} +\newcommand{\rightpointright}{\dingbat@sym{'116}} +\newcommand{\anchor}{\dingbat@sym{'117}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\squarewithdots} +% \begin{macro}{\filledsquarewithdots} +% \begin{macro}{\Sborder} +% \begin{macro}{\Zborder} +% The following are the border characters. There are many more, but I +% haven't yet made up \LaTeX\ names for them. +% \begin{macrocode} +\newcommand{\squarewithdots}{\dingbat@sym{'102}} +\newcommand{\filledsquarewithdots}{\dingbat@sym{'103}} +\newcommand{\Sborder}{\dingbat@sym{'123}} +\newcommand{\Zborder}{\dingbat@sym{'132}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{macrocode} +% +% \end{macrocode} +% +% \subsection{Font definition files} +% \label{sec:font-definitions} +% +% \subsubsection{\ttfamily uark.fd} +% +% All we do here is define |ark| as a symbol font (|U|~encoding) and tell +% \LaTeX\ to scale |ark10.mf| to whatever font size is requested. +% +% \begin{macrocode} +%<*uarkfd> +% \end{macrocode} +% +% \begin{macrocode} +\DeclareFontFamily{U}{ark}{} +\DeclareFontShape{U}{ark}{m}{n}{<-> ark10}{} +% \end{macrocode} +% +% \begin{macrocode} +% +% \end{macrocode} +% +% \subsubsection{\ttfamily udingbat.fd} +% +% Similarly, we define |dingbat| as another, |U|-encoded symbol font and +% instruct \LaTeX\ to scale |dingbat.mf| to whatever font size is requested. +% +% \begin{macrocode} +%<*udingbatfd> +% \end{macrocode} +% +% \begin{macrocode} +\DeclareFontFamily{U}{dingbat}{} +\DeclareFontShape{U}{dingbat}{m}{n}{<-> dingbat}{} +% \end{macrocode} +% +% \begin{macrocode} +% +% \end{macrocode} +% +% \Finale +% diff --git a/Master/texmf-dist/source/latex/dingbat/dingbat.ins b/Master/texmf-dist/source/latex/dingbat/dingbat.ins new file mode 100644 index 00000000000..c181a574212 --- /dev/null +++ b/Master/texmf-dist/source/latex/dingbat/dingbat.ins @@ -0,0 +1,58 @@ +%% +%% This file will generate fast loadable files and documentation +%% driver files from the doc files in this package when run through +%% LaTeX or TeX. +%% +%% Copyright (C) 2001 Scott Pakin +%% ------------------------------------------------------- +%% +%% This package may be distributed and/or modified under the +%% conditions of the LaTeX Project Public License, either version 1.2 +%% of this license or (at your option) any later version. +%% The latest version of this license is in +%% http://www.latex-project.org/lppl.txt +%% and version 1.2 or later is part of all distributions of LaTeX +%% version 1999/12/01 or later. +%% +%% --------------- start of docstrip commands ------------------ +%% +\input docstrip + +\keepsilent + +\usedir{tex/latex/dingbat} + +\preamble + +This is a generated file. + +Copyright (C) 2001 Scott Pakin +------------------------------------------------------- + +This package may be distributed and/or modified under the +conditions of the LaTeX Project Public License, either version 1.2 +of this license or (at your option) any later version. +The latest version of this license is in + http://www.latex-project.org/lppl.txt +and version 1.2 or later is part of all distributions of LaTeX +version 1999/12/01 or later. + +\endpreamble + +\generate{\file{dingbat.sty}{\from{dingbat.dtx}{package}}} +\generate{\file{uark.fd}{\from{dingbat.dtx}{uarkfd}}} +\generate{\file{udingbat.fd}{\from{dingbat.dtx}{udingbatfd}}} + +\Msg{***********************************************************} +\Msg{*} +\Msg{* To finish the installation, you have to move} +\Msg{* dingbat.sty, uark.fd, ark10.mf, and dingbat.mf into} +\Msg{* directories searched by TeX.} +\Msg{*} +\Msg{* To produce the documentation, run dingbat.dtx} +\Msg{* through LaTeX.} +\Msg{*} +\Msg{* Happy TeXing!} +\Msg{***********************************************************} + +\endbatchfile -- cgit v1.2.3