Nebula 1

home *** CD-ROM | disk | FTP | other *** search

/ Nebula 1 / Nebula One.iso / Utilities / Converters / Convert_PICT / Source / CommentedPSCode / RCS / Text,v < prev

Wrap

Text File | 1995-06-12 | 21.4 KB | 1,012 lines

head 1.8; branch ; access ; symbols beta10:1.7; locks death:1.8; comment @# @; 1.8 date 93.04.04.23.31.03; author death; state Exp; branches ; next 1.7; 1.7 date 93.01.09.21.07.38; author death; state Exp; branches ; next 1.6; 1.6 date 93.01.01.11.51.44; author death; state Exp; branches ; next 1.5; 1.5 date 92.12.31.15.35.29; author death; state Exp; branches ; next 1.4; 1.4 date 92.12.05.23.07.51; author death; state Exp; branches ; next 1.3; 1.3 date 92.12.03.18.02.22; author death; state Exp; branches ; next 1.2; 1.2 date 92.11.27.19.38.28; author death; state Exp; branches ; next 1.1; 1.1 date 92.11.08.09.29.09; author death; state Exp; branches ; next ; desc @@ 1.8 log @Sun Apr 4 23:31:03 PDT 1993 @ text @%BEGIN Text % % The current text drawing position % /textY 0 def /textX 0 def % % Extra width used when printing spaces % /extraSpaceWidth 0 def % % Establish default font % /typeSize 12 def /Chicago findfont typeSize scalefont setfont % % the x and y scaling factors % /xscale 1 def /yscale 1 def % % Style flags (true eq use that style) % /macBold false def /macItalic false def /macUnderline false def /macOutline false def /macShadow false def /macCondense false def /macExtend false def % % Mode % /textMode /srcCopy def %%%%%%%%%%%%% % Name: drawChar % Syntax: string drawChar - % About: Draws specifid string, This should only be called by PICTshow, as it depends on % values set up there. %%%%%%%%%%%%% /drawChar { textMatrix setmatrix show originalMatrix setmatrix } def %%%%%%%%%%%%% % Name: pathNonZero % Syntax: - pathNonZero bool % About: returns true if current path has a non-zero height %%%%%%%%%%%%% /pathNonZero { pathbbox /top exch def pop /bottom exch def pop top bottom sub 0 eq {false} {true} ifelse } def %%%%%%%%%%%%% % Name: PICTshow % Syntax: x y string PICTshow - % About: Draw the specified text at x,y. theString is drawn one char at a time because % this provides better control when drawing the various type styles. % The various styles are drawn to emulate on-screen mac drawing. Thus, italics are % obliqued, bold is double-printed (slightly offset). Condensed and Extended have % altered spacing, but characters are not drawn thin or fat. Etc. % Bugs: % Bold outlines and shadows have a doubled left border. % Shadowed char extending to *left* will place shadow on neighbor, not behind % extend values not well defined on Mac. I've made good approximations here. %%%%%%%%%%%%% /PICTshow { /theString exch def /y exch def /x exch def /extend 0 def % extra space to widen each char /charString 1 string def % holds char as a string gsave /originalMatrix matrix currentmatrix def % % Build a matrix to use when drawing text: make it upside down (-1) so text will % appear rightside up, slant it (.5) if doing 'italic', and scale by the % scaling factors % /textMatrix xscale yscale matrix scale matrix currentmatrix matrix concatmatrix macItalic true eq { [1 0 .5 -1 0 0] } { [1 0 0 -1 0 0] } ifelse matrix concatmatrix def % % Store ammount to extend width of each char by % macBold true eq {/extend extend 1.5 add def } if macOutline true eq { /extend extend 2 add def } if macExtend true eq {/extend extend 2 add def } if macShadow true eq {/extend extend 2 add def } if macCondense true eq {/extend extend 2 sub def } if % % For each character in string, draw it... % foregroundColor useColor theString { % % Define next char of theString, width of the char, and extra space % to add to this character. % /theChar exch def charString 0 theChar put /charWidth charString stringwidth pop def % pop y dimen 32 theChar eq { /extraSpace extraSpaceWidth def } { /extraSpace 0 def } ifelse % % Draw a shadow % macShadow true eq { x 2 add y 2 add moveto % move down & right to draw shadow charString drawChar macBold true eq { x 3 add y 2 add moveto charString drawChar } if } if % % Draw other text. If doing bold, loop twice, incrementing boldStep % second time to produce the double-print of bold. % /boldstep 0 def macBold true eq {2} {1} ifelse % loop 2ce if bold is on. { % % If doing shadow or outline, draw the text in white with black outline % unless path has no height (maybe it's a bitmap), draw the char normal % macShadow true eq macOutline true eq or { newpath x boldstep add y moveto textMatrix setmatrix charString true charpath originalMatrix setmatrix pathNonZero true eq { 1 setgray fill foregroundColor useColor newpath x boldstep add y moveto textMatrix setmatrix charString false charpath originalMatrix setmatrix 0 setlinewidth stroke } { x boldstep add y moveto charString drawChar } ifelse } { x boldstep add y moveto charString drawChar } ifelse /boldstep boldstep 1 add def } repeat originalMatrix setmatrix macUnderline true eq { x y 1 add moveto x charWidth add extraSpace add extend add y 1 add lineto 1 setlinewidth stroke } if % % Increment x for the next character's start % /x x charWidth add extraSpace extend add add def } forall grestore } def %%%%%%%%%%%%% % Name: txFont [0003] % Syntax: name txFont - % num txFont - % About: This sets the type family to draw text in. If param is not a % name, the converter could not identify the `font', so this % routine must decide what family to use. %%%%%%%%%%%%% /txFont { /family exch def family type /nametype eq { family findfont } { % % Convert the number to a font name % family 134 eq {/Linguistics findfont} {family 149 eq {/NewOrleans findfont} {family 64 eq {/Davids findfont} {/Chicago findfont} % default font ifelse} ifelse} ifelse } ifelse typeSize scalefont setfont } def %%%%%%%%%%%%% % Name: txFace [0004] % Syntax: array txFace - % About: Given an array of names, set several global flags to based on % them. These indicate what text styles to use when drawing text. %%%%%%%%%%%%% /txFace { /styleArray exch def /macBold false def /macItalic false def /macUnderline false def /macOutline false def /macShadow false def /macCondense false def /macExtend false def styleArray { /style exch def style /bold eq {/macBold true def} {style /italic eq {/macItalic true def} {style /underline eq {/macUnderline true def} {style /outline eq {/macOutline true def} {style /shadow eq {/macShadow true def} {style /condense eq {/macCondense true def} {style /extend eq {/macExtend true def} { % Actually, this is an error condition of some sort } ifelse } ifelse } ifelse } ifelse } ifelse } ifelse } ifelse } forall } def %%%%%%%%%%%%% % Name: txMode [0005] % Syntax: name txMode - % About: Sets the text drawing mode passed by caller. This is not used % so we just store it. % Note: if mode was unknown, we get /badMode-# (# is mode num)) %%%%%%%%%%%%% /txMode { /textMode exch def } def %%%%%%%%%%%%% % Name: spExtra [000C] % Syntax: num spExtra - % About: Changes width of space character in future text drawing % operations. %%%%%%%%%%%%% /spExtra {/extraSpaceWidth exch def } def %%%%%%%%%%%%% % Name: txSize [000D] % Syntax: num txSize - % About: Sets the size of subsequent text to the passed number. % Do this by scaling relative to the current size. %%%%%%%%%%%%% /txSize { /newTypeSize exch def currentfont newTypeSize typeSize div scalefont setfont /typeSize newTypeSize def } def %%%%%%%%%%%%% % Name: TxRatio [0010] % Syntax: xscale yscale txRatio - % About: This sets a horozontal and vertical scaling factors for text % that is subsequently drawn. %%%%%%%%%%%%% /txRatio { /yscale exch def /xscale exch def } def %%%%%%%%%%%%% % Name: chExtra [0016] % Syntax: num chExtra - % About: The chExtra opcode probably sets the spacing between characters. % I couldn't confirm this, though, so this does nothing. %%%%%%%%%%%%% /chExtra {pop} def %%%%%%%%%%%%% % Name: longText [0028] % Syntax: num num string longText - % About: Displays the string at coords. Makes coords the new textX,Y %%%%%%%%%%%%% /longText { /theString exch def /textY exch def /textX exch def textX textY theString PICTshow } def %%%%%%%%%%%%% % Name: DHText [0029] % Syntax: num string DHText - % About: Displays string offset sideways from textX (positive is right) %%%%%%%%%%%%% /DHText { /theString exch def /deltaX exch def deltaX textX add textY theString longText } def %%%%%%%%%%%%% % Name: DVText [002A] % Syntax: num string DVText - % About: Displays string offset down from textY (positive is down) %%%%%%%%%%%%% /DVText { /theString exch def /deltaY exch def textX deltaY textY add theString longText } def %%%%%%%%%%%%% % Name: DHDVText [002B] % Syntax: num num string DVText - % About: Displays string offset from text X,Y (positive is down & right) %%%%%%%%%%%%% /DHDVText { /theString exch def /deltaY exch def /deltaX exch def deltaX textX add deltaY textY add theString longText } def %END Text @ 1.7 log @Sat Jan 9 21:07:38 PST 1993 @ text @@ 1.6 log @Fri Jan 1 11:51:44 PST 1993 @ text @d4 1 a4 1 % Define a starting text position a7 1 d9 1 a9 1 % Define what extra space should be used when drawing text a11 1 d13 1 a13 1 % Setup the default font. a18 1 d20 1 a20 1 % Default scaling values a23 1 d25 1 a25 1 % By default, all the styles are off at first. a33 1 d40 8 a47 1 /drawlineoftext d49 2 a50 3 /theString exch def flippedMatrix setmatrix extraSpaceWidth 0 32 extend 0 theString awidthshow d55 22 a76 2 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Utility: PICTshow d78 5 a82 14 % Description: % This utility draws the specified string at x,y, making use of the % various Macintosh text style settings: % bold, italic, condensed, extended, underline, outline, shadoe, and plain. % Note that it tries to emulate the on-screen style of drawing, rather than the % printouts. So, text is always obliqued in 'italic'. The bold is accomblished by % double printing, rather than using a different type face. Condense is just squished % together (and extended is extended) but the characters are not squished or extended % as well. % It also properly sets the drawing color before drawing. % One slight good thing: If one us making use of a font that doesn't have an outline % (say, converted from the mac with my font creator), this will recover semi gradefully % and draw outline text as plain roman text, and shadowed text as black with a grey % shadow. d84 4 a87 20 % Not all things work together, and not all work completely right: % • Because of the lazy way I've implemented them (the better way would be to draw % them one char at a time, so one would have complete controll always), neither outline % or Shadow get slightly extended, as they should, when being drawn. Likewise, one % can not combine these two with certain other styles (bold and outline, for instance). % • The exact measures for how much to extend or condense characters for all the % styles, much less mixings of styles, is not defined anywhere I could find. The % values I'm using seem reasonably close to my Mac samples. But, they may not % work in combination. This is just to say: if you are perfectionistic, you may need to % tweak these values. % • The underlining of any extended or condensed thing is wrong. This could be % fixed by some other algorithm, such as the 'do one character at a time', mentioned % above % • To determine if this has has an outline available, it builds a charpath, and sees % if it has any height. If so, it assumes there's an outline there. this does end up % involving a call to charpath and pathbbox just to figure this out. It seems a bit % expensive to me. In fact, much of this routinemight be able to be done more % 'cheaply'. % • Summary: this works adequately. But, it's nowhere near 'slick' or 'finished'. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% d93 2 a94 1 /extend 0 def % stores how much to extend each character a95 14 % % Build a flipped matrix so the text will appear rightside up % /originalMatrix matrix currentmatrix def /flippedMatrix matrix currentmatrix def % % Take into account text scaling. I'm not sure this is done right, but hey, since I can't % find any mac things to demonstrate the opcode, I'll just guess.. % /flippedMatrix xscale yscale flippedMatrix scale def flippedMatrix 3 flippedMatrix 3 get -1 mul put % unflip the matrix so text is rightside up d97 1 d99 3 a101 5 % Compute an outline of the text, and store whether it generated an outline % with non-zero height. Note that we tracp for the limitcheck error in case the % string is too long. Another argument for doing all this kinda thing 1 char at a % time... (note: this means that if the thing is too long to outline all at once, we % do it as if this were a bitmap. d103 8 a110 8 newpath x y moveto flippedMatrix setmatrix /originallimitcheck errordict /limitcheck get def errordict /limitcheck {pop pop pop} put theString false charpath errordict /limitcheck {originallimitcheck} put originalMatrix setmatrix a111 15 pathbbox /ury exch def pop /lly exch def pop ury lly sub 0 eq {/couldOutline false def} {/couldOutline true def} ifelse grestore % % Begin work to draw text. % gsave d113 1 a113 1 % Turn on mac-style italics if needed (slant everything. don't do a true italic) a114 13 macItalic true eq { /flippedMatrix flippedMatrix [1 0 -.5 1 0 0] matrix concatmatrix def } if % % Set approximate extended values (note that outline gets one set, but because of % the current implementation algorithm, this value is never used. =( ) % d122 1 a122 1 d126 5 a130 1 a133 1 d135 1 a135 4 % Draw a shadow (bold it if necessary) % Draw a grey one if w couldn't outline. A foreground colored one otherwise. % Note that we do not extend in the case where we can outline, since the two % presently don't go together. (it work fine for others, though). d137 2 a138 1 macShadow true eq d140 10 a149 6 couldOutline true eq { foregroundColor useColor } { .333 setgray /extend extend 2 add def } d151 4 a154 3 x 1 add y 1 add moveto % move down & to the right to draw shadow theString drawlineoftext macBold true eq d156 8 a163 2 x 2 add y 1 add moveto theString drawlineoftext a165 19 } if % % If (macshadow or macoutline) and couldoutline... then draw the text in % white, and then draw a black outline around this. Otherwise, just draw % the text in black. % macShadow true eq macOutline true eq or couldOutline and { newpath x y moveto flippedMatrix setmatrix theString true charpath originalMatrix setmatrix 1 setgray fill newpath x y moveto d167 2 a168 1 % set up the colors we need d170 42 a211 4 foregroundColor useColor 0 setlinewidth flippedMatrix setmatrix theString false charpath d213 9 a221 3 stroke } { d223 1 a223 1 % set up the colors we need d225 1 a225 3 foregroundColor useColor x y moveto theString drawlineoftext d227 1 a227 21 ifelse % % Mac-style 'bold' if proper. (double the last drawn character. % macBold true eq macShadow false eq and { x 1 add y moveto theString drawlineoftext } if macUnderline true eq { x y 1 add moveto theString stringwidth pop % get rid of y coord x add y 1 add lineto stroke } if d232 2 a233 4 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Opcode: 0003 % Name: txFont d236 4 a239 7 % Description: % This is passed information needed to set the current type family. % If the parameter is a name, then the PICT->PS converter already identified the % mac font name, and has given it to us (this will happen for all the standard Apple % fonts). Otherwise, it writes out the number of the mac font, and it is then our % responsibility to recognize it in the 'case' statement here to turn it into a font. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% d243 1 a243 3 % % determine if we were passed a name or a number, and act accordingly % d250 1 a250 1 % Convert the number we were given to a font name d267 2 a268 1 } def d270 2 a271 4 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Opcode: 4 % Name: txFace d273 3 a275 9 % Description: % This takes an array, which contains a series of names. These names % can be: bold, italic, underline, outline, shadow, condense and/or extend. % This takes this information and sets things up to draw corresponding % later. We use a procedure here to set flags for each style found % Bugs: % If we are using a font like Times-Roman, theoretically we should be % able to set up and use the outlines for the real bolds, etc... %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% d309 2 a310 4 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Opcode: 5 % Name: txMode d312 4 a315 7 % Description: % This takes the name of a graphics mode, and theoretically would % act properly on it. (the mode would be a src* or notsrc* mode). % (we get /badMode-# if the mode isn't a standard inside-mac one) % Bugs: % We don't check for the bad mode here at all.. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% d320 6 a325 13 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Opcode: C % Name: spExtra % Syntax: num spExtra - % Description: % This sets the variable extraSpaceWidth to the value it is passed. % This will affect future text drawing operations. Theoretically, this % changes the with of the space character in output. I have been % unable to reproduce this on the Mac, however. % Bugs: % I'm not 100% sure what this really should be doing. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% d330 2 a331 4 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Opcode: D % Name: txSize d333 3 a335 4 % Description: % Changes the point size of the current text. Takes a parameter which is % the number of points to make the text. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% d340 1 a340 1 newTypeSize typeSize div scalefont % must resize relative to the current size d343 2 a344 1 } def d346 6 a351 14 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Opcode: 10 % Name: TxRatio % Syntax: xnum ynum xdenom ydenom txRatio - % Description: % As best I can tell, this sets up a scaling of the text that is drawn afterwards. % It has the ratio for the horozontal and the ratio for the vertical axes. % However, there is no doc for it that I can find, and I can't make it do % anything in any draw programs I have. Thus, your guess is as good as mine. % Bugs: % I'm making an assumption both about the order of the incomming % data, as well as the overall effects. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% d354 4 a357 7 /ydenominator exch def /xdenominator exch def /ynumerator exch def /xnumerator exch def /xscale xnumerator xdenominator div def /yscale ynumerator ydenominator div def } def d359 2 a360 4 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Opcode: 0016 % Name: chExtra d362 3 a364 9 % Description: % This corresponds to one of the PICT 2 opcodes. One would guess that it % alters the spacing between individual characters. One spot in Inside Mac % suggests the param is in a special format (all two bytes of it!). Since I could not % test what the Mac does with it, I'm simply consuming the argument % and doing nothing here. % Bugs: % This does nothing. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% d369 2 a370 4 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Opcode: 0028 % Name: longText d372 2 a373 6 % Description: % Calls PICTshow with the parameters this was passed to get the string drawn. % It then stores the text x and y positions based on the values this was passed. % Note that the other three text drawing routines simply map to this. % Bugs: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% d377 2 a378 2 /ypos exch def /xpos exch def d380 3 a382 1 xpos ypos theString PICTshow d384 2 a385 8 /textY ypos def /textX xpos def } def %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Opcode: 0029 % Name: DHText d387 2 a388 5 % Description: % This displays the specified text to the right of the stored text % position. A positive deltaX value moves to the right. % Bugs: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% d395 2 a396 1 } def d398 2 a399 4 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Opcode: 002A % Name: DVText d401 2 a402 5 % Description: % This displays the specified text below the stored text % position. A positive deltaY value moves to the downward. % Bugs: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% d408 2 a409 1 } def d411 2 a412 4 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Opcode: 002B % Name: DHDVText d414 2 a415 5 % Description: % This displays the specified text below and to the right of the stored text % position. Positive deltas move down and right. % Bugs: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% d423 2 a424 1 } def @ 1.5 log @Thu Dec 31 15:35:28 PST 1992 @ text @@ 1.4 log @Sat Dec 5 23:07:51 PST 1992 @ text @d39 4 d44 1 d363 1 a363 1 % At the moment, this ignores its parameter and does nothing.. d366 1 a366 1 { pop } @ 1.3 log @Thu Dec 3 18:02:22 PST 1992 @ text @@ 1.2 log @Fri Nov 27 19:38:28 PST 1992 @ text @@ 1.1 log @Sun Nov 8 09:29:09 PST 1992 @ text @d61 1 d174 1 a174 1 % Draw a grey one if w couldn't outline. A black one otherwise. d181 1 a181 1 { 0 setgray} d214 4 a217 1 0 setgray d225 4 a228 1 0 setgray @