Commit ff10fa24 authored by Peter Billam's avatar Peter Billam

using Parisian font with custom placement

parent 266ca535
%!PS-Adobe-2.0
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% This Postscript is Copyright (c) 2018, Peter J Billam %
% Permission is granted to any individual or institution to use, copy, %
% modify or redistribute this software, so long as it is not resold for %
% profit, and provided this notice is retained. It is provided "as is", %
% without any express or implied warranty. http://www.pjb.com.au %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%EndComments
%%BeginProlog
(/home/pjb/ps/lib/colours.ps) run
%%EndProlog
%%Page: 1 1
%%BeginPageSetup
%%EndPageSetup
/xmax currentpagedevice (PageSize) get 0 get def
/ymax currentpagedevice (PageSize) get 1 get def
%%Page: 8 8
%%BeginPageSetup
%%EndPageSetup
(/home/pjb/ps/lib/fonts.ps) run
/ymax currentpagedevice (PageSize) get 0 get def
/xmax currentpagedevice (PageSize) get 1 get def
ymax 0 translate 90 rotate
darkred setrgbcolor 0 0 xmax ymax rectfill
/take2 { % x y fs take2
10 dict begin
[ /fs /y /x ] { exch def } forall
/Parisian fs 0.78 mul selectfont
x y fs .13 mul add moveto (P) show
/Parisian fs 0.99 mul selectfont
x fs 0.177 mul add y fs 0.01 mul add moveto (J) show
/Parisian fs selectfont
x fs 0.527 mul add y moveto (B) show
end
} def
darkorange setrgbcolor
xmax 0.02 mul ymax 0.05 mul ymax 1.25 mul take2
/Bitfont5x7 xmax 0.015 mul selectfont
black setrgbcolor
xmax 0.02 mul ymax 0.02 mul moveto (pjb.com.au) show
showpage
%%EOF
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