Commit 423cc2b3 authored by Peter Billam's avatar Peter Billam

tentatively add scale_show and rotate_scale_show

parent 53ad0229
......@@ -148,7 +148,32 @@ when he was in London studying this piece with Ilona Kabos \
and later with Louis Kentnerlongword.) def
/width xmax 0.85 mul def
xmax width sub 0.5 mul ymax 0.40 mul longstring width JustifyText
showpage
%%Page: 4 4
%%BeginPageSetup
<</PageSize [ 842 1190 ] >> setpagedevice % A3
%%EndPageSetup
/xmax currentpagedevice (PageSize) get 0 get def
/ymax currentpagedevice (PageSize) get 1 get def
/Times-Roman 60 selectfont
50 100 3.0 14.0 (Hello) scale_show
50 40 4.0 0.5 (Hello) scale_show
xmax 0.85 mul 100 0.5 2.0 (Hello) scale_show
xmax 0.65 mul ymax .60 mul 0.7 4.0 (scale show) scale_show
showpage
%%Page: 5 5
%%BeginPageSetup
<</PageSize [ 842 1190 ] >> setpagedevice % A3
%%EndPageSetup
/xmax currentpagedevice (PageSize) get 0 get def
/ymax currentpagedevice (PageSize) get 1 get def
/Times-Roman 60 selectfont
90 100 10 3.0 12.0 (Hello) rotate_scale_show
50 60 -5 3.0 0.5 (Hello) rotate_scale_show
xmax 0.80 mul 80 -20 0.5 2.0 (Hello) rotate_scale_show
xmax 0.52 mul ymax .70 mul -20 0.63 4.0 (rotate scale show) rotate_scale_show
showpage
%%EOF
......@@ -282,6 +282,24 @@ end
end
} def
% 20181119
/scale_show { % x y xscale yscale (hello world) scale_show
10 dict begin
[ /str /yscale /xscale ] { exch def } forall % x y are left on the stack
gsave
translate xscale yscale scale 0 0 moveto str show
grestore
end
} def
/rotate_scale_show { % x y angle xscale yscale (hello) rotate_scale_show
10 dict begin
[ /str /yscale /xscale /angle ] { exch def } forall % x y are on the stack
gsave
translate angle rotate xscale yscale scale 0 0 moveto str show
grestore
end
} def
% all the following are taken from muscript -p or muscript.ps
/rightshow where { pop } { % might also be set by muscript.ps ...
/rightshow { % usage: x y font fontsize (string) rightshow
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment