Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.postscript > #3798

Menu maker program

Show all headers | View raw

Draws a one page menu using the contents of the /data data structure.

 %!
% Menu generator program. 
<<
    /data [
	{ (Coffee) }
	{ (Caffe Latte) (5.50) (Espresso, Steamed milk, optional flavored syrup.) }
	{ (Iced Latte) (5.50) (Espresso, Milk, Ice, optional flavored syrup.) }
	{}
	{}
	{ (Beer) }
	{ (Domestic) (6) (Budweiser, Bud Light, Bud Select, Busch) }
        { () () (Michelob Ultra, Michelob Golden Light, Rolling Rock) }
	{ (Import / Craft) (8) () }
	{ (Import) () (Corona, Modelo, Dos Equis, Stella Artois) }
	{ (Lager) () (Urban Underdog) }
	{ (IPAs and Pale Ales) ()
	  (City Wide APA, State Wide Hazy Pale Ale, Elysian Space Dust) }
	{ (12oz Craft) (5.50) (Yeti Stout, Beach Doodad) }
    ]
    /dispatch { dup length load exec }
    0 { pop newline }
    1 { section }
    3 { item }
    /section-font { /Palatino-BoldItalic section-size selectfont }
    /section-size 22
    /item-size 17
    /leading -28
    /item-font { /Palatino-Bold item-size selectfont }
    /price-font { /Helvetica item-size selectfont }
    /desc-font { /Palatino-Italic item-size selectfont }
    /left 50
    /nudge 10
    /top { left 10.5 72 mul moveto }
    /pos { currentpoint exch pop moveto }
    /max { 2 copy lt { exch } if pop }
    /newline { left currentpoint exch pop moveto
	       0 leading rmoveto }
    /section { nudge 2 mul 0 rmoveto section-font 0 get show newline }
    /item { multi-line-item }
    /single-line-item {
	item-font dup 0 get show gap1
	price-font dup 1 get dup length 0 ne { ($) show show }{ pop } ifelse gap2
	desc-font 2 get show newline }
    /multi-line-item {
	dup 0 get length 0 eq 1 index 1 get length 0 eq and not {
	    item-font dup 0 get show gap1
	    price-font dup 1 get dup length 0 ne { ($) show show }{ pop } ifelse
	    newline
	} if
	2 get dup length 0 ne {
	    desc-font nudge 2 mul 0 rmoveto show newline
	}{ pop } ifelse }
    /calc-gaps {
	0 0 3 2 roll  % max(col2) max(col1) data
	{
	    dup length 3 eq {  % mc2 mc1 item-data
		dup 0 get stringwidth pop 3 -1 roll max exch  % mc2 mc1' item-data
		1 get stringwidth pop 3 -1 roll max exch % mc2' mc1'
	    }{ pop } ifelse  % mc2 mc1
	} forall  % max(col2) max(col1)
	exch 1 index add  % max(col1) max(col1)+max(col2)
	left add nudge 3 mul add /pos cvx 2 array astore cvx /gap2 exch def
	left add nudge add /pos cvx 2 array astore cvx /gap1 exch def
    }
>> begin

item-font data calc-gaps

top data {dispatch} forall

showpage quit

Back to comp.lang.postscript | Previous | Next | Find similar

Thread

Menu maker program luser droog <luser.droog@gmail.com> - 2022-08-25 06:39 -0700

csiph-web