picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

7fach.eps (9091B)


      1 %!PS-Adobe-3.0 EPSF-3.0
      2 %%For: Josef Bartl
      3 %%CreationDate: Tue Feb 18 11:34:19 2003
      4 %%Creator: Sketch 0.6.7
      5 %%Pages: 1
      6 %%BoundingBox: 35 63 232 148
      7 %%Extensions: CMYK
      8 %%DocumentSuppliedResources: (atend)
      9 %%DocumentNeededResources: font NewCenturySchlbk-Italic
     10 %%EndComments
     11 
     12 %%BeginProlog
     13 %%BeginResource: procset Linux-Sketch-Procset 1.0 2
     14 /SketchDict 100 dict def
     15 SketchDict begin
     16 /bd { bind def } bind def
     17 /x { exch } bd
     18 /xd { exch def } bd
     19 /PI 3.14159265358979323846264338327 def
     20 /radgrad { 180 mul PI div } bd
     21 /skstartmatrix matrix currentmatrix def
     22 /tmpmat matrix def
     23 /ISOLatin1Encoding dup where
     24 { pop pop }
     25 {  [/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
     26 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
     27 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
     28 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
     29 /.notdef /space /exclam /quotedbl /numbersign /dollar /percent /ampersand
     30 /quoteright /parenleft /parenright /asterisk /plus /comma /minus /period
     31 /slash /zero /one /two /three /four /five /six /seven /eight /nine /colon
     32 /semicolon /less /equal /greater /question /at /A /B /C /D /E /F /G /H /I /J
     33 /K /L /M /N /O /P /Q /R /S /T /U /V /W /X /Y /Z /bracketleft /backslash
     34 /bracketright /asciicircum /underscore /quoteleft /a /b /c /d /e /f /g /h /i
     35 /j /k /l /m /n /o /p /q /r /s /t /u /v /w /x /y /z /braceleft /bar /braceright
     36 /asciitilde /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
     37 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
     38 /.notdef /.notdef /dotlessi /grave /acute /circumflex /tilde /macron /breve
     39 /dotaccent /dieresis /.notdef /ring /cedilla /.notdef /hungarumlaut /ogonek
     40 /caron /space /exclamdown /cent /sterling /currency /yen /brokenbar /section
     41 /dieresis /copyright /ordfeminine /guillemotleft /logicalnot /hyphen
     42 /registered /macron /degree /plusminus /twosuperior /threesuperior /acute /mu
     43 /paragraph /periodcentered /cedilla /onesuperior /ordmasculine /guillemotright
     44 /onequarter /onehalf /threequarters /questiondown /Agrave /Aacute /Acircumflex
     45 /Atilde /Adieresis /Aring /AE /Ccedilla /Egrave /Eacute /Ecircumflex
     46 /Edieresis /Igrave /Iacute /Icircumflex /Idieresis /Eth /Ntilde /Ograve
     47 /Oacute /Ocircumflex /Otilde /Odieresis /multiply /Oslash /Ugrave /Uacute
     48 /Ucircumflex /Udieresis /Yacute /Thorn /germandbls /agrave /aacute
     49 /acircumflex /atilde /adieresis /aring /ae /ccedilla /egrave /eacute
     50 /ecircumflex /edieresis /igrave /iacute /icircumflex /idieresis /eth /ntilde
     51 /ograve /oacute /ocircumflex /otilde /odieresis /divide /oslash /ugrave
     52 /uacute /ucircumflex /udieresis /yacute /thorn /ydieresis] def
     53 }
     54 ifelse
     55 /arct dup where
     56 {pop pop}
     57 {
     58 /arct {arcto pop pop pop pop} bd
     59 }
     60 ifelse
     61 /size 0 def
     62 /fontname 0 def
     63 /newfont 0 def
     64 /sf {
     65 /size xd
     66 /fontname xd
     67 fontname findfont
     68 dup /Encoding get StandardEncoding eq
     69 {
     70 dup
     71 length dict /newfont xd
     72 {
     73 1 index
     74 /FID ne
     75 { newfont 3 1 roll put }
     76 { pop pop }
     77 ifelse
     78 } forall
     79 newfont /Encoding ISOLatin1Encoding put
     80 fontname newfont definefont
     81 }
     82 if
     83 size scalefont setfont
     84 } bd
     85 /pusht {matrix currentmatrix} bd
     86 /popt {setmatrix} bd
     87 /pushc {gsave} bd
     88 /popc {grestore} bd
     89 /rgb {setrgbcolor} bd
     90 /w { setlinewidth } bd
     91 /j { setlinejoin } bd
     92 /J { setlinecap } bd
     93 /d { setdash } bd
     94 /F { eofill } bd
     95 /f { closepath F } bd
     96 /S {
     97 pusht
     98 skstartmatrix setmatrix stroke 
     99 popt
    100 } bd
    101 /s { closepath S } bd
    102 /m { moveto } bd
    103 /l { lineto } bd
    104 /c { curveto } bd
    105 /txt {
    106 /tmpmat tmpmat currentmatrix def
    107 dup type /arraytype eq {concat} {translate} ifelse
    108 0 0 m
    109 tmpmat
    110 } bd
    111 /T {txt x show popt} bd
    112 /P {txt x true charpath popt} bd
    113 /TP {txt x dup show 0 0 m true charpath popt} bd
    114 /C {newpath 0 360 arc} bd
    115 /R {
    116 2 copy m
    117 x 2 index l
    118 x 2 index x l
    119 l
    120 closepath
    121 } bd
    122 /ellipse { 
    123 dup type /arraytype eq
    124 {
    125 pusht x concat
    126 0 0 1.0 C 
    127 popt
    128 }	
    129 {
    130 pusht 5 1 roll
    131 4 -1 roll concat
    132 newpath
    133 dup 2 eq {
    134 0 0 m 
    135 } if 
    136 3 1 roll
    137 radgrad x
    138 radgrad x
    139 0 0 1   5 -2 roll
    140 arc
    141 0 ne { closepath } if
    142 popt
    143 }
    144 ifelse
    145 } bd
    146 /radius1 0 def
    147 /radius2 0 def
    148 /factor 0 def
    149 /rect {
    150 dup type /arraytype eq
    151 {
    152 pusht x concat
    153 0 0 m  1 0 l  1 1 l  0 1 l  closepath
    154 popt
    155 }
    156 {
    157 /radius2 xd
    158 /radius1 xd
    159 pusht x concat
    160 radius1 radius2 div  1  scale
    161 0 radius2 m
    162 0 1  radius2 1  radius2  arct
    163 radius2 radius1 div
    164 dup 1  1 index 0  radius2  arct
    165 0  0 0  radius2  arct
    166 0 0  0 1  radius2 arct
    167 closepath
    168 popt
    169 }
    170 ifelse
    171 } bd
    172 /buf 0 def
    173 /width 0 def
    174 /height 0 def
    175 /skcimg {
    176 /tmpmat tmpmat currentmatrix def
    177 { concat } if
    178 /height xd
    179 /width xd
    180 /buf width 3 mul string def
    181 width height scale
    182 width height 8
    183 [width	 0   0	 height neg	  0  height]
    184 { currentfile buf readhexstring pop } bind
    185 false 3 colorimage
    186 tmpmat setmatrix
    187 } bd
    188 /skgimg {
    189 /tmpmat tmpmat currentmatrix def
    190 { concat } if
    191 /height xd
    192 /width xd
    193 /buf width string def
    194 width height scale
    195 width height 8
    196 [width	 0   0	 height neg	  0  height]
    197 { currentfile buf readhexstring pop } bind
    198 image
    199 tmpmat setmatrix
    200 } bd
    201 /rclip {
    202 4 2 roll m
    203 dup 0 x rlineto
    204 x 0 rlineto
    205 neg 0 x rlineto
    206 closepath
    207 clip
    208 } bd
    209 /skeps {
    210 10 dict begin
    211 /sk_state save def
    212 concat
    213 3 index neg 3 index neg translate
    214 rclip
    215 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin
    216 10 setmiterlimit [ ] 0 setdash
    217 newpath
    218 /sk_dict_count countdictstack def
    219 /sk_count count 1 sub def
    220 userdict begin
    221 /showpage { } def
    222 /languagelevel where
    223 {
    224 pop
    225 languagelevel 1 ne
    226 {
    227 false setstrokeadjust
    228 false setoverprint
    229 } if
    230 } if
    231 } bd 
    232 /skepsend {
    233 count sk_count sub { pop } repeat
    234 countdictstack sk_dict_count sub { end } repeat
    235 sk_state restore
    236 end
    237 } bd
    238 /gradidx 0 def
    239 /gradient { 
    240 3 mul array
    241 /gradidx 0 def
    242 } bd
    243 /$ {
    244 3 index gradidx       5 -1 roll put 
    245 2 index gradidx 1 add 4 -1 roll put 
    246 1 index gradidx 2 add 3 -1 roll put 
    247 /gradidx gradidx 3 add def
    248 } bd
    249 /! { 
    250 3 
    251 {
    252 dup dup gradidx dup 3 1 roll 3 sub get put
    253 /gradidx gradidx 1 add def
    254 }
    255 repeat
    256 } bd
    257 /gradcolor {
    258 3 mul dup 2 add 1 exch	% idx  1  idx+2
    259 {
    260 1 index exch	% array array i
    261 get		% array component
    262 exch		% component array
    263 }
    264 for
    265 4 1 roll
    266 } bd
    267 /x0 0 def /y0 0 def /x1 0 def /y1 0 def
    268 /left 0 def /right 0 def /top 0 def /bottom 0 def
    269 /numcolors 0 def
    270 /axial	{
    271 /y1 xd /x1 xd /y0 xd /x0 xd
    272 dup length 3 idiv /numcolors xd
    273 pusht exch  % ctm array
    274 x0 x1 ne y0 y1 ne or
    275 {
    276 x0 y0 translate
    277 [x1 x0 sub  y1 y0 sub	dup neg    2 index    0	    0] concat
    278 clippath flattenpath pathbbox
    279 /top xd /right xd /bottom xd /left xd
    280 newpath
    281 0 gradcolor rgb clippath f
    282 0 1 numcolors 1 sub
    283 {
    284 dup numcolors div
    285 3 1 roll
    286 gradcolor rgb
    287 exch
    288 bottom right top R f
    289 }
    290 for
    291 }
    292 if 
    293 pop
    294 popt
    295 } bd
    296 /r0 0 def /r1 0 def /dr 0 def
    297 /radial	{
    298 /r1 xd /r0 xd /y0 xd /x0 xd
    299 /dr r1 r0 sub def
    300 dup length 3 idiv /numcolors xd
    301 pusht exch  % ctm array
    302 r0 r1 ne
    303 {
    304 x0 y0 translate
    305 clippath flattenpath pathbbox
    306 /top xd /right xd /bottom xd /left xd
    307 newpath
    308 dr 0 gt {numcolors 1 sub}{0} ifelse gradcolor rgb
    309 clippath f
    310 dr 0 gt {numcolors 1 sub -1 0} { 0 1 numcolors 1 sub} ifelse
    311 {
    312 dup numcolors div dr mul r0 add
    313 3 1 roll
    314 gradcolor rgb
    315 exch
    316 0 0 3 -1 roll C f
    317 }
    318 for
    319 }
    320 if 
    321 pop
    322 popt
    323 } bd
    324 /max {
    325 2 copy lt {exch} if pop
    326 } bd
    327 /conical {
    328 pusht 5 1 roll
    329 3 1 roll /y0 xd /x0 xd
    330 x0 y0 translate
    331 radgrad rotate
    332 dup length 3 idiv /numcolors xd
    333 clippath flattenpath pathbbox newpath
    334 4 { abs 4 1 roll} repeat
    335 3 { max } repeat
    336 2 mul
    337 dup scale
    338 0 gradcolor rgb
    339 0 0 1 0 360 arc f
    340 1 1 numcolors 1 sub
    341 {
    342 dup numcolors div 180 mul
    343 3 1 roll
    344 gradcolor rgb
    345 exch
    346 0 0 moveto
    347 0 0 1  4 -1 roll  dup neg  arc
    348 closepath f
    349 }
    350 for
    351 pop
    352 popt
    353 } bd
    354 /XStep 0 def /YStep 0 def /imagedata 0 def /components 0 def
    355 /tileimage2 {
    356 exch 4 2 roll
    357 /height xd
    358 /width xd
    359 mark
    360 /components 2 index
    361 /PatternType 1
    362 /PaintType 1
    363 /TilingType 1
    364 /BBox [0 0 width height]
    365 /XStep width
    366 /YStep height
    367 /PaintProc {
    368 begin
    369 XStep YStep 8
    370 matrix
    371 imagedata
    372 false
    373 components
    374 colorimage
    375 end
    376 }
    377 counttomark 2 div cvi dup dict begin
    378 { def } repeat
    379 pop currentdict end
    380 dup
    381 /imagedata
    382 4 -1 roll
    383 width height mul mul string
    384 currentfile exch readhexstring pop
    385 put
    386 exch
    387 makepattern
    388 setpattern
    389 clippath
    390 eofill
    391 } bd
    392 /tileimage1 {
    393 concat
    394 /components xd
    395 /height xd
    396 /width xd
    397 /imagedata
    398 currentfile
    399 width height mul components mul string
    400 readhexstring pop
    401 def
    402 clippath flattenpath pathbbox
    403 /top xd /right xd /bottom xd /left xd
    404 left width div floor width mul
    405 bottom height div floor height mul
    406 translate
    407 top bottom sub height div ceiling cvi
    408 {
    409 gsave
    410 right left sub width div ceiling cvi
    411 {
    412 width height 8 matrix
    413 components 1 eq
    414 {
    415 { imagedata }
    416 image
    417 }
    418 {
    419 imagedata
    420 false components
    421 colorimage
    422 }
    423 ifelse
    424 width 0 translate
    425 }
    426 repeat
    427 grestore
    428 0 height translate
    429 }
    430 repeat
    431 } bd
    432 /makepattern where
    433 {
    434 pop
    435 /tileimage /tileimage2 load def
    436 }
    437 {
    438 /tileimage /tileimage1 load def
    439 }
    440 ifelse
    441 end
    442 %%EndResource
    443 %%EndProlog
    444 
    445 %%BeginSetup
    446 %%IncludeResource: font NewCenturySchlbk-Italic
    447 
    448 10.433 setmiterlimit
    449 %%EndSetup
    450 
    451 %%Page: 1 1
    452 SketchDict begin
    453 /NewCenturySchlbk-Italic 72 sf
    454 (7)
    455 [1 0.0774195 0 1 38.5322 74.5729] 0 0.475 0 rgb
    456 T
    457 (f)
    458 [1 0.0774195 0 1 82.704 81.2248] 0.354 0.335 0.676 rgb
    459 T
    460 (a)
    461 [1 0.0774195 0 1 111.793 83.4768] 0.667 0 0 rgb
    462 T
    463 (c)
    464 [1 0.0774195 0 1 154.887 86.8132] 0.747 0.609 0.241 rgb
    465 T
    466 (h)
    467 [1 0.0774195 0 1 189.363 89.4823] 0.001 0 0.67 rgb
    468 T
    469 %%PageTrailer
    470 %%Trailer
    471 end
    472 %%DocumentSuppliedResources: procset Linux-Sketch-Procset 1.0 2
    473 %%EOF