libgeda/share/prolog.ps

   1 % Prolog for gEDA, define all the functions needed for rendering
   2 % schematics on Postscript devices
   3
   4
   5 % Draw a line from the second coordinate to the first
   6 % x2 y2 x1 y1 width line -
   7 /line {
   8     setlinewidth
   9     % pop off first element and moveto
  10     moveto
  11     % pop off remaining elements and draw a line segment
  12     lineto
  13     % draw it
  14     stroke
  15 } bind def
  16
  17
  18 % Draw a dot
  19 % x y r dot -
  20 /dot {
  21     0 360 arc fill
  22 } bind def
  23
  24 % Draw a dot-dashed line, a bunch of lined segments,
  25 % if the array element only has length two, draw a dot.
  26 % [ [x2 y2 x1 y1] [x4 y4 x3 y3] [x5 y5] ... ] width dashed -
  27 /width 0 def
  28 /dashed {
  29     dup 2.0 div /width exch def
  30     setlinewidth
  31     % pop off each line segment and draw it as a dot or as a line
  32     {
  33         aload length 2 gt
  34         { moveto lineto stroke}
  35         { width dot } ifelse
  36     } forall
  37 } bind def
  38
  39 % Draw an arc segment
  40 % x y r ang1 ang2 width darc -
  41 /darc {
  42     setlinewidth
  43     arc stroke
  44 } bind def
  45
  46 % Draw a series of arc segment bits, if the array element only has a single
  47 % element in it, draw a dot.
  48 % [ [sa1 ea1] [sa2 ea2] ... ] x y r width dashedarc -
  49 /x 0 def
  50 /y 0 def
  51 /dashedarc {
  52     dup /width exch def
  53     setlinewidth
  54     /r exch def
  55     /y exch def
  56     /x exch def
  57     { aload length 1 gt
  58         {
  59             % this element had two angles in it
  60             % extract start and stop angles
  61             x y r   % drop x y and r onto stack
  62                     % at this point we have: sa ea x y r
  63                     % we need                      x y r sa ea
  64                     % so..
  65             5 -2 roll
  66             % and add it to the current path, and draw it
  67             arc stroke
  68         } {
  69             % this element only had one angle in it, place a
  70             % filled dot at the appropriate place
  71             % compute center point of the arc using the angle
  72             % that is on the top of the stack
  73             dup                 % angle angle
  74             cos r mul x add     % angle x
  75             exch                % x angle
  76             sin r mul y add     % x y
  77             width               % x y width/2
  78             dot                 % draw the dot
  79         } ifelse
  80     } forall
  81
  82     % Now draw it
  83     stroke
  84 } bind def
  85
  86 % Draw a box
  87 % width height x y linethickness box -
  88 /box {
  89     setlinewidth
  90     moveto
  91     exch dup 0 rlineto   % w h, h w w 0      -- Draw bottom line
  92     exch 0 exch rlineto  % h w, w h 0, w 0 h -- Draw right line
  93     neg 0 rlineto        % w, -w 0           -- Draw Top line
  94     closepath            % finish and draw it
  95     stroke
  96 } bind def
  97
  98 % Draw a filled box
  99 % width height x y fbox -
 100 /fbox {
 101     moveto
 102     exch dup 0 rlineto
 103     exch 0 exch rlineto
 104     neg 0 rlineto
 105     closepath
 106     fill
 107 } bind def
 108
 109 % Font reincoding utilities
 110
 111 % ISOLatin1Encoding, extended with remaining uncoded glyphs
 112 /ISOLatin1Extended [
 113     /.notdef /Lslash /lslash /OE /oe /Scaron /scaron /Zcaron /zcaron
 114     /Ydieresis /trademark /bullet /dagger /daggerdbl /ellipsis /emdash
 115     /endash /fi /fl /florin /fraction /guilsinglleft /guilsinglright
 116     /perthousand /quotedblbase /quotedblleft /quotedblright
 117     /quotesinglbase /quotesingle /.notdef /.notdef /.notdef /space
 118     /exclam /quotedbl /numbersign /dollar /percent /ampersand
 119     /quoteright /parenleft /parenright /asterisk /plus /comma /minus
 120     /period /slash /zero /one /two /three /four /five /six /seven /eight
 121     /nine /colon /semicolon /less /equal /greater /question /at /A /B /C
 122     /D /E /F /G /H /I /J /K /L /M /N /O /P /Q /R /S /T /U /V /W /X /Y /Z
 123     /bracketleft /backslash /bracketright /asciicircum /underscore
 124     /quoteleft /a /b /c /d /e /f /g /h /i /j /k /l /m /n /o /p /q /r /s
 125     /t /u /v /w /x /y /z /braceleft /bar /braceright /asciitilde
 126     /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
 127     /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
 128     /.notdef /.notdef /.notdef /dotlessi /grave /acute /circumflex
 129     /tilde /macron /breve /dotaccent /dieresis /.notdef /ring /cedilla
 130     /.notdef /hungarumlaut /ogonek /caron /space /exclamdown /cent
 131     /sterling /currency /yen /brokenbar /section /dieresis /copyright
 132     /ordfeminine /guillemotleft /logicalnot /hyphen /registered /macron
 133     /degree /plusminus /twosuperior /threesuperior /acute /mu /paragraph
 134     /periodcentered /cedilla /onesuperior /ordmasculine /guillemotright
 135     /onequarter /onehalf /threequarters /questiondown /Agrave /Aacute
 136     /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla /Egrave /Eacute
 137     /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis /Eth
 138     /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply
 139     /Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn
 140     /germandbls /agrave /aacute /acircumflex /atilde /adieresis /aring
 141     /ae /ccedilla /egrave /eacute /ecircumflex /edieresis /igrave
 142     /iacute /icircumflex /idieresis /eth /ntilde /ograve /oacute
 143     /ocircumflex /otilde /odieresis /divide /oslash /ugrave /uacute
 144     /ucircumflex /udieresis /yacute /thorn /ydieresis
 145 ] def
 146
 147 % `new-font-name' `encoding-vector' `old-font-name' RE -
 148 /RE {
 149     findfont
 150     dup maxlength dict begin {
 151         1 index /FID ne { def } { pop pop } ifelse
 152     } forall
 153     /Encoding exch def
 154     dup /FontName exch def
 155     currentdict end definefont pop
 156 } bind def
 157
 158 % Text handling functions, select the font and scale it, then we need
 159 % only to apply the appropriate transformations to get the text
 160 % justified into the right spots.  The bad thing here is that we don't
 161 % do any kerning, so the output may look a bit strange.
 162
 163 % compute the height of one character and return lly and ury
 164 % (char) charheight lly ury
 165 /charheight {
 166     gsave                       % push graphics state
 167         newpath                 % clear current path
 168         0 0 moveto              % Set current point
 169         false charpath          % get path
 170         flattenpath             % flatten path
 171         pathbbox                % stack = llx lly urx ury
 172         exch pop                % stack = llx lly ury
 173         3 -1 roll pop           % stack = lly ury
 174     grestore                    % pop graphics state
 175 } bind def
 176
 177 % compute the height of a string, one character at a time
 178 % (string) stringheight lly ury
 179 /lly 0.0 def
 180 /ury 0.0 def
 181
 182 /stringheight {
 183     /lly 0.0 def                        % initial value of heightmin
 184     /ury 0.0 def                        % initial value of heightmax
 185     {                           % work through string
 186         ( ) dup 0 4 -1 roll put % create one character string
 187         charheight              % measure it's height
 188         dup ury gt {            % if ury gt heightmax
 189             /ury exch def       % update with new value
 190         } {
 191             pop                 % else discard ury
 192         } ifelse
 193         dup lly lt {            % if lly lt heightmin
 194             /lly exch def       % update with new value
 195         } {
 196             pop                 % else discard lly
 197         } ifelse
 198     } forall
 199     lly ury                     % Return the results
 200 } bind def
 201
 202 % calculate the string width taking into account the escapes.
 203 /mystrx 0.0 def
 204 /mystry 0.0 def
 205 /mystresc false def
 206
 207 /mystringwidth {
 208     /mystrx 0.0 def
 209     /mystry 0.0 def
 210     /mystresc false def
 211     {                           % work through string
 212         % did we process the escape character last?
 213         mystresc {
 214             % last character was escape
 215             % handle the escape
 216             % is it an _ = 95?
 217             dup 95 eq {
 218                 pop  % we don't need the character anymore
 219                 % toggle drawing overbars
 220                 0.0 0.0 % make it like it never happened...
 221             } {
 222                 % otherwise measure the character
 223                 (\\ ) dup 1 4 -1 roll put % count a \ and the character
 224                 stringwidth
 225             } ifelse
 226             % and reset the flag
 227             /mystresc false def
 228         } {
 229             % last character was not escape
 230             % is this escape
 231             dup 92 eq {
 232                 % yes, escape character, set flag
 233                 /mystresc true def
 234                 pop % drop character
 235                 0.0 0.0 % make like this character has no width and height
 236             } {
 237                 ( ) dup 0 4 -1 roll put % create one character string
 238                 stringwidth             % measure it's height/width
 239             } ifelse
 240         } ifelse
 241         % accumulate x and y movements
 242         mystry add /mystry exch def
 243         mystrx add /mystrx exch def
 244     } forall
 245     mystrx mystry % drop results on stack
 246 } bind def
 247
 248 % Render a string with overbars
 249 %
 250 /escaped false def
 251 /drawoverbar false def
 252 /fontsize 0.0 def
 253
 254 %string1 string2 append -
 255 /append {
 256     2 copy length exch length add % find new length
 257     string dup % string1 string2 string string
 258     4 2 roll % string string string1 string2
 259     2 index 0 3 index
 260     % string string string1 string2 string 0 string1
 261     putinterval % string string string1 string2
 262     exch length exch putinterval
 263 } bind def
 264
 265 % If drawoverbar is set, draw a line of the same length as the given string
 266 % string overbarshowline -
 267 /overbarshowline {
 268     % print overbar if necessary
 269     stringwidth pop 0
 270     drawoverbar {
 271         rlineto
 272         gsave stroke grestore
 273     } {
 274         rmoveto
 275     } ifelse
 276 } bind def
 277
 278 % Draws overbars for the given string, then shows the string itself
 279 % string overbarshow
 280 /overbarshow {
 281     /overbarshowacc () def
 282     /overbarshowtxt () def
 283
 284     gsave
 285     fontsize 10.0 div setlinewidth
 286     0 fontsize rmoveto  % move to (0,overbarheight)
 287
 288     {                           % work through string
 289         escaped {
 290             % the last character was the escape
 291             % handle the escape
 292             % is it an _ = 95?
 293             dup 95 eq {
 294                 pop  % we don't need the character anymore
 295                 overbarshowacc overbarshowline
 296                 % toggle drawing overbars
 297                 /drawoverbar drawoverbar not def
 298
 299                 % Append the contents off the accumulator to the text
 300                 % string we're eventually going to show
 301                 /overbarshowtxt overbarshowtxt overbarshowacc append def
 302
 303                 % clear accumulator
 304                 /overbarshowacc () def
 305             } {
 306                 % add to accumulator
 307                 (\\ ) dup 1 4 -1 roll put
 308                 overbarshowacc exch append
 309                 /overbarshowacc exch def
 310             } ifelse
 311             % and reset the flag
 312             /escaped false def
 313         } {
 314             % check for escape character \ = 92
 315             dup 92 eq {
 316                 % yes, escape character, set flag
 317                 /escaped true def
 318                 pop % drop character
 319             } {
 320                 % add to accumulator
 321                 ( ) dup 0 4 -1 roll put
 322                 overbarshowacc exch append
 323                 /overbarshowacc exch def
 324             } ifelse
 325         } ifelse
 326     } forall
 327     % Catch any leftovers
 328     overbarshowacc overbarshowline
 329     overbarshowtxt overbarshowacc append
 330
 331     grestore
 332     show
 333 } bind def
 334
 335 %
 336 % hcenter rjustify vcenter vjustify spacing [(line1) (line2) ... ] rot x y size text -
 337 /stringw 0.0 def
 338 /stringh 0.0 def
 339 /spacing 0.0 def
 340 /strings [ ] def
 341 /stringtxt ( ) def
 342 /stringcount 0 def
 343 /rot 0.0 def
 344
 345 /text {
 346     gsave               % save state for later
 347     /drawoverbar false def      % start by not drawing overbars
 348
 349     dup /fontsize exch def  % save font size for corrections later
 350     % do font selection
 351     /gEDAFont findfont
 352     exch scalefont
 353     setfont
 354
 355     % set up coordinates
 356     translate           % move origin to given point
 357     rotate              % rotate so that text is drawn
 358     0 0 moveto
 359     dup length /stringcount exch def                    % Get number of strings
 360     /strings exch def                                   % save strings
 361     /spacing exch def
 362     % do we have more than 1 string to render?
 363     stringcount 1 eq {
 364         /stringtxt strings aload pop def                % get the string
 365         /stringw stringtxt mystringwidth pop neg def    % get the -width
 366         /stringh stringtxt stringheight exch pop neg def% get the -height
 367
 368         % First do vertical calculations
 369         % hcenter rjustify vcenter vjustify
 370         % vertical justification
 371         { 0 stringh rmoveto } if
 372         % vertical center
 373         { 0 stringh 0.3571425 mul rmoveto } if  % not 0.5, so that
 374                                                 % it looks nicer
 375         % Then do horizontal calculations
 376         % right justify
 377         { stringw 0 rmoveto } if
 378         % center
 379         { stringw 2.0 div 0 rmoveto } if
 380         % Draw the text
 381         stringtxt overbarshow
 382     } {
 383         % More than one line, compute bounding box for the text
 384
 385         % vertical height, don't use the actual hieght of the characters
 386         % assume that the user wants to make the baselines line up with two
 387         % text boxes placed side by side
 388         /stringh stringcount spacing mul neg def
 389         % Now figure out horizontal size, this amounts to keeping track
 390         % of the longest string
 391         /stringw 0.0 def
 392         strings {
 393             mystringwidth pop
 394             dup stringw gt {
 395                 /stringw exch def
 396             } {
 397                 pop
 398             } ifelse
 399         } forall
 400         /stringw stringw neg def        % get the -width
 401
 402         % First do vertical calculations
 403         % hcenter rjustify vcenter vjustify
 404         % vertical justification
 405         { 0 stringh fontsize add rmoveto } if
 406         % vertical center
 407         { 0 stringh 0.5 mul rmoveto } if
 408         % Then do horizontal calculations
 409         % right justify
 410         { stringw 0 rmoveto } if
 411         % center
 412         { stringw 2.0 div 0 rmoveto } if
 413         % now move up to the first line and begin rendering
 414         0 stringcount 1 sub spacing mul rmoveto
 415         strings {
 416             gsave               % Save starting point
 417             overbarshow         % render the text
 418             grestore
 419             0 spacing neg rmoveto
 420         } forall
 421     } ifelse
 422     grestore    % Restore old state
 423 } bind def
 424
 425