* version = 1.12 of marks.lettering 2003 Apr 17 * 1.12, 2003 Apr 17: italiclettering documentation fix * 1.06, 2001 Aug 27: ability to shift * 1.00, 1997 Jun 24: origin * marks file for makelogo 8.70 and higher * This marks file will put lettering along the logo position axis (abscissa) * Note: to remove numbering and 5'/3' or N/C, adjust the appropriate parameters * in the makelogop file. * 2001 Aug 27: * lettering, italiclettering and scaledlettering are now ALL superceeded by * ShiftLettering and ShiftLetteringItalic. ******************************************************************************** * ShiftLettering, ShiftLetteringItalic, ShiftLetteringBold * Shift lettering around and scale it. u /ShiftLettering { % use: % triggerbase ignored bases bits sfactor letters red green blue ShiftLettering - % PostScript definition of the lettering function. % - Trigger the mark at triggerbase. % - Make lettering at coordinate (bases, bits) % - with color as defined by red, green and blue. % - sfactor is the scale factor: 1.0 is no change, 2.0 is double ... % The second argument is ignored, so the letters can be anywhere relative to the % trigger point. % Multiple letters can be used. % examples: % U TRIGGER IGNORED base bits sfactor (letters) R G B ShiftLettering % U 1.1 0 0 0 1 (A) 0 0 0 ShiftLettering % U 3.00 0 4.5 0 1 (5\302) 0 0 0 ShiftLettering % U 3.00 0 4.5 0 1 (5\242) 0 0 0 ShiftLetteringSymbol % 5\302 makes a 5' symbol, but \242 in the symbol fonts is sharper (recommended). % setrgbcolor /theletters exch def /sfactor exch def /y exch def %/x exch charwidth2m sub def %/x exch def /x exch charwidth 2 div sub def pop pop % FIRST two values are ignored x y moveto % move to the given coordinates gsave sfactor dup scale theletters show grestore } def ! u /ShiftLetteringItalic { % PostScript definition of the lettering function WITH ITALICS % See ShiftLettering for use FontForStringItalic % standard font switch ShiftLettering FontForStringRegular % standard font switch } def ! u /ShiftLetteringSymbol { % PostScript definition of the lettering function WITH SYMBOLs % See ShiftLettering for use FontForSymbol % standard font switch ShiftLettering FontForStringRegular % standard font switch } def ! ************************************************************************* * example: * bases bits IGNORED IGNORED (letters) lettering * U 1.1 -0.50 0 0 (A) 0 0 0 lettering * U 2.1 -0.50 0 0 (G) 1 .7 0 lettering * U 3.1 -0.50 0 0 (L) 0 0 0 lettering * U 4.1 -0.50 0 0 (I) 0 0 0 lettering * U 5.1 -0.50 0 0 (V) 0 0 0 lettering * U 6.1 -0.50 0 0 (M) 0 0 0 lettering * U 7.1 -0.50 0 0 (F) 0 0 0 lettering * U 8.1 -0.50 0 0 (W) 0 0 0 lettering * U 9.1 -0.50 0 0 (T) 0 1 0 lettering * U 10.1 -0.50 0 0 (S) 0 1 0 lettering * U 11.1 -0.50 0 0 (P) 0 1 1 lettering * U 12.1 -0.50 0 0 (Y) 0 1 0 lettering * U 13.1 -0.50 0 0 (K) 0 0 1 lettering * U 14.1 -0.50 0 0 (R) 0 0 1 lettering * U 15.1 -0.50 0 0 (E) 1 0 0 lettering * U 16.1 -0.50 0 0 (D) 1 0 0 lettering * U 17.1 -0.50 0 0 (N) 1 0 1 lettering * U 18.1 -0.50 0 0 (Q) 1 0 1 lettering * U 19.1 -0.50 0 0 (C) 0 1 0 lettering * U 20.1 -0.50 0 0 (H) 0 0 1 lettering * note: G is an orange color, since yellow is hard to see u /lettering { % bases1 bits1 bases2 bits2 letters red green blue lettering - % PostScript definition of the lettering function % make lettering at coordinate (bases1, bits1) % with color as defined. % (bases2, bits2) are ignored. % multiple letters can be used. % example: % bases bits IGNORED IGNORED (letters) lettering % % U 1.1 -0.50 0 0 (A) 0 0 0 lettering setrgbcolor /theletters exch def pop pop % last two values are ignored /y exch def /x exch charwidth2m sub def x y moveto % move to the given coordinates theletters show } def ! u /italiclettering { % bases1 bits1 bases2 bits2 letters % red green blue italiclettering - % PostScript definition of the lettering function WITH ITALICS % make italic lettering at coordinate (bases1, bits1) % with color as defined. % (bases2, bits2) are ignored. % multiple letters can be used. % The routine uses the standard font switches in makelogo and lister setrgbcolor /theletters exch def pop pop % last two values are ignored /y exch def /x exch charwidth2m sub def x y moveto % move to the given coordinates FontForStringItalic % standard font switch theletters show FontForStringRegular % standard font switch } def ! u /scaledlettering { % bases1 bits1 bases2 bits2 letters red green blue factor scaledlettering - % make lettering at coordinate (bases1, bits1) % with color as defined. % (bases2, bits2) are ignored. % multiple letters can be used. % example: % bases bits IGNORED IGNORED (letters) r g b factor lettering % factor is the factor by which to scale the letters % % U 1.1 -0.50 0 0 (A) 0 0 0 0.9 lettering /factor exch def setrgbcolor /theletters exch def pop pop % last two values are ignored /y exch def /x exch charwidth2m sub def x y moveto % move to the given coordinates gsave factor dup scale theletters show grestore } def !