Commit 8d99575c authored by paysan's avatar paysan

Added head for Leo's cover

parent 2e816dc6
......@@ -21,7 +21,7 @@ SOURCES = thinking-forth.tex \
fig7-7.tex fig7-8.tex fig7-9.tex \
backpage.tex cover.tex legalcode-by-nc-sa.tex \
autoscale eps2pdf \
rodin_thinker.jpg rodin_thinker.eps \
rodin_thinker.jpg rodin_thinker.eps head.eps \
leobrodie.jpg leobrodie.eps
ALL_SOURCES = $(SOURCES) Makefile
......@@ -75,7 +75,7 @@ LINKCOLOR = blue
# 17x24 for 17cm x 24cm format (one of the standard metric formats)
# splitcover: if you only choose front and back, and the spine is done for you
VERSION = 0.2
VERSION = 0.9
CP = cp
TAR = tar jcf
MD = mkdir
......@@ -139,6 +139,7 @@ tfoptions.tex: Makefile
echo "\def\isbn{$(ISBN)}" >>$@
echo "\def\linkcolor{$(LINKCOLOR)}" >>$@
echo "\def\printing{$(PRINTING)}" >>$@
echo "\def\tfversion{$(VERSION)}" >>$@
%.pdf : %.ps
$(PS2PDF) $< $@
......@@ -159,7 +160,7 @@ thinking-forth.dvi : $(SOURCES) $(PNGSOURCES:.png=.eps)
latex thinking-forth.tex
latex thinking-forth.tex
cover.dvi: cover.tex backpage.tex isbn.eps tfoptions.tex pagecount.tex \
cover.dvi: cover.tex backpage.tex isbn.eps tfoptions.tex pagecount.tex head.eps \
rodin_thinker.eps leobrodie.eps
latex cover.tex
......@@ -198,7 +199,7 @@ AUTOTRACE = autotrace --despeckle-level 8 --error-threshold 4
# ./autoscale $@
#fig%.eps: fig%.png
# ./potrace $@
# ./poconv $@
#img%.eps: img%.png
# $(AUTOTRACE) $< >$@
......
......@@ -921,11 +921,11 @@ the clairification in the 2004 Preface on page
Real object oriented programming, as it originates in Smalltalk, does
not hide information from the programmer. Adding a ``scrambled''
method to the egg machine is no problem. Smalltalk works by adding
method to the ``egg master object'' is no problem. Smalltalk works by adding
methods to known classes, you don't even need to subclass them. You
can look inside an object and its source code whenever you want. And
table driven method dispatching can be quite efficient.
\begin{flushright}\person{Bernd Paysan}\end{flushright}}\fi
\hfill\person{Bernd Paysan}}\fi
An object is a portion of code that can be invoked by a single name,
but that can perform more than one function. To select a particular
......
......@@ -4,7 +4,8 @@
\vspace*{100pt}
\begin{center}\copyright 1984, 1994, and 2004 by \person{Leo Brodie}
\begin{center}\copyright 1984, 1994, and 2004 by \person{Leo Brodie},
\ifprelim preprint \fi version \tfversion
\bigskip
......
......@@ -28,6 +28,8 @@
\usepackage{babel}
\usepackage{geometry}
\usepackage{pst-all}
\usepackage{pst-blur}
\usepackage{pst-grad}
\usepackage{fancyvrb}
\usepackage[cmbtt]{bold-extra}
\usepackage[\tfoptions]{tf}
......@@ -86,6 +88,8 @@ footskip=0pt}%
\advance\pheight-2\lborder
\advance\pheight-2\cborder
\parindent0pt
\newrgbcolor{blue}{.45 .6 .6}
\begin{document}%
\pagestyle{empty}%
\ifsplitcover
......@@ -113,7 +117,9 @@ footskip=0pt}%
\psframebox*[fillcolor=black,framesep=\lborder]{\noindent\white
\llap{\smash{\gray\vline height -.5\pheight depth.55\pheight}}%
\llap{\smash{\gray\vline height .55\pheight depth-.51\pheight}}%
\begin{minipage}{\spine}
\begin{minipage}{\spine}%
\vbox to\pheight{%
\ifthinker\else\smash{\lower\pheight\vbox{\hbox to \spine{\hss\lower8pt\hbox to 1.2in{\includegraphics{head}\hss}}}}\fi
\ifspineup
\expandafter\rotateleft
\else
......@@ -126,16 +132,16 @@ footskip=0pt}%
\Huge\bfseries\person{Leo Brodie}\hss\fi
\HUGE\slshape\rboxto{THINKING FORTH}{THINKING FORTH\/\normalsize\,}
\ifspineup\else
\hss\Huge\bfseries\person{Leo Brodie}%
\hss\Huge\bfseries\ifthinker\else\black\fi\person{Leo Brodie}\white%
\fi\hspace{0.5in}%
}\vss}}
\end{minipage}%
}\vss}}%
}\end{minipage}%
\rlap{\smash{\gray\vline height -.5\pheight depth.55\pheight}}%
\rlap{\smash{\gray\vline height .55\pheight depth-.51\pheight}}}%
\ifsplitcover\eject\fi
\psframebox*[fillcolor=black,framesep=\lborder]{\noindent\white
\begin{minipage}{\oldpwidth}%
\ifthinker\else\smash{\lower6.75in\hbox to \oldpwidth{\rlap{\vbox{\fontfamily{phv}\selectfont\Large\midblue
\ifthinker\else\smash{\lower6.75in\hbox to \oldpwidth{\rlap{\vbox{\fontfamily{phv}\selectfont\Large\blue
011111110010101101000110001000101100000011110101010000100010100110000100000110110101000001101101\\
001110000011100000101101010110000000100010000011010011110101101000110000000110101110011010101011\\
001000011000011100110001100111100110011111111110011010101100000110110010100001100100001010111001\\
......@@ -205,7 +211,10 @@ footskip=0pt}%
%% You can include a publisher logo here, like
%\centerline{\includegraphics{LogoOctopus}}%
%%
\vspace{0.25in}}%
\vspace{0.25in}%
\ifthinker\else\smash{%
\begin{psclip}{\pspolygon[linewidth=0pt](\textwidth,-8)(\textwidth,\pheight)(0,\pheight)(0,-8)}%
\llap{\lower8pt\hbox to 1.2in{\includegraphics{head}\hss}}\end{psclip}}}\fi
\end{minipage}}%
\ifsplitcover
\else
......
%!PS-Adobe-3.0 EPSF-3.0
%%Creator: potrace 1.5, written by Peter Selinger 2001-2004
%%LanguageLevel: 2
%%BoundingBox: 0 0 330 255
%%Pages: 1
%%EndComments
%%Page: 1 1
/D{bind def}def
/R{roll}D
/K{copy}D
/P{pop}D
/p{3 2 R add 3 1 R add exch}D
/t{dup 4 3 R mul 3 1 R mul}D
/a{dup 1 sub neg 4 1 R t 5 2 R t p}D
/m{2 K le{exch}if P}D
/n{abs exch abs m}D
/d{-1 t p n}D
/s{[4 2 R] cvx def}D
/g{7 K P 4 K P P d 5 1 R d 10 m m div 5 K 12 8 R 5 4 R a 9 4 R 3 2 R a 6 4 R curveto}D
/e{4 2 R lineto lineto P P}D
/q{3 K P n 10 m div}D
/f{x y 7 4 R 5 1 R 4 K p /y s 7 2 R 2 K 9 7 R 7 6 R t p 2 K /x s}D
/C{4 1 R q f 7 6 R g}D
/V{q f e}D
/c{3 1 R .5 f 7 6 R g}D
/v{.5 f e}D
/j{5 K P p /y s 3 K t 7 5 R p /x s x moveto P}D
/i{.5 j}D
/I{dup 6 1 R q j 3 2 R}D
/z{closepath}D
/b{1 setgray z fill}D
/w{1 setgray z fill}D
gsave
0.096000 0.096000 scale
1625 2647 -812 -32 220 I
-511 -390 291 456 C
-218 -418 150 98 C
-45 -202 157 207 C
-33 -119 33 c
-1 -529 241 193 C
99 -365 192 246 C
336 -498 232 100 C
0 -16 10 159 C
55 -78 21 c
2663 0 v
9 65 v
27 64 18 c
-61 131 50 45 C
297 0 52 57 C
0 247 158 81 C
-151 212 185 53 C
-22 66 18 c
-50 80 22 c
-17 74 22 c
-100 132 36 c
0 39 36 c
100 146 50 28 C
-58 149 86 82 C
-24 339 95 65 C
-60 161 116 122 C
-59 242 80 44 C
-222 308 163 78 C
-259 53 120 101 C
-333 91 248 103 C
-377 63 90 50 C
-173 -15 153 84 C
121 C
b
grestore
%%EOF
head.png

1.19 KB | W: | H:

head.png

1.25 KB | W: | H:

head.png
head.png
head.png
head.png
  • 2-up
  • Swipe
  • Onion skin
......@@ -272,7 +272,6 @@ footskip=.6in,marginparwidth=0.6in,marginparsep=0.1in}}
\iftip
\newrgbcolor{midgreen}{.25 .62 .25}
\newrgbcolor{lightgreen}{.9 .95 .9}
\newrgbcolor{midblue}{.45 .6 .6}
\newgray{lightgrey}{.7}
\def\tipbox{\@tempdima\ht\@tempboxa\@tempdimb\dp\@tempboxa
......
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