examples/USAflag.ps

   1 %!PS-Adobe-3.0 EPSF-3.0
   2 %%Title: USAflag
   3 %%Creator: Xcircuit v1.6
   4 %%CreationDate: Sat Aug 16 09:29:46 1997
   5 %%Pages: 1
   6 %%BoundingBox: 68 68 868 544
   7 %%DocumentNeededResources:
   8 %%EndComments
   9 %%BeginProlog
  10 %
  11 %  PostScript prolog for output from xcircuit
  12 %  Version: 1.6
  13 %
  14 %  Electrical circuit (and otherwise general) drawing program
  15 %
  16 %  Written by Tim Edwards 8/5/93--8/8/97  (tim@bach.ece.jhu.edu)
  17 %  The Johns Hopkins University
  18 %
  19 %%BeginResource: procset XCIRCproc 1.6 2
  20 % supporting definitions --- these are the primary xcircuit types.
  21
  22 /XCIRCsave save def
  23 /topmat matrix currentmatrix def
  24
  25 /fontslant { /slant exch def [1 0 slant 1 0 0]
  26     exch findfont exch makefont dup length dict /ndict exch def
  27     { 1 index /FID ne { ndict 3 1 roll put } { pop pop } ifelse } forall
  28     ndict definefont pop} def
  29 /cf { dup type /realtype eq {40 mul /fscale exch def} if dup /xfont exch def
  30    findfont fscale scalefont setfont } def
  31 /Ss { gsave 0.67 dup scale gsave mty neg rmoveto
  32    glevel 1 add /glevel exch def } def
  33 /ss { gsave 0.67 dup scale gsave mty 0.5 mul rmoveto
  34    glevel 1 add /glevel exch def } def
  35 /ns { currentpoint transform   % preserve x position!
  36    glevel {grestore} repeat /glevel 0 def
  37    itransform pop currentpoint pop sub 0 rmoveto } def
  38 /ul { showflag 1 eq { gsave
  39    currentpoint topmat setmatrix 0 0 moveto 2 index stringwidth pop (_)
  40    false charpath flattenpath pathbbox grestore exch pop 1 index
  41    sub setlinewidth exch pop currentpoint 3 -1 roll add moveto 0
  42    rlineto stroke moveto } if } def
  43 /ol { showflag 1 eq { gsave gsave
  44    currentpoint topmat setmatrix 2 index stringwidth pop 3 index
  45    true charpath flattenpath pathbbox grestore exch pop
  46    exch pop topmat setmatrix (_) true charpath pathbbox grestore
  47    exch pop 1 index sub setlinewidth exch pop currentpoint
  48    exch 4 1 roll exch sub add moveto pop 0 rlineto stroke
  49    moveto } if } def
  50 /bs { gsave true charpath flattenpath pathbbox pop exch pop sub
  51    grestore 0 rmoveto } def
  52 /textx { dup 2 mul 1 add copy 0 exch
  53    { exch exec exch stringwidth pop add } repeat neg ns } def
  54 /mty { 0 topmat setmatrix (A) true charpath flattenpath pathbbox exch
  55    pop exch sub exch pop neg grestore } def
  56 /texty { gsave 2 copy pop exec mty } def
  57 /tcenter { textx grestore 0.5 mul 0 rmoveto } def
  58 /tright  { textx grestore 0 rmoveto } def
  59 /tmiddle { texty 0.5 mul rmoveto } def
  60 /ttop    { texty rmoveto } def
  61 /tshow { { exec show } repeat ns } def
  62
  63 /label { gsave translate 0 0 moveto rotate /just exch def
  64       /glevel 0 def /showflag 0 def
  65       just 1 and 0 gt {gsave just 2 and 0 gt {tright}{tcenter} ifelse} if
  66       just 4 and 0 gt {just 8 and 0 gt {ttop}{tmiddle}   ifelse} if
  67       /showflag 1 def tshow grestore } def
  68
  69 /begingate { gsave translate 0 0 moveto dup 0 lt {neg 1 sub -1 1 scale} if
  70         rotate dup scale } bind def
  71 /endgate { grestore } bind def
  72
  73 /tmpa [1 0 0 1 0 0] def
  74 /gar {8 8 true tmpa {<c0 c0 00 00 0c 0c 00 00>} imagemask} bind
  75 {8 8 true tmpa {<30 70 60 02 03 07 06 20>} imagemask} bind
  76 {8 8 true tmpa {<0c 1e 1e 0c c0 e1 e1 c0>} imagemask} bind
  77 {8 8 true tmpa {<0f 0f 0f 0f f0 f0 f0 f0>} imagemask} bind
  78 {8 8 true tmpa {<3f f3 e1 e1 f3 3f 1e 1e>} imagemask} bind
  79 {8 8 true tmpa {<df cf 8f 9f fd fc f8 f9>} imagemask} bind
  80 {8 8 true tmpa {<ff 3f 3f ff ff f3 f3 ff>} imagemask} bind 7 array astore def
  81 /ppaint { gsave tmpa pathbbox clip transform neg exch neg 4 2 roll transform
  82   neg 4 -1 roll 2 copy gt {exch} if 8 div ceiling 8 mul 4 2 roll neg 2 copy
  83   gt {exch} if 8 div ceiling 8 mul 3 -1 roll -8 5 -1 roll
  84   [1 0 0 1 0 0] setmatrix { 3 index exch 5 exch put dup -8 3 index { 3 index
  85   exch 4 exch put 3 index exec } for } for pop pop pop pop grestore } bind def
  86 /setstyles {
  87   currentlinewidth mul setlinewidth /style exch def
  88   style 1 and 0 gt not {closepath} if
  89   style 2 and 0 gt {currentlinewidth 4 mul dup 2 array astore 0 setdash} if
  90   style 4 and 0 gt {0.5 currentlinewidth 4 mul 2 array astore 0 setdash} if
  91   style dup 256 gt exch 480 lt and { gsave 1 setgray eofill grestore } if
  92   style 16 and 0 gt { gsave style 224 and -5 bitshift dup 7 lt
  93         {gar exch get ppaint} { pop eofill } ifelse grestore } if
  94   style 8 and 0 gt { newpath } { stroke } ifelse grestore } def
  95 /scb { gsave setrgbcolor } bind def  /sce { grestore } bind def
  96
  97 /polygon { gsave /num exch def moveto num 1 sub {lineto} repeat setstyles } def
  98 /xcarc   { gsave newpath arc setstyles } def
  99 /elb { matrix currentmatrix 7 -1 roll 7 -1 roll translate 5 1 roll 4 -1 roll
 100         3 index div 1 scale } def
 101 /ele { 0 4 1 roll 0 4 1 roll } bind def
 102 /ellipse { gsave elb newpath ele arc setmatrix setstyles } def
 103 /pellip  { elb ele arc setmatrix } def
 104 /nellip  { elb ele arcn setmatrix } def
 105 /spline  { gsave moveto curveto setstyles } def
 106 /polyc   { {lineto} repeat } bind def
 107 /beginpath { gsave moveto } bind def
 108 /endpath { setstyles } bind def
 109 /bop     { 1 setlinecap 0 setlinejoin 0 setgray } def
 110 /inchscale  {0.375 mul dup scale} def
 111 /cmscale    {0.35433071 mul dup scale} def
 112
 113 %%EndResource
 114 %%EndProlog
 115
 116 % XCircuit output starts here.
 117
 118 /star {
 119 % -128 -112 256 240 bbox
 120 begingate
 121 240  1.00 -32 32 -128 32 -50 -22 -80 -112 0 -56 80 -112 50 -22 128 32 32 32
 122 0 128 10 polygon
 123 endgate
 124 } def
 125
 126 %%Page: 1 1
 127 /pgsave save def bop
 128 % 192 768 offsets
 129 1.0000 inchscale
 130 2.6000 setlinewidth
 131
 132 0.000 0.000 0.810 scb
 133 240  1.00 192 768 192 1440 1152 1440 1152 768 4 polygon
 134 sce
 135 1.000 1.000 1.000 scb
 136 240  1.00 192 480 192 576 2304 576 2304 480 4 polygon
 137 0.20 0 432 976 star
 138 0.20 0 592 976 star
 139 0.20 0 832 1040 star
 140 0.20 0 992 1296 star
 141 0.20 0 672 1168 star
 142 0.20 0 672 1296 star
 143 0.20 0 672 1040 star
 144 0.20 0 832 1296 star
 145 0.20 0 992 1168 star
 146 0.20 0 832 1168 star
 147 sce
 148 0.984 0.079 0.254 scb
 149 240  1.00 1152 1152 1152 1248 2304 1248 2304 1152 4 polygon
 150 240  1.00 1152 960 1152 1056 2304 1056 2304 960 4 polygon
 151 240  1.00 192 576 192 672 2304 672 2304 576 4 polygon
 152 sce
 153 1.000 1.000 1.000 scb
 154 0.20 0 592 1104 star
 155 sce
 156 0.984 0.079 0.254 scb
 157 240  1.00 1152 1344 1152 1440 2304 1440 2304 1344 4 polygon
 158 240  1.00 192 384 192 480 2304 480 2304 384 4 polygon
 159 sce
 160 1.000 1.000 1.000 scb
 161 0.20 0 752 848 star
 162 0.20 0 1072 848 star
 163 0.20 0 912 848 star
 164 0.20 0 672 912 star
 165 0.20 0 992 1040 star
 166 0.20 0 832 912 star
 167 0.20 0 992 912 star
 168 0.20 0 352 1040 star
 169 0.20 0 512 1296 star
 170 0.20 0 272 1232 star
 171 0.20 0 272 1360 star
 172 0.20 0 272 1104 star
 173 0.20 0 352 1296 star
 174 0.20 0 512 1168 star
 175 0.20 0 352 1168 star
 176 0.20 0 272 848 star
 177 0.20 0 592 848 star
 178 0.20 0 432 848 star
 179 0.20 0 272 976 star
 180 0.20 0 512 1040 star
 181 0.20 0 352 912 star
 182 0.20 0 512 912 star
 183 0.20 0 912 1104 star
 184 0.20 0 1072 1360 star
 185 0.20 0 752 1232 star
 186 0.20 0 752 1360 star
 187 0.20 0 752 1104 star
 188 0.20 0 912 1360 star
 189 0.20 0 1072 1232 star
 190 0.20 0 912 1232 star
 191 0.20 0 752 976 star
 192 0.20 0 1072 1104 star
 193 0.20 0 912 976 star
 194 0.20 0 1072 976 star
 195 0.20 0 432 1104 star
 196 0.20 0 592 1360 star
 197 0.20 0 432 1360 star
 198 0.20 0 592 1232 star
 199 0.20 0 432 1232 star
 200 sce
 201 0.984 0.079 0.254 scb
 202 240  1.00 192 192 192 288 2304 288 2304 192 4 polygon
 203 sce
 204 1.000 1.000 1.000 scb
 205 240  1.00 1152 1056 1152 1152 2304 1152 2304 1056 4 polygon
 206 240  1.00 1152 864 1152 960 2304 960 2304 864 4 polygon
 207 sce
 208 0.984 0.079 0.254 scb
 209 240  1.00 1152 768 1152 864 2304 864 2304 768 4 polygon
 210 sce
 211 1.000 1.000 1.000 scb
 212 240  1.00 2304 736 2304 768 2304 768 2304 736 4 polygon
 213 240  1.00 192 288 192 384 2304 384 2304 288 4 polygon
 214 240  1.00 192 672 192 768 2304 768 2304 672 4 polygon
 215 240  1.00 1152 1248 1152 1344 2304 1344 2304 1248 4 polygon
 216 sce
 217 pgsave restore showpage
 218
 219 %%Trailer
 220 XCIRCsave restore
 221 %%EOF