gardener, Interface administrators, Administrators
3,893
edits
Changes
Jump to navigation
Jump to search
m
Bertrand Russell was giving a lesson on solipsism <context>% by Hans Hagen, of course :-) \unprotected \def\rawsectionnumber#1{\countervalue{\??se#1}} % will be in kernel \setuppagenumbering [alternative=doublesided] \setupcolors [state=start] \setupbackgrounds [page] [background=thumbs] \defineoverlay [thumbs] [\setups{thumbs}] \def\NOfChapters{4} % i need to make this one available \startsetups thumbs \definemeasure[thumbheight][\dimexpr\paperheight/\NOfChapters\relax] \vbox to \paperheight \bgroup \vskip \rawsectionnumber{section-2} \measure{thumbheight} \vskip -1 \measure{thumbheight} \doifoddpageelse\hfill\donothing \framed [background=color, backgroundcolor=darkgray, frame=off, foregroundcolor=white, height=\measure{thumbheight},width=1cm] {\bfa \rawsectionnumber{section-2}} \doifoddpageelse\donothing\hfill \vss \egroup \stopsetups \starttext \chapter{first} \dorecurse{10}{\input tufte }\chapter{second} \dorecurse{10}{\input davis }\chapter{third} \dorecurse{10}{\input zapf }\chapter{fourth} \dorecurse{10}{\input bryson } \stoptext</context> == Another Example ==An example (MkIV) for using Metapost to create thumb indices for chapters. <texcode>\setuppapersize[A4][A4,oversized] \setuplayout [width=middle, % margin=\dimexpr\backspace-\margindistance\relax location=middle] \definecolor[chap_frame][g=1,t=1,a lay audience=12]\definecolor[sect_frame][b=1,t=1, and a woman got up and said she was delighted to hear Bertrand Russell say he was =12]\definecolor[textcolor] [r=1,t=1,a solipsist=12] \startuseMPgraphic{chapter thumb} path chap_frame, sect_frame ; she was one too pair pos,a, and she wished there were more of us.b ; picture text ; if \somenamedheadnumber{chapter}{current} > 0 : curr_chap := \somenamedheadnumber{chapter}{current} ; else : curr_chap := 1 ; fi; if \somenamedheadnumber{chapter}{last} > 0 : last_chap := \somenamedheadnumber{chapter}{last} ; else : last_chap := 1 ; fi; if \somenamedheadnumber{section}{current} > 0 : curr_sect := \somenamedheadnumber{section}{current} ; else: curr_sect := 1 ; fi; if \somenamedheadnumber{section}{last} > 0 : last_sect := \somenamedheadnumber{section}{last}; else: last_sect := 1; fi; [http skip := TextHeight * (curr_chap-1)/last_chap ; height := TextHeight/last_chap ; sskip := height*curr_sect/onlinelast_sect ; text := textext("\ssbfb\textcolor Chapter\enspace\getmarking[chapternumber]"); StartPage ; chap_frame := fullsquare xyscaled(RightMarginWidth,height) ; a := ulcorner chap_frame ; b := urcorner chap_frame ; sect_frame := a-poker-onlineb-poker.net-(xpart b,ypart b-sskip)--(xpart a,ypart a-sskip)--cycle; pos := urcorner Field[Text][RightMarginSeparator] - ulcorner chap_frame - (0,skip); fill chap_frame shifted pos withcolor \MPcolor{chap_frame}; unfill sect_frame shifted pos withcolor white ; fill sect_frame shifted pos withcolor \MPcolor{sect_frame}; draw text rotated 90 shifted pos ; StopPage ;\stopuseMPgraphic \defineoverlay[chapter thumb][\useMPgraphic{chapter thumb}] \setupbackgrounds[page][background=chapter thumb] \starttext \showframe\dorecurse{6}{\chapter{Test Chapter #1} Chapter \someheadnumber[chapter][current] of \someheadnumber[chapter][last] \dorecurse{9}{\section{Test Section} Section \someheadnumber[section][current] of \someheadnumber[section][last] \blank \input tufte \par \input knuth \par }}\stoptext</ online pokertexcode> [[Category:Sample documents]][[Category:Graphics]]
no edit summary
{{todo | this page needs to be cleaned up}}
The following code is an example of how to draw a graphic on every page of a document. The graphic (a grey rectangle) appears in a different place for each chapter, and the chapter number appears in the rectangle as well. This is often called a thumb index - your thumb can flip the pages of a book while you watch the contents flash past...
</texcode>
