summaryrefslogtreecommitdiff
path: root/usergrps/uktug/baskervi/5_3/minion.eps
diff options
context:
space:
mode:
Diffstat (limited to 'usergrps/uktug/baskervi/5_3/minion.eps')
-rw-r--r--usergrps/uktug/baskervi/5_3/minion.eps43
1 files changed, 43 insertions, 0 deletions
diff --git a/usergrps/uktug/baskervi/5_3/minion.eps b/usergrps/uktug/baskervi/5_3/minion.eps
new file mode 100644
index 0000000000..f2adb0cc4d
--- /dev/null
+++ b/usergrps/uktug/baskervi/5_3/minion.eps
@@ -0,0 +1,43 @@
+%! Showfonti.ps
+%%BoundingBox: 24 15 350 192
+%%Title: (Print a series of words going along two axes)
+%%Creator: Michel Goossens CERN CN/ASD
+%%CreationDate: Feb. 15th 1994
+%%DocumentNeededResources: font(s) defined by user
+%%EndComments
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% MAIN ROUTINE %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+/y 170 def
+/x 25 def
+
+[6 8 11 18 40 72]% loop on optical size>>>>>>>>>>>>>+
+ { % v
+ x y moveto % go to new coordinate v
+ /Si exch def % Size from forall loop<<+
+ /MM /MinionMM findfont dup begin [
+ 400 500 Si NormalizeDesignVector ConvertDesignVector
+ ] end makeblendedfont definefont 20 scalefont setfont
+ (Hxkp) show
+ /x x 55 add def % calculate x
+ } forall
+
+450 30 600 % outer loop on width>>>>>>>>>>>>>+
+ { % v
+ /x 25 def % reset x v
+ /y y 25 sub def % calculate y v
+ /Wi exch def % width from for loop<<+
+ 360 50 610 % inner loop on weight>>>>>>>>>>>>+
+ { % v
+ x y moveto % go to new coordinate v
+ /We exch def % weight from for loop<<+
+ /MM /MinionMM findfont dup begin [
+ We Wi 72 NormalizeDesignVector ConvertDesignVector
+ ] end makeblendedfont definefont 20 scalefont setfont
+ (Hxkp) show
+ /x x 55 add def % calculate x
+ } for
+ } for
+showpage
+%%EOF