/FoodData [
% TNSheetNum Name Food
0 (Alex B.) [(Potted crab; with AJM medium-rare bone-in ribeye, B) /eacute (arnaise, green beans)]
0 (Alan G.) (Smoked salmon; chicken Caesar, fries)
0 (Tony Cz.) (Mackerel and beetroot salad; bangers and mash)
0 (George G.) (Melon salad; medium sirloin, green salad, fries)
0 (Charles R.) ()
0 (Julian W.) (Soup of the day; Beyond Meat burger, carrots)
0 (Harry H.) (Potted crab; medium-rare sirloin, carrots, fries)
0 (Mike M.) (Potted crab; with PW medium-rare bone-in ribeye, green beans, fries)
0 (Alex M.) (Smoked salmon; with AHB medium-rare bone-in ribeye, green beans, fries)
0 (Tom A.) [(Duck pat) /eacute (; medium-rare sirloin, peppercorn, green beans)]
0 (Phil W.) [(Grilled flatbread; with MPM medium-rare bone-in ribeye, B) /eacute (arnaise, fries)]
0 (Ian J.) [(T) {-0.12 Kern} (ruffle mac; medium-rare sirloin, green beans)]
] def % /FoodData
/PaintForegroundCode
{
/TastingNotes TypeOfPagesBeingRendered eq
{
0 3 FoodData length 1 sub
{
FoodData exch 3 getinterval aload pop 3 1 roll
ASCIIfy ThisName ASCIIfy eq exch TNSheetNum eq and
{
PageWidth MgnL MgnR sub add 2 div MgnB moveto
NamesFont 9 selectfont
dup StringPathBBox pop 3 -1 roll add -2 div exch neg rmoveto
ShowRecursive
} {pop} ifelse % ... ThisName ... TNSheetNum ... and
} for % FoodData index
} if % /TastingNotes
} bind def % /PaintForegroundCode
Comment welcomed.
In post 126933 on ThePortForum.com AHB wrote:
As an experiment, implemented with:
Comment welcomed.
The inclusion of an explicit
TNSheetNumis to cope with multi-session tastings.