Commit 71e8fe0e authored by Peter Billam's avatar Peter Billam

add googoogajoob_1

parent b840f2b9
......@@ -45,6 +45,7 @@ dev : \
pdf/parisian_pjb.pdf ${JPG}/parisian_pjb.jpg \
pdf/long_game.pdf ${JPG}/long_game.jpg \
pdf/long_game_2.pdf ${JPG}/long_game_2.jpg \
pdf/googoogajoob_1.pdf ${JPG}/googoogajoob_1.jpg \
pdf/flames_1.pdf : flames_1.ps
......@@ -390,6 +391,14 @@ ${JPG}/long_game_2.jpg : long_game_2.ps
| /usr/bin/gs -q -sDEVICE=jpeg -r210 -sOutputFile=$@ -
/home/pbin/ls2html -d ${JPG} -i -p > /dev/null
pdf/googoogajoob_1.pdf : googoogajoob_1.ps
cat googoogajoob_1.ps \
| /usr/bin/gs -q -sDEVICE=pdfwrite -sOutputFile=$@ -
${JPG}/googoogajoob_1.jpg : googoogajoob_1.ps
cat googoogajoob_1.ps \
| /usr/bin/gs -q -sDEVICE=jpeg -r210 -sOutputFile=$@ -
/home/pbin/ls2html -d ${JPG} -i -p > /dev/null
/home/pjb/www/comp/free/ooo_pjb_com_au_card.ps : ooo_pjb_com_au_card.ps
/home/pbin/include_run ooo_pjb_com_au_card.ps > $@
......
%!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
(/home/pjb/ps/lib/text.ps) run
(/home/pjb/ps/lib/fonts.ps) run
%%EndProlog
%%Page: 1 1
%%BeginPageSetup
%%EndPageSetup
/xmax currentpagedevice (PageSize) get 0 get def
/ymax currentpagedevice (PageSize) get 1 get def
% see ~/video/art/2006_Sackner-Sara_Concrete2.flv at 06:30
/eye { % x y width eye
5 dict begin
[ /width /y /x ] { exch def } forall
/leftx x width 0.5 mul sub def
/rightx x width 0.5 mul add def
gsave
newpath
leftx y moveto
x y width 0.08 mul add x y width 0.08 mul add rightx y curveto
x y width 0.20 mul sub x y width 0.20 mul sub leftx y curveto
closepath white setrgbcolor fill
x width 0.04 mul add y width 0.07 mul sub
width 0.08 mul 3 360 arc black setrgbcolor fill
x width 0.04 mul add width 0.02 mul abs add y width 0.070 mul sub
width 0.02 mul 3 360 arc white setrgbcolor fill
grestore
end
} def
darkgrey setrgbcolor 0 0 xmax ymax rectfill
1.035 1.195 scale
% /colours [ violet yellow green darkgreen blue paleblue red darkorange ] def
/colours [ violet yellow blue paleblue red darkorange ] def
/AkzidenzGroteskBE-BoldEx ymax 0.19 mul selectfont
0 0 moveto
(J) 10 9 yellow red str_in_rect pop
(O) 10 5 blue yellow str_in_rect /y_top exch def
(O) 10 5 yellow red str_in_rect pop
(B) 10 9 violet yellow str_in_rect pop
% newpath black setrgbcolor 40 y_top 3 0 360 arc fill
/AkzidenzGroteskBE-BoldEx ymax 0.16 mul selectfont
0 y_top moveto
(O) 10 5 blue violet str_in_rect /y_top exch def
(O) 10 5 yellow red str_in_rect pop
(G) 10 5 violet darkorange str_in_rect pop
(A) 10 9 blue red str_in_rect pop
/AkzidenzGroteskBE-BoldEx ymax 0.16 mul selectfont
0 y_top moveto
(G) 10 5 red orange str_in_rect /y_top exch def
currentpoint /y1 exch def /x1 exch def
(O) 10 5 orange violet str_in_rect pop
currentpoint /y2 exch def /x2 exch def
x1 x2 add 0.5 mul y1 y_top add 0.5 mul x2 x1 sub -0.35 mul eye
(O) 10 5 yellow orange str_in_rect pop
currentpoint /y3 exch def /x3 exch def
x2 x3 add 0.5 mul y2 y_top add 0.5 mul x3 x2 sub -0.35 mul eye
(G) 10 5 orange blue str_in_rect pop
/AkzidenzGroteskBE-BoldEx ymax 0.19 mul selectfont
0 y_top moveto
(J) 10 9 violet yellow str_in_rect pop
(O) 10 5 yellow orange str_in_rect /y_top exch def
(O) 10 5 blue yellow str_in_rect pop
(B) 10 9 yellow red str_in_rect pop
% newpath black setrgbcolor 40 y_top 3 0 360 arc fill
/AkzidenzGroteskBE-BoldEx ymax 0.16 mul selectfont
0 y_top moveto
currentpoint /y1 exch def /x1 exch def
(O) 10 5 red violet str_in_rect /y_top exch def
currentpoint /y2 exch def /x2 exch def
x1 x2 add 0.5 mul y1 y_top add 0.5 mul x2 x1 sub 0.35 mul eye
(O) 10 5 violet blue str_in_rect pop
currentpoint /y3 exch def /x3 exch def
x2 x3 add 0.5 mul y2 y_top add 0.5 mul x3 x2 sub 0.35 mul eye
(G) 10 5 red orange str_in_rect pop
(A) 10 9 blue paleblue str_in_rect pop
/AkzidenzGroteskBE-BoldEx ymax 0.16 mul selectfont
0 y_top moveto
(G) 10 5 orange blue str_in_rect /y_top exch def
(O) 10 5 red orange str_in_rect pop
(O) 10 5 orange violet str_in_rect pop
(G) 10 5 red orange str_in_rect pop
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