summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts
diff options
context:
space:
mode:
authorManuel Pégourié-Gonnard <mpg@elzevir.fr>2008-06-10 19:33:36 +0000
committerManuel Pégourié-Gonnard <mpg@elzevir.fr>2008-06-10 19:33:36 +0000
commite0859446925f30188ce458627f14e0924cad07df (patch)
tree825cb960eff217e5ace48b5d46a73755bcdf25d3 /Master/texmf-dist/fonts
parent02ad4921ca1ed9c63946c2f1a1fc9cf80313c8ed (diff)
dingbat update 10Jun08
git-svn-id: svn://tug.org/texlive/trunk@8661 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/fonts')
-rw-r--r--Master/texmf-dist/fonts/source/public/dingbat/ark10.mf320
-rw-r--r--Master/texmf-dist/fonts/source/public/dingbat/dingbat.mf693
2 files changed, 0 insertions, 1013 deletions
diff --git a/Master/texmf-dist/fonts/source/public/dingbat/ark10.mf b/Master/texmf-dist/fonts/source/public/dingbat/ark10.mf
deleted file mode 100644
index 751a17cd8f8..00000000000
--- a/Master/texmf-dist/fonts/source/public/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/fonts/source/public/dingbat/dingbat.mf b/Master/texmf-dist/fonts/source/public/dingbat/dingbat.mf
deleted file mode 100644
index cc4c96c6a01..00000000000
--- a/Master/texmf-dist/fonts/source/public/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,0],0),(.5[0,0],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