Compare commits
3 Commits
a4108305a2
...
4b5e847b57
| Author | SHA1 | Date |
|---|---|---|
 Adam Veldhousen
|
4b5e847b57
|
|
|
Adam Veldhousen
|
f211c3285d
|
|
|
Adam Veldhousen
|
d1c0369308
|
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,912 @@
|
|||
%!PS-Adobe-3.0 EPSF-3.0
|
||||
%APL_DSC_Encoding: UTF8
|
||||
%APLProducer: (Version 10.14.6 (Build 18G95) Quartz PS Context)
|
||||
%%Title: (Unknown)
|
||||
%%Creator: (Unknown)
|
||||
%%CreationDate: (Unknown)
|
||||
%%For: (Unknown)
|
||||
%%DocumentData: Clean7Bit
|
||||
%%LanguageLevel: 2
|
||||
%%Pages: 1
|
||||
%%BoundingBox: 0 0 1102 516
|
||||
%%EndComments
|
||||
%%BeginProlog
|
||||
%%BeginFile: cg-pdf.ps
|
||||
%%Copyright: Copyright 2000-2004 Apple Computer Incorporated.
|
||||
%%Copyright: All Rights Reserved.
|
||||
currentpacking true setpacking
|
||||
/cg_md 141 dict def
|
||||
cg_md begin
|
||||
/L3? languagelevel 3 ge def
|
||||
/bd{bind def}bind def
|
||||
/ld{load def}bd
|
||||
/xs{exch store}bd
|
||||
/xd{exch def}bd
|
||||
/cmmtx matrix def
|
||||
mark
|
||||
/sc/setcolor
|
||||
/scs/setcolorspace
|
||||
/dr/defineresource
|
||||
/fr/findresource
|
||||
/T/true
|
||||
/F/false
|
||||
/d/setdash
|
||||
/w/setlinewidth
|
||||
/J/setlinecap
|
||||
/j/setlinejoin
|
||||
/M/setmiterlimit
|
||||
/i/setflat
|
||||
/rc/rectclip
|
||||
/rf/rectfill
|
||||
/rs/rectstroke
|
||||
/f/fill
|
||||
/f*/eofill
|
||||
/sf/selectfont
|
||||
/s/show
|
||||
%/as/ashow
|
||||
/xS/xshow
|
||||
/yS/yshow
|
||||
/xyS/xyshow
|
||||
/S/stroke
|
||||
/m/moveto
|
||||
/l/lineto
|
||||
/c/curveto
|
||||
/h/closepath
|
||||
/n/newpath
|
||||
/q/gsave
|
||||
/Q/grestore
|
||||
counttomark 2 idiv
|
||||
%dup (number of ld's = )print == flush % *** how many
|
||||
{ld}repeat pop
|
||||
/SC{ % CSname
|
||||
/ColorSpace fr scs
|
||||
}bd
|
||||
/sopr /setoverprint where{pop/setoverprint}{/pop}ifelse ld
|
||||
/soprm /setoverprintmode where{pop/setoverprintmode}{/pop}ifelse ld
|
||||
/cgmtx matrix def
|
||||
/sdmtx{cgmtx currentmatrix pop}bd
|
||||
/CM {cgmtx setmatrix}bd % pop the ctm: our gstate ctm on host is now identity
|
||||
/cm {cmmtx astore CM concat}bd % reset the matrix and then concat
|
||||
/W{clip newpath}bd
|
||||
/W*{eoclip newpath}bd
|
||||
|
||||
statusdict begin product end dup (HP) anchorsearch{
|
||||
pop pop pop % pop off the search results
|
||||
true
|
||||
}{
|
||||
pop % previous search result
|
||||
(hp) anchorsearch{
|
||||
pop pop true
|
||||
}{
|
||||
pop false
|
||||
}ifelse
|
||||
}ifelse
|
||||
|
||||
{ % HP is the product: we use this method of stroking because of a bug in their clone printers with certain T3 fonts
|
||||
{
|
||||
{ % charCode Wx Wy
|
||||
pop pop % charCode
|
||||
(0)dup 0 4 -1 roll put
|
||||
F charpath
|
||||
}cshow
|
||||
}
|
||||
}{
|
||||
{F charpath}
|
||||
}ifelse
|
||||
/cply exch bd
|
||||
/cps {cply stroke}bd
|
||||
/pgsave 0 def
|
||||
/bp{/pgsave save store}bd
|
||||
/ep{pgsave restore showpage}def % dont' bind
|
||||
/re{4 2 roll m 1 index 0 rlineto 0 exch rlineto neg 0 rlineto h}bd
|
||||
|
||||
/scrdict 10 dict def
|
||||
/scrmtx matrix def
|
||||
/patarray 0 def
|
||||
/createpat{patarray 3 1 roll put}bd
|
||||
/makepat{
|
||||
scrmtx astore pop
|
||||
gsave
|
||||
initgraphics
|
||||
CM
|
||||
patarray exch get
|
||||
scrmtx
|
||||
makepattern
|
||||
grestore
|
||||
setpattern
|
||||
}bd
|
||||
|
||||
/cg_BeginEPSF{
|
||||
userdict save/cg_b4_Inc_state exch put
|
||||
userdict/cg_endepsf/cg_EndEPSF load put
|
||||
count userdict/cg_op_count 3 -1 roll put
|
||||
countdictstack dup array dictstack userdict/cg_dict_array 3 -1 roll put
|
||||
3 sub{end}repeat
|
||||
/showpage {} def
|
||||
0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin
|
||||
10 setmiterlimit [] 0 setdash newpath
|
||||
false setstrokeadjust false setoverprint % don't use F
|
||||
}bd
|
||||
/cg_EndEPSF{
|
||||
countdictstack 3 sub { end } repeat
|
||||
cg_dict_array 3 1 index length 3 sub getinterval
|
||||
{begin}forall
|
||||
count userdict/cg_op_count get sub{pop}repeat
|
||||
userdict/cg_b4_Inc_state get restore
|
||||
F setpacking
|
||||
}bd
|
||||
|
||||
/cg_biproc{currentfile/RunLengthDecode filter}bd
|
||||
/cg_aiproc{currentfile/ASCII85Decode filter/RunLengthDecode filter}bd
|
||||
/ImageDataSource 0 def
|
||||
L3?{
|
||||
/cg_mibiproc{pop pop/ImageDataSource{cg_biproc}def}bd
|
||||
/cg_miaiproc{pop pop/ImageDataSource{cg_aiproc}def}bd
|
||||
}{
|
||||
/ImageBandMask 0 def
|
||||
/ImageBandData 0 def
|
||||
/cg_mibiproc{
|
||||
string/ImageBandMask xs
|
||||
string/ImageBandData xs
|
||||
/ImageDataSource{[currentfile/RunLengthDecode filter dup ImageBandMask/readstring cvx
|
||||
/pop cvx dup ImageBandData/readstring cvx/pop cvx]cvx bind}bd
|
||||
}bd
|
||||
/cg_miaiproc{
|
||||
string/ImageBandMask xs
|
||||
string/ImageBandData xs
|
||||
/ImageDataSource{[currentfile/ASCII85Decode filter/RunLengthDecode filter
|
||||
dup ImageBandMask/readstring cvx
|
||||
/pop cvx dup ImageBandData/readstring cvx/pop cvx]cvx bind}bd
|
||||
}bd
|
||||
}ifelse
|
||||
/imsave 0 def
|
||||
/BI{save/imsave xd mark}bd
|
||||
/EI{imsave restore}bd
|
||||
/ID{
|
||||
counttomark 2 idiv
|
||||
dup 2 add % leave room for imagetype and imagematrix
|
||||
dict begin
|
||||
{def} repeat
|
||||
pop % remove mark
|
||||
/ImageType 1 def
|
||||
/ImageMatrix[Width 0 0 Height neg 0 Height]def
|
||||
currentdict dup/ImageMask known{ImageMask}{F}ifelse exch
|
||||
% currentdict on stack
|
||||
L3?{
|
||||
dup/MaskedImage known
|
||||
{
|
||||
pop
|
||||
<<
|
||||
/ImageType 3
|
||||
/InterleaveType 2
|
||||
/DataDict currentdict
|
||||
/MaskDict
|
||||
<< /ImageType 1
|
||||
/Width Width
|
||||
/Height Height
|
||||
/ImageMatrix ImageMatrix
|
||||
/BitsPerComponent 1
|
||||
/Decode [0 1]
|
||||
currentdict/Interpolate known
|
||||
{/Interpolate Interpolate}if
|
||||
>>
|
||||
>>
|
||||
}if
|
||||
}if
|
||||
exch
|
||||
{imagemask}{image}ifelse
|
||||
end % pop imagedict from dict stack
|
||||
}bd
|
||||
|
||||
/cguidfix{statusdict begin mark version end
|
||||
{cvr}stopped{cleartomark 0}{exch pop}ifelse
|
||||
2012 lt{dup findfont dup length dict begin
|
||||
{1 index/FID ne 2 index/UniqueID ne and
|
||||
{def} {pop pop} ifelse}forall
|
||||
currentdict end definefont pop
|
||||
}{pop}ifelse
|
||||
}bd
|
||||
/t_array 0 def
|
||||
/t_i 0 def
|
||||
/t_c 1 string def
|
||||
/x_proc{ % x y
|
||||
exch t_array t_i get add exch moveto
|
||||
/t_i t_i 1 add store
|
||||
}bd
|
||||
/y_proc{ % x y
|
||||
t_array t_i get add moveto
|
||||
/t_i t_i 1 add store
|
||||
}bd
|
||||
/xy_proc{
|
||||
% x y
|
||||
t_array t_i 2 copy 1 add get 3 1 roll get
|
||||
4 -1 roll add 3 1 roll add moveto
|
||||
/t_i t_i 2 add store
|
||||
}bd
|
||||
/sop 0 def % don't bind sop
|
||||
/cp_proc/x_proc ld % default moveto proc is for xwidths only
|
||||
/base_charpath % string array
|
||||
{
|
||||
/t_array xs
|
||||
/t_i 0 def
|
||||
{ % char
|
||||
t_c 0 3 -1 roll put
|
||||
currentpoint
|
||||
t_c cply sop
|
||||
cp_proc
|
||||
}forall
|
||||
/t_array 0 def
|
||||
}bd
|
||||
/sop/stroke ld % default sop is stroke. Done here so we don't bind in /base_charpath
|
||||
|
||||
% default sop is stroke
|
||||
/nop{}def
|
||||
/xsp/base_charpath ld
|
||||
/ysp{/cp_proc/y_proc ld base_charpath/cp_proc/x_proc ld}bd
|
||||
/xysp{/cp_proc/xy_proc ld base_charpath/cp_proc/x_proc ld}bd
|
||||
/xmp{/sop/nop ld /cp_proc/x_proc ld base_charpath/sop/stroke ld}bd
|
||||
/ymp{/sop/nop ld /cp_proc/y_proc ld base_charpath/sop/stroke ld}bd
|
||||
/xymp{/sop/nop ld /cp_proc/xy_proc ld base_charpath/sop/stroke ld}bd
|
||||
/refnt{ % newname encoding fontname
|
||||
findfont dup length dict copy dup
|
||||
/Encoding 4 -1 roll put
|
||||
definefont pop
|
||||
}bd
|
||||
/renmfont{ % newname fontname
|
||||
findfont dup length dict copy definefont pop
|
||||
}bd
|
||||
|
||||
L3? dup dup{save exch}if
|
||||
|
||||
% languagelevel2 ONLY code goes here
|
||||
|
||||
/Range 0 def
|
||||
/DataSource 0 def
|
||||
/val 0 def
|
||||
/nRange 0 def
|
||||
/mulRange 0 def
|
||||
/d0 0 def
|
||||
/r0 0 def
|
||||
/di 0 def
|
||||
/ri 0 def
|
||||
/a0 0 def
|
||||
/a1 0 def
|
||||
/r1 0 def
|
||||
/r2 0 def
|
||||
/dx 0 def
|
||||
/Nsteps 0 def
|
||||
/sh3tp 0 def
|
||||
/ymax 0 def
|
||||
/ymin 0 def
|
||||
/xmax 0 def
|
||||
/xmin 0 def
|
||||
|
||||
/setupFunEval % funDict -- % this calculates and sets up a function dict for evaulation.
|
||||
{
|
||||
begin
|
||||
/nRange Range length 2 idiv store
|
||||
/mulRange % precompute the range data needed to map a sample value from the table to a range value
|
||||
% this data looks like [ range0mul range0min range1mul range1min ... rangeN-1mul rangeN-1min ]
|
||||
[
|
||||
0 1 nRange 1 sub
|
||||
{ % index
|
||||
2 mul/nDim2 xd % 2*dimension# we are dealing with
|
||||
Range nDim2 get % ymin
|
||||
Range nDim2 1 add get % ymin ymax
|
||||
1 index sub % ymin (ymax-ymin)
|
||||
% xmin = 0, xmax = 255 (2^bitspersample - 1)
|
||||
255 div % ymin (ymax-ymin)/(xmax - xmin)
|
||||
exch % (ymax-ymin)/(xmax - xmin) ymin
|
||||
}for
|
||||
]store
|
||||
end
|
||||
}bd
|
||||
|
||||
/FunEval % val1 fundict -> comp1 comp2 ... compN
|
||||
{
|
||||
begin
|
||||
% the value passed in is the base index into the table
|
||||
nRange mul /val xd % compute the actual index to the table
|
||||
% since there are nRange entries per base index
|
||||
0 1 nRange 1 sub
|
||||
{
|
||||
dup 2 mul/nDim2 xd % dim
|
||||
val % base value to use to do our lookup
|
||||
add DataSource exch get % lookedupval
|
||||
mulRange nDim2 get mul % lookedupval*(ymax-ymin)/(xmax-xmin)
|
||||
mulRange nDim2 1 add get % lookedupval*(ymax-ymin)/(xmax-xmin) ymin
|
||||
add % interpolated result
|
||||
}for % comp1 comp2 ... compN
|
||||
end
|
||||
}bd
|
||||
|
||||
/max % a b -> max(a, b)
|
||||
{
|
||||
2 copy lt
|
||||
{exch pop}{pop}ifelse
|
||||
}bd
|
||||
|
||||
/sh2
|
||||
{ % emulation of shading type 2. Assumes shading dictionary is top dictionary on the dict stack
|
||||
/Coords load aload pop % x0 y0 x1 y1
|
||||
3 index 3 index translate % origin is now at beginning point of shading
|
||||
% x0 y0 x1 y1
|
||||
3 -1 roll sub % x0 x1 y1-y0
|
||||
3 1 roll exch % y1-y0 x1 x0
|
||||
sub % y1-y0 x1-x0
|
||||
2 copy
|
||||
dup mul exch dup mul add sqrt % length of segment between two points
|
||||
dup
|
||||
scale
|
||||
atan % atan (dy/dx)
|
||||
%dup (rotation angle = )print ==
|
||||
rotate % now line between 0,0 and 1,0 is the line perpendicular to which the axial lines are drawn
|
||||
|
||||
/Function load setupFunEval % may need to setup function dictionary by calling setupFunEval
|
||||
|
||||
% this is now specific to axial shadings. Compute the maximum bounds to fill
|
||||
clippath {pathbbox}stopped {0 0 0 0}if newpath % x0 y0 x1 y1
|
||||
/ymax xs
|
||||
/xmax xs
|
||||
/ymin xs
|
||||
/xmin xs
|
||||
currentdict/Extend known
|
||||
{
|
||||
/Extend load 0 get
|
||||
{
|
||||
0/Function load FunEval sc % evaluate the function to get a color and set it
|
||||
xmin ymin xmin abs ymax ymin sub rectfill
|
||||
}if
|
||||
}if
|
||||
% paint the rects. The sampling frequency is that of our table
|
||||
/Nsteps/Function load/Size get 0 get 1 sub store
|
||||
/dx 1 Nsteps div store
|
||||
gsave
|
||||
/di ymax ymin sub store
|
||||
/Function load
|
||||
% loop Nsteps + 1 times, incrementing the index by 1 each time
|
||||
0 1 Nsteps
|
||||
{
|
||||
1 index FunEval sc
|
||||
0 ymin dx di rectfill
|
||||
dx 0 translate
|
||||
}for
|
||||
pop % pop our function
|
||||
grestore % origin is back to start point
|
||||
currentdict/Extend known
|
||||
{
|
||||
/Extend load 1 get
|
||||
{
|
||||
Nsteps/Function load FunEval sc % last element
|
||||
1 ymin xmax 1 sub abs ymax ymin sub rectfill
|
||||
}if
|
||||
}if
|
||||
}bd
|
||||
|
||||
/shp % this paints our shape for shading type 3
|
||||
{ % x1 r1 x0 r0 -
|
||||
4 copy
|
||||
|
||||
% fill interior arc
|
||||
dup 0 gt{
|
||||
0 exch a1 a0 arc
|
||||
}{
|
||||
pop 0 moveto
|
||||
}ifelse
|
||||
|
||||
dup 0 gt{
|
||||
0 exch a0 a1 arcn
|
||||
}{
|
||||
pop 0 lineto
|
||||
}ifelse
|
||||
|
||||
fill
|
||||
|
||||
% fill exterior arc
|
||||
dup 0 gt{
|
||||
0 exch a0 a1 arc
|
||||
}{
|
||||
pop 0 moveto
|
||||
}ifelse
|
||||
|
||||
dup 0 gt{
|
||||
0 exch a1 a0 arcn
|
||||
}{
|
||||
pop 0 lineto
|
||||
}ifelse
|
||||
|
||||
fill
|
||||
}bd
|
||||
|
||||
/calcmaxs
|
||||
{ % calculate maximum distance vector from origin to corner points
|
||||
% of bbox
|
||||
xmin dup mul ymin dup mul add sqrt % (xmin2 + ymin2)
|
||||
xmax dup mul ymin dup mul add sqrt % (xmax2 + ymin2)
|
||||
xmin dup mul ymax dup mul add sqrt % (xmin2 + ymax2)
|
||||
xmax dup mul ymax dup mul add sqrt % (xmax2 + ymax2)
|
||||
max max max % maximum value
|
||||
}bd
|
||||
|
||||
/sh3
|
||||
{ % emulation of shading type 3. Assumes shading dictionary is top dictionary on the dict stack
|
||||
/Coords load aload pop % x0 y0 r1 x1 y1 r2
|
||||
5 index 5 index translate % origin is now at first circle origin
|
||||
3 -1 roll 6 -1 roll sub % y0 r1 y1 r2 dx
|
||||
3 -1 roll 5 -1 roll sub % r1 r2 dx dy
|
||||
2 copy dup mul exch dup mul add sqrt
|
||||
/dx xs % r1 r2 dx dy
|
||||
2 copy 0 ne exch 0 ne or
|
||||
{
|
||||
% r1 r2 dx dy
|
||||
exch atan rotate % we are now rotated so dy is zero and positive values of dx move us as expected
|
||||
}{
|
||||
pop pop
|
||||
}ifelse
|
||||
% r1 r2
|
||||
/r2 xs
|
||||
/r1 xs
|
||||
/Function load
|
||||
dup/Size get 0 get 1 sub % this is the size of our table minus 1
|
||||
/Nsteps xs % at some point we should optimize this better so NSteps is based on needed steps for the device
|
||||
setupFunEval % may need to setup function dictionary by calling setupFunEval
|
||||
% determine the case:
|
||||
% case 0: circle1 inside circle2
|
||||
% case 1: circle 2 inside circle 1
|
||||
% case 2: r1 = r2
|
||||
% case 3: r1 != r2
|
||||
dx r2 add r1 lt{
|
||||
% circle 2 inside of circle 1
|
||||
0
|
||||
}{
|
||||
dx r1 add r2 le
|
||||
{ % circle 1 inside of circle 2
|
||||
1
|
||||
}{ % circles don't contain each other
|
||||
r1 r2 eq
|
||||
{ % equal
|
||||
2
|
||||
}{ % r1 != r2
|
||||
3
|
||||
}ifelse
|
||||
}ifelse
|
||||
}ifelse
|
||||
/sh3tp xs % sh3tp has the number of our different cases
|
||||
clippath {pathbbox}stopped {0 0 0 0}if
|
||||
newpath % x0 y0 x1 y1
|
||||
/ymax xs
|
||||
/xmax xs
|
||||
/ymin xs
|
||||
/xmin xs
|
||||
|
||||
% Arc angle atan( sqrt((dx*dx + dy*dy) - dr*dr), dr)
|
||||
dx dup mul r2 r1 sub dup mul sub dup 0 gt
|
||||
{
|
||||
sqrt r2 r1 sub atan
|
||||
/a0 exch 180 exch sub store
|
||||
/a1 a0 neg store
|
||||
}{
|
||||
pop
|
||||
/a0 0 store
|
||||
/a1 360 store
|
||||
}ifelse
|
||||
|
||||
currentdict/Extend known
|
||||
{
|
||||
/Extend load 0 get r1 0 gt and % no need to extend if the radius of the first end is 0
|
||||
{
|
||||
0/Function load FunEval sc % evaluate the function to get a color and set it
|
||||
% case 0: circle1 inside circle2
|
||||
% case 1: circle 2 inside circle 1
|
||||
% case 2: circles don't contain each other and r1 == r2
|
||||
% case 3: circles don't contain each other and r1 != r2
|
||||
{
|
||||
{ % case 0
|
||||
dx 0 r1 360 0 arcn
|
||||
xmin ymin moveto
|
||||
xmax ymin lineto
|
||||
xmax ymax lineto
|
||||
xmin ymax lineto
|
||||
xmin ymin lineto
|
||||
eofill % for the bigger radius we fill everything except our circle
|
||||
}
|
||||
{ % case 1
|
||||
r1 0 gt{0 0 r1 0 360 arc fill}if
|
||||
}
|
||||
{ % case 2
|
||||
% r1 == r2, extend 0
|
||||
% r3 = r, x3 = -(abs(minx) + r), x1 = 0
|
||||
|
||||
% x(i+1) r(i+1) x(i) r(i) shp
|
||||
0 r1 xmin abs r1 add neg r1 shp
|
||||
}
|
||||
{ % case 3
|
||||
% no containment, r1 != r2
|
||||
|
||||
r2 r1 gt{ % the endpoint we are drawing is that with a circle of zero radius
|
||||
% x(i+1) r(i+1) x(i) r(i) shp
|
||||
0 r1
|
||||
r1 neg r2 r1 sub div dx mul % this is point of beginning circle
|
||||
0 % point of ending circle
|
||||
shp % takes x(i+1) r(i+1) x(i) r(i)
|
||||
}{ % the first circle is the bigger of the two
|
||||
% we find a circle on our line which is outside the bbox in the
|
||||
% negative direction
|
||||
% x(i+1) r(i+1) x(i) r(i) shp
|
||||
0 r1 calcmaxs % 0 r1 maxs
|
||||
dup
|
||||
% calculating xs: (-(maxs+r2)*x2)/(x2-(r1-r2))
|
||||
r2 add dx mul dx r1 r2 sub sub div
|
||||
neg % maxs xs'
|
||||
exch 1 index % xs' maxs xs'
|
||||
abs exch sub
|
||||
shp
|
||||
}ifelse
|
||||
}
|
||||
}sh3tp get exec % execute the extend at beginning proc for our shading type
|
||||
}if
|
||||
}if
|
||||
|
||||
% now do the shading
|
||||
/d0 0 store
|
||||
/r0 r1 store
|
||||
/di dx Nsteps div store
|
||||
/ri r2 r1 sub Nsteps div store
|
||||
/Function load
|
||||
0 1 Nsteps
|
||||
{ % function t(i)
|
||||
1 index FunEval sc
|
||||
d0 di add r0 ri add d0 r0 shp
|
||||
{
|
||||
% fill interior arc
|
||||
d0 0 r0 a1 a0 arc
|
||||
d0 di add 0 r0 ri add a0 a1 arcn
|
||||
fill
|
||||
|
||||
% fill exterior arc
|
||||
d0 0 r0 a0 a1 arc
|
||||
d0 di add 0 r0 ri add a1 a0 arcn
|
||||
fill
|
||||
}pop
|
||||
|
||||
% advance to next
|
||||
/d0 d0 di add store
|
||||
/r0 r0 ri add store
|
||||
}for
|
||||
pop % pop our function dict
|
||||
|
||||
% handle Extend
|
||||
currentdict/Extend known
|
||||
{
|
||||
/Extend load 1 get r2 0 gt and % no need to extend if the radius of the last end is 0
|
||||
{
|
||||
Nsteps/Function load FunEval sc % last element
|
||||
% case 0: circle1 inside circle2
|
||||
% case 1: circle 2 inside circle 1
|
||||
% case 2: circles don't contain each other and r1 == r2
|
||||
% case 3: circles don't contain each other and r1 != r2
|
||||
{
|
||||
{
|
||||
dx 0 r2 0 360 arc fill
|
||||
}
|
||||
{
|
||||
dx 0 r2 360 0 arcn
|
||||
xmin ymin moveto
|
||||
xmax ymin lineto
|
||||
xmax ymax lineto
|
||||
xmin ymax lineto
|
||||
xmin ymin lineto
|
||||
eofill % for the bigger radius we fill everything except our circle
|
||||
}
|
||||
{ % r1 == r2, extend 1
|
||||
% r3 = r, x3 = (abs(xmax) + r), x1 = dx
|
||||
% x(i+1) r(i+1) x(i) r(i) shp
|
||||
xmax abs r1 add r1 dx r1 shp
|
||||
}
|
||||
{ % no containment, r1 != r2
|
||||
|
||||
r2 r1 gt{
|
||||
% we find a circle on our line which is outside the bbox in the
|
||||
% positive direction
|
||||
% x(i+1) r(i+1) x(i) r(i) shp
|
||||
calcmaxs dup % maxs maxs
|
||||
% calculating xs: ((maxs+r1)*x2)/(x2-(r2-r1))
|
||||
r1 add dx mul dx r2 r1 sub sub div % maxs xs
|
||||
exch 1 index % xs maxs xs
|
||||
exch sub
|
||||
dx r2
|
||||
shp
|
||||
}{ % the endpoint we are drawing is that with a circle of zero radius
|
||||
% x(i+1) r(i+1) x(i) r(i) shp
|
||||
r1 neg r2 r1 sub div dx mul % this is point of ending circle
|
||||
0 % radius of ending circle
|
||||
dx % point of starting circle
|
||||
r2 % radius of starting circle
|
||||
shp
|
||||
}ifelse
|
||||
}
|
||||
}
|
||||
sh3tp get exec % execute the extend at end proc for our shading type
|
||||
}if
|
||||
}if
|
||||
}bd
|
||||
/sh % emulation of shfill operator for type 2 and type 3 shadings based on type 0 functions
|
||||
{ % shadingDict --
|
||||
begin
|
||||
/ShadingType load dup dup 2 eq exch 3 eq or
|
||||
{ % shadingtype
|
||||
gsave
|
||||
newpath
|
||||
/ColorSpace load scs
|
||||
currentdict/BBox known
|
||||
{
|
||||
/BBox load aload pop % llx lly urx ury
|
||||
2 index sub % llx lly urx ury-lly
|
||||
3 index % llx lly urx ury-lly llx
|
||||
3 -1 roll exch sub
|
||||
exch rectclip
|
||||
}if
|
||||
2 eq
|
||||
{sh2}{sh3}ifelse
|
||||
grestore
|
||||
}{
|
||||
% shadingtype
|
||||
pop
|
||||
(DEBUG: shading type unimplemented\n)print flush
|
||||
}ifelse
|
||||
end
|
||||
}bd
|
||||
|
||||
% end of language level 2 ONLY code
|
||||
|
||||
{restore}if not dup{save exch}if
|
||||
% languagelevel3 ONLY code goes here
|
||||
L3?{ % we do these loads conditionally or else they will fail on a level 2 printer
|
||||
/sh/shfill ld
|
||||
/csq/clipsave ld
|
||||
/csQ/cliprestore ld
|
||||
}if
|
||||
{restore}if
|
||||
|
||||
%currentdict dup maxlength exch length sub (number of extra slots in md = )print == flush % *** how many entries are free
|
||||
end
|
||||
setpacking
|
||||
% count 0 ne { pstack(***extras on stack during prolog execution***\n)print flush}if % *** BARK if anything is left on stack
|
||||
%%EndFile
|
||||
%%EndProlog
|
||||
%%BeginSetup
|
||||
%%EndSetup
|
||||
%%Page: 1 1
|
||||
%%PageBoundingBox: 0 0 1102 516
|
||||
%%BeginPageSetup
|
||||
cg_md begin
|
||||
bp
|
||||
sdmtx
|
||||
[ /CIEBasedABC 4 dict dup begin
|
||||
/WhitePoint [ 0.9505 1.0000 1.0891 ] def
|
||||
/DecodeABC [
|
||||
{ 1.0 0.0 3 -1 roll 1 index 1 index le { exch pop} { pop } ifelse
|
||||
1 index 1 index ge { exch pop } { pop } ifelse <
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000001010101010101010101010101
|
||||
0101010101010101010101010101010101010101010101020202020202020202
|
||||
0202020202020202020202020202020202030303030303030303030303030303
|
||||
0303030303030304040404040404040404040404040404040404050505050505
|
||||
0505050505050505050506060606060606060606060606060607070707070707
|
||||
0707070707070708080808080808080808080808090909090909090909090909
|
||||
0a0a0a0a0a0a0a0a0a0a0a0b0b0b0b0b0b0b0b0b0b0b0c0c0c0c0c0c0c0c0c0c
|
||||
0d0d0d0d0d0d0d0d0d0d0e0e0e0e0e0e0e0e0e0f0f0f0f0f0f0f0f0f10101010
|
||||
1010101010111111111111111112121212121212121313131313131313141414
|
||||
1414141414151515151515151616161616161616171717171717171818181818
|
||||
18181919191919191a1a1a1a1a1a1a1b1b1b1b1b1b1c1c1c1c1c1c1c1d1d1d1d
|
||||
1d1d1e1e1e1e1e1e1f1f1f1f1f1f202020202020212121212121222222222223
|
||||
2323232323242424242425252525252526262626262727272727282828282829
|
||||
292929292a2a2a2a2a2b2b2b2b2b2c2c2c2c2c2d2d2d2d2d2e2e2e2e2e2f2f2f
|
||||
2f2f303030303131313131323232323333333333343434343535353535363636
|
||||
36373737373838383839393939393a3a3a3a3b3b3b3b3c3c3c3c3d3d3d3d3e3e
|
||||
3e3e3f3f3f3f4040404041414141424242424343434444444445454545464646
|
||||
4647474748484848494949494a4a4a4b4b4b4b4c4c4c4d4d4d4d4e4e4e4f4f4f
|
||||
4f50505051515151525252535353535454545555555656565657575758585859
|
||||
59595a5a5a5a5b5b5b5c5c5c5d5d5d5e5e5e5f5f5f6060606061616162626263
|
||||
63636464646565656666666767676868686969696a6a6a6b6b6b6c6c6d6d6d6e
|
||||
6e6e6f6f6f707070717171727273737374747475757576767677777878787979
|
||||
797a7a7b7b7b7c7c7c7d7d7e7e7e7f7f7f808081818182828283838484848585
|
||||
86868687878888888989898a8a8b8b8b8c8c8d8d8d8e8e8f8f90909091919292
|
||||
9293939494949595969697979798989999999a9a9b9b9c9c9c9d9d9e9e9f9f9f
|
||||
a0a0a1a1a2a2a3a3a3a4a4a5a5a6a6a6a7a7a8a8a9a9aaaaabababacacadadae
|
||||
aeafafb0b0b0b1b1b2b2b3b3b4b4b5b5b6b6b6b7b7b8b8b9b9bababbbbbcbcbd
|
||||
bdbebebebfbfc0c0c1c1c2c2c3c3c4c4c5c5c6c6c7c7c8c8c9c9cacacbcbcccc
|
||||
cdcdcececfcfd0d0d1d1d2d2d3d3d4d4d5d5d6d6d7d7d8d8d9d9dadadbdcdcdd
|
||||
dddededfdfe0e0e1e1e2e2e3e3e4e4e5e6e6e7e7e8e8e9e9eaeaebebecededee
|
||||
eeefeff0f0f1f1f2f3f3f4f4f5f5f6f6f7f8f8f9f9fafafbfcfcfdfdfefeffff
|
||||
> dup length 1 sub 3 -1 roll mul dup dup floor cvi exch ceiling
|
||||
cvi 3 index exch get 4 -1 roll 3 -1 roll get
|
||||
dup 3 1 roll sub 3 -1 roll dup floor cvi sub mul add 255 div } bind
|
||||
|
||||
{ 1.0 0.0 3 -1 roll 1 index 1 index le { exch pop} { pop } ifelse
|
||||
1 index 1 index ge { exch pop } { pop } ifelse <
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000001010101010101010101010101
|
||||
0101010101010101010101010101010101010101010101020202020202020202
|
||||
0202020202020202020202020202020202030303030303030303030303030303
|
||||
0303030303030304040404040404040404040404040404040404050505050505
|
||||
0505050505050505050506060606060606060606060606060607070707070707
|
||||
0707070707070708080808080808080808080808090909090909090909090909
|
||||
0a0a0a0a0a0a0a0a0a0a0a0b0b0b0b0b0b0b0b0b0b0b0c0c0c0c0c0c0c0c0c0c
|
||||
0d0d0d0d0d0d0d0d0d0d0e0e0e0e0e0e0e0e0e0f0f0f0f0f0f0f0f0f10101010
|
||||
1010101010111111111111111112121212121212121313131313131313141414
|
||||
1414141414151515151515151616161616161616171717171717171818181818
|
||||
18181919191919191a1a1a1a1a1a1a1b1b1b1b1b1b1c1c1c1c1c1c1c1d1d1d1d
|
||||
1d1d1e1e1e1e1e1e1f1f1f1f1f1f202020202020212121212121222222222223
|
||||
2323232323242424242425252525252526262626262727272727282828282829
|
||||
292929292a2a2a2a2a2b2b2b2b2b2c2c2c2c2c2d2d2d2d2d2e2e2e2e2e2f2f2f
|
||||
2f2f303030303131313131323232323333333333343434343535353535363636
|
||||
36373737373838383839393939393a3a3a3a3b3b3b3b3c3c3c3c3d3d3d3d3e3e
|
||||
3e3e3f3f3f3f4040404041414141424242424343434444444445454545464646
|
||||
4647474748484848494949494a4a4a4b4b4b4b4c4c4c4d4d4d4d4e4e4e4f4f4f
|
||||
4f50505051515151525252535353535454545555555656565657575758585859
|
||||
59595a5a5a5a5b5b5b5c5c5c5d5d5d5e5e5e5f5f5f6060606061616162626263
|
||||
63636464646565656666666767676868686969696a6a6a6b6b6b6c6c6d6d6d6e
|
||||
6e6e6f6f6f707070717171727273737374747475757576767677777878787979
|
||||
797a7a7b7b7b7c7c7c7d7d7e7e7e7f7f7f808081818182828283838484848585
|
||||
86868687878888888989898a8a8b8b8b8c8c8d8d8d8e8e8f8f90909091919292
|
||||
9293939494949595969697979798989999999a9a9b9b9c9c9c9d9d9e9e9f9f9f
|
||||
a0a0a1a1a2a2a3a3a3a4a4a5a5a6a6a6a7a7a8a8a9a9aaaaabababacacadadae
|
||||
aeafafb0b0b0b1b1b2b2b3b3b4b4b5b5b6b6b6b7b7b8b8b9b9bababbbbbcbcbd
|
||||
bdbebebebfbfc0c0c1c1c2c2c3c3c4c4c5c5c6c6c7c7c8c8c9c9cacacbcbcccc
|
||||
cdcdcececfcfd0d0d1d1d2d2d3d3d4d4d5d5d6d6d7d7d8d8d9d9dadadbdcdcdd
|
||||
dddededfdfe0e0e1e1e2e2e3e3e4e4e5e6e6e7e7e8e8e9e9eaeaebebecededee
|
||||
eeefeff0f0f1f1f2f3f3f4f4f5f5f6f6f7f8f8f9f9fafafbfcfcfdfdfefeffff
|
||||
> dup length 1 sub 3 -1 roll mul dup dup floor cvi exch ceiling
|
||||
cvi 3 index exch get 4 -1 roll 3 -1 roll get
|
||||
dup 3 1 roll sub 3 -1 roll dup floor cvi sub mul add 255 div } bind
|
||||
|
||||
{ 1.0 0.0 3 -1 roll 1 index 1 index le { exch pop} { pop } ifelse
|
||||
1 index 1 index ge { exch pop } { pop } ifelse <
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000001010101010101010101010101
|
||||
0101010101010101010101010101010101010101010101020202020202020202
|
||||
0202020202020202020202020202020202030303030303030303030303030303
|
||||
0303030303030304040404040404040404040404040404040404050505050505
|
||||
0505050505050505050506060606060606060606060606060607070707070707
|
||||
0707070707070708080808080808080808080808090909090909090909090909
|
||||
0a0a0a0a0a0a0a0a0a0a0a0b0b0b0b0b0b0b0b0b0b0b0c0c0c0c0c0c0c0c0c0c
|
||||
0d0d0d0d0d0d0d0d0d0d0e0e0e0e0e0e0e0e0e0f0f0f0f0f0f0f0f0f10101010
|
||||
1010101010111111111111111112121212121212121313131313131313141414
|
||||
1414141414151515151515151616161616161616171717171717171818181818
|
||||
18181919191919191a1a1a1a1a1a1a1b1b1b1b1b1b1c1c1c1c1c1c1c1d1d1d1d
|
||||
1d1d1e1e1e1e1e1e1f1f1f1f1f1f202020202020212121212121222222222223
|
||||
2323232323242424242425252525252526262626262727272727282828282829
|
||||
292929292a2a2a2a2a2b2b2b2b2b2c2c2c2c2c2d2d2d2d2d2e2e2e2e2e2f2f2f
|
||||
2f2f303030303131313131323232323333333333343434343535353535363636
|
||||
36373737373838383839393939393a3a3a3a3b3b3b3b3c3c3c3c3d3d3d3d3e3e
|
||||
3e3e3f3f3f3f4040404041414141424242424343434444444445454545464646
|
||||
4647474748484848494949494a4a4a4b4b4b4b4c4c4c4d4d4d4d4e4e4e4f4f4f
|
||||
4f50505051515151525252535353535454545555555656565657575758585859
|
||||
59595a5a5a5a5b5b5b5c5c5c5d5d5d5e5e5e5f5f5f6060606061616162626263
|
||||
63636464646565656666666767676868686969696a6a6a6b6b6b6c6c6d6d6d6e
|
||||
6e6e6f6f6f707070717171727273737374747475757576767677777878787979
|
||||
797a7a7b7b7b7c7c7c7d7d7e7e7e7f7f7f808081818182828283838484848585
|
||||
86868687878888888989898a8a8b8b8b8c8c8d8d8d8e8e8f8f90909091919292
|
||||
9293939494949595969697979798989999999a9a9b9b9c9c9c9d9d9e9e9f9f9f
|
||||
a0a0a1a1a2a2a3a3a3a4a4a5a5a6a6a6a7a7a8a8a9a9aaaaabababacacadadae
|
||||
aeafafb0b0b0b1b1b2b2b3b3b4b4b5b5b6b6b6b7b7b8b8b9b9bababbbbbcbcbd
|
||||
bdbebebebfbfc0c0c1c1c2c2c3c3c4c4c5c5c6c6c7c7c8c8c9c9cacacbcbcccc
|
||||
cdcdcececfcfd0d0d1d1d2d2d3d3d4d4d5d5d6d6d7d7d8d8d9d9dadadbdcdcdd
|
||||
dddededfdfe0e0e1e1e2e2e3e3e4e4e5e6e6e7e7e8e8e9e9eaeaebebecededee
|
||||
eeefeff0f0f1f1f2f3f3f4f4f5f5f6f6f7f8f8f9f9fafafbfcfcfdfdfefeffff
|
||||
> dup length 1 sub 3 -1 roll mul dup dup floor cvi exch ceiling
|
||||
cvi 3 index exch get 4 -1 roll 3 -1 roll get
|
||||
dup 3 1 roll sub 3 -1 roll dup floor cvi sub mul add 255 div } bind
|
||||
] def
|
||||
/MatrixABC [ 0.4124 0.2126 0.0193 0.3576 0.7151 0.1192 0.1805 0.0722 0.9508 ] def
|
||||
/RangeLMN [ 0.0 0.9505 0.0 1.0000 0.0 1.0891 ] def
|
||||
end ] /Cs1 exch/ColorSpace dr pop
|
||||
%%EndPageSetup
|
||||
0.60000002 i
|
||||
/Cs1 SC
|
||||
0.13333334 0.13333334 0.13333334 sc
|
||||
q
|
||||
0 516 m
|
||||
518 516 l
|
||||
518 0 l
|
||||
0 0 l
|
||||
0 516 l
|
||||
h
|
||||
W*
|
||||
0 0 1102 516 rc
|
||||
-10 526 m
|
||||
528 526 l
|
||||
528 -10 l
|
||||
-10 -10 l
|
||||
h
|
||||
f
|
||||
Q
|
||||
0.76078433 0.65098041 0.38039216 sc
|
||||
q
|
||||
518 516 m
|
||||
1102 516 l
|
||||
1102 0 l
|
||||
518 0 l
|
||||
518 516 l
|
||||
h
|
||||
W*
|
||||
0 0 1102 516 rc
|
||||
508 526 m
|
||||
1112 526 l
|
||||
1112 -10 l
|
||||
508 -10 l
|
||||
h
|
||||
f
|
||||
Q
|
||||
0.13333334 0.13333334 0.13333334 sc
|
||||
q
|
||||
921.56757 468 m
|
||||
982 468 l
|
||||
982 48 l
|
||||
921.56757 48 l
|
||||
921.56757 261.5 l
|
||||
698.43243 261.5 l
|
||||
698.43243 48 l
|
||||
638 48 l
|
||||
638 468 l
|
||||
698.43243 468 l
|
||||
698.43243 276.08334 l
|
||||
921.56757 276.08334 l
|
||||
921.56757 468 l
|
||||
h
|
||||
W
|
||||
0 0 1102 516 rc
|
||||
628 478 m
|
||||
992 478 l
|
||||
992 38 l
|
||||
628 38 l
|
||||
h
|
||||
f
|
||||
Q
|
||||
0.76078433 0.65098041 0.38039216 sc
|
||||
q
|
||||
180.15546 262.08334 m
|
||||
180.15546 65.5 l
|
||||
233.30252 65.5 l
|
||||
266.00839 65.5 290.53781 70.166664 306.89075 86.5 c
|
||||
323.24368 103.41666 331.42017 128.5 331.42017 162.33333 c
|
||||
331.42017 196.75 322.07562 221.83333 303.97058 238.16667 c
|
||||
285.28152 254.5 253.15967 262.66666 206.43698 262.66666 c
|
||||
198.84454 262.66666 187.16386 262.08334 180.15546 262.08334 c
|
||||
h
|
||||
180.15546 452.25 m
|
||||
180.15546 276.66666 l
|
||||
195.92436 276.66666 l
|
||||
240.31093 276.66666 270.09665 283.66666 286.44958 297.66666 c
|
||||
302.80252 311.66666 310.39496 333.83334 310.39496 365.33334 c
|
||||
310.39496 386.91666 307.47479 403.83334 301.05042 415.5 c
|
||||
294.62604 427.75 284.69748 436.5 272.43277 442.91666 c
|
||||
259.58405 449.91666 238.55882 452.83334 207.60504 452.83334 c
|
||||
199.42857 452.83334 187.16386 452.83334 180.15546 452.25 c
|
||||
h
|
||||
120 48 m
|
||||
120 468 l
|
||||
204.68488 468 l
|
||||
318.57144 468 375.80673 435.33334 375.80673 369.41666 c
|
||||
375.80673 342.58334 365.87814 320.41666 346.021 304.08334 c
|
||||
326.74789 287.75 296.96219 276.66666 257.83194 270.83334 c
|
||||
305.13864 267.33334 340.18066 255.66667 363.54202 235.83333 c
|
||||
386.31934 215.41667 398 190.33333 398 160.58333 c
|
||||
398 134.33333 389.82352 111.58334 374.63864 92.333336 c
|
||||
358.86975 73.666664 339.0126 62 314.48318 56.166668 c
|
||||
289.9538 50.333332 257.83194 48 216.94958 48 c
|
||||
120 48 l
|
||||
h
|
||||
W
|
||||
0 0 1102 516 rc
|
||||
110 478 m
|
||||
408 478 l
|
||||
408 38 l
|
||||
110 38 l
|
||||
h
|
||||
f
|
||||
ep
|
||||
end
|
||||
%%Trailer
|
||||
%%EOF
|
||||
|
|
@ -0,0 +1,912 @@
|
|||
%!PS-Adobe-3.0 EPSF-3.0
|
||||
%APL_DSC_Encoding: UTF8
|
||||
%APLProducer: (Version 10.14.6 (Build 18G95) Quartz PS Context)
|
||||
%%Title: (Unknown)
|
||||
%%Creator: (Unknown)
|
||||
%%CreationDate: (Unknown)
|
||||
%%For: (Unknown)
|
||||
%%DocumentData: Clean7Bit
|
||||
%%LanguageLevel: 2
|
||||
%%Pages: 1
|
||||
%%BoundingBox: 0 0 1102 516
|
||||
%%EndComments
|
||||
%%BeginProlog
|
||||
%%BeginFile: cg-pdf.ps
|
||||
%%Copyright: Copyright 2000-2004 Apple Computer Incorporated.
|
||||
%%Copyright: All Rights Reserved.
|
||||
currentpacking true setpacking
|
||||
/cg_md 141 dict def
|
||||
cg_md begin
|
||||
/L3? languagelevel 3 ge def
|
||||
/bd{bind def}bind def
|
||||
/ld{load def}bd
|
||||
/xs{exch store}bd
|
||||
/xd{exch def}bd
|
||||
/cmmtx matrix def
|
||||
mark
|
||||
/sc/setcolor
|
||||
/scs/setcolorspace
|
||||
/dr/defineresource
|
||||
/fr/findresource
|
||||
/T/true
|
||||
/F/false
|
||||
/d/setdash
|
||||
/w/setlinewidth
|
||||
/J/setlinecap
|
||||
/j/setlinejoin
|
||||
/M/setmiterlimit
|
||||
/i/setflat
|
||||
/rc/rectclip
|
||||
/rf/rectfill
|
||||
/rs/rectstroke
|
||||
/f/fill
|
||||
/f*/eofill
|
||||
/sf/selectfont
|
||||
/s/show
|
||||
%/as/ashow
|
||||
/xS/xshow
|
||||
/yS/yshow
|
||||
/xyS/xyshow
|
||||
/S/stroke
|
||||
/m/moveto
|
||||
/l/lineto
|
||||
/c/curveto
|
||||
/h/closepath
|
||||
/n/newpath
|
||||
/q/gsave
|
||||
/Q/grestore
|
||||
counttomark 2 idiv
|
||||
%dup (number of ld's = )print == flush % *** how many
|
||||
{ld}repeat pop
|
||||
/SC{ % CSname
|
||||
/ColorSpace fr scs
|
||||
}bd
|
||||
/sopr /setoverprint where{pop/setoverprint}{/pop}ifelse ld
|
||||
/soprm /setoverprintmode where{pop/setoverprintmode}{/pop}ifelse ld
|
||||
/cgmtx matrix def
|
||||
/sdmtx{cgmtx currentmatrix pop}bd
|
||||
/CM {cgmtx setmatrix}bd % pop the ctm: our gstate ctm on host is now identity
|
||||
/cm {cmmtx astore CM concat}bd % reset the matrix and then concat
|
||||
/W{clip newpath}bd
|
||||
/W*{eoclip newpath}bd
|
||||
|
||||
statusdict begin product end dup (HP) anchorsearch{
|
||||
pop pop pop % pop off the search results
|
||||
true
|
||||
}{
|
||||
pop % previous search result
|
||||
(hp) anchorsearch{
|
||||
pop pop true
|
||||
}{
|
||||
pop false
|
||||
}ifelse
|
||||
}ifelse
|
||||
|
||||
{ % HP is the product: we use this method of stroking because of a bug in their clone printers with certain T3 fonts
|
||||
{
|
||||
{ % charCode Wx Wy
|
||||
pop pop % charCode
|
||||
(0)dup 0 4 -1 roll put
|
||||
F charpath
|
||||
}cshow
|
||||
}
|
||||
}{
|
||||
{F charpath}
|
||||
}ifelse
|
||||
/cply exch bd
|
||||
/cps {cply stroke}bd
|
||||
/pgsave 0 def
|
||||
/bp{/pgsave save store}bd
|
||||
/ep{pgsave restore showpage}def % dont' bind
|
||||
/re{4 2 roll m 1 index 0 rlineto 0 exch rlineto neg 0 rlineto h}bd
|
||||
|
||||
/scrdict 10 dict def
|
||||
/scrmtx matrix def
|
||||
/patarray 0 def
|
||||
/createpat{patarray 3 1 roll put}bd
|
||||
/makepat{
|
||||
scrmtx astore pop
|
||||
gsave
|
||||
initgraphics
|
||||
CM
|
||||
patarray exch get
|
||||
scrmtx
|
||||
makepattern
|
||||
grestore
|
||||
setpattern
|
||||
}bd
|
||||
|
||||
/cg_BeginEPSF{
|
||||
userdict save/cg_b4_Inc_state exch put
|
||||
userdict/cg_endepsf/cg_EndEPSF load put
|
||||
count userdict/cg_op_count 3 -1 roll put
|
||||
countdictstack dup array dictstack userdict/cg_dict_array 3 -1 roll put
|
||||
3 sub{end}repeat
|
||||
/showpage {} def
|
||||
0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin
|
||||
10 setmiterlimit [] 0 setdash newpath
|
||||
false setstrokeadjust false setoverprint % don't use F
|
||||
}bd
|
||||
/cg_EndEPSF{
|
||||
countdictstack 3 sub { end } repeat
|
||||
cg_dict_array 3 1 index length 3 sub getinterval
|
||||
{begin}forall
|
||||
count userdict/cg_op_count get sub{pop}repeat
|
||||
userdict/cg_b4_Inc_state get restore
|
||||
F setpacking
|
||||
}bd
|
||||
|
||||
/cg_biproc{currentfile/RunLengthDecode filter}bd
|
||||
/cg_aiproc{currentfile/ASCII85Decode filter/RunLengthDecode filter}bd
|
||||
/ImageDataSource 0 def
|
||||
L3?{
|
||||
/cg_mibiproc{pop pop/ImageDataSource{cg_biproc}def}bd
|
||||
/cg_miaiproc{pop pop/ImageDataSource{cg_aiproc}def}bd
|
||||
}{
|
||||
/ImageBandMask 0 def
|
||||
/ImageBandData 0 def
|
||||
/cg_mibiproc{
|
||||
string/ImageBandMask xs
|
||||
string/ImageBandData xs
|
||||
/ImageDataSource{[currentfile/RunLengthDecode filter dup ImageBandMask/readstring cvx
|
||||
/pop cvx dup ImageBandData/readstring cvx/pop cvx]cvx bind}bd
|
||||
}bd
|
||||
/cg_miaiproc{
|
||||
string/ImageBandMask xs
|
||||
string/ImageBandData xs
|
||||
/ImageDataSource{[currentfile/ASCII85Decode filter/RunLengthDecode filter
|
||||
dup ImageBandMask/readstring cvx
|
||||
/pop cvx dup ImageBandData/readstring cvx/pop cvx]cvx bind}bd
|
||||
}bd
|
||||
}ifelse
|
||||
/imsave 0 def
|
||||
/BI{save/imsave xd mark}bd
|
||||
/EI{imsave restore}bd
|
||||
/ID{
|
||||
counttomark 2 idiv
|
||||
dup 2 add % leave room for imagetype and imagematrix
|
||||
dict begin
|
||||
{def} repeat
|
||||
pop % remove mark
|
||||
/ImageType 1 def
|
||||
/ImageMatrix[Width 0 0 Height neg 0 Height]def
|
||||
currentdict dup/ImageMask known{ImageMask}{F}ifelse exch
|
||||
% currentdict on stack
|
||||
L3?{
|
||||
dup/MaskedImage known
|
||||
{
|
||||
pop
|
||||
<<
|
||||
/ImageType 3
|
||||
/InterleaveType 2
|
||||
/DataDict currentdict
|
||||
/MaskDict
|
||||
<< /ImageType 1
|
||||
/Width Width
|
||||
/Height Height
|
||||
/ImageMatrix ImageMatrix
|
||||
/BitsPerComponent 1
|
||||
/Decode [0 1]
|
||||
currentdict/Interpolate known
|
||||
{/Interpolate Interpolate}if
|
||||
>>
|
||||
>>
|
||||
}if
|
||||
}if
|
||||
exch
|
||||
{imagemask}{image}ifelse
|
||||
end % pop imagedict from dict stack
|
||||
}bd
|
||||
|
||||
/cguidfix{statusdict begin mark version end
|
||||
{cvr}stopped{cleartomark 0}{exch pop}ifelse
|
||||
2012 lt{dup findfont dup length dict begin
|
||||
{1 index/FID ne 2 index/UniqueID ne and
|
||||
{def} {pop pop} ifelse}forall
|
||||
currentdict end definefont pop
|
||||
}{pop}ifelse
|
||||
}bd
|
||||
/t_array 0 def
|
||||
/t_i 0 def
|
||||
/t_c 1 string def
|
||||
/x_proc{ % x y
|
||||
exch t_array t_i get add exch moveto
|
||||
/t_i t_i 1 add store
|
||||
}bd
|
||||
/y_proc{ % x y
|
||||
t_array t_i get add moveto
|
||||
/t_i t_i 1 add store
|
||||
}bd
|
||||
/xy_proc{
|
||||
% x y
|
||||
t_array t_i 2 copy 1 add get 3 1 roll get
|
||||
4 -1 roll add 3 1 roll add moveto
|
||||
/t_i t_i 2 add store
|
||||
}bd
|
||||
/sop 0 def % don't bind sop
|
||||
/cp_proc/x_proc ld % default moveto proc is for xwidths only
|
||||
/base_charpath % string array
|
||||
{
|
||||
/t_array xs
|
||||
/t_i 0 def
|
||||
{ % char
|
||||
t_c 0 3 -1 roll put
|
||||
currentpoint
|
||||
t_c cply sop
|
||||
cp_proc
|
||||
}forall
|
||||
/t_array 0 def
|
||||
}bd
|
||||
/sop/stroke ld % default sop is stroke. Done here so we don't bind in /base_charpath
|
||||
|
||||
% default sop is stroke
|
||||
/nop{}def
|
||||
/xsp/base_charpath ld
|
||||
/ysp{/cp_proc/y_proc ld base_charpath/cp_proc/x_proc ld}bd
|
||||
/xysp{/cp_proc/xy_proc ld base_charpath/cp_proc/x_proc ld}bd
|
||||
/xmp{/sop/nop ld /cp_proc/x_proc ld base_charpath/sop/stroke ld}bd
|
||||
/ymp{/sop/nop ld /cp_proc/y_proc ld base_charpath/sop/stroke ld}bd
|
||||
/xymp{/sop/nop ld /cp_proc/xy_proc ld base_charpath/sop/stroke ld}bd
|
||||
/refnt{ % newname encoding fontname
|
||||
findfont dup length dict copy dup
|
||||
/Encoding 4 -1 roll put
|
||||
definefont pop
|
||||
}bd
|
||||
/renmfont{ % newname fontname
|
||||
findfont dup length dict copy definefont pop
|
||||
}bd
|
||||
|
||||
L3? dup dup{save exch}if
|
||||
|
||||
% languagelevel2 ONLY code goes here
|
||||
|
||||
/Range 0 def
|
||||
/DataSource 0 def
|
||||
/val 0 def
|
||||
/nRange 0 def
|
||||
/mulRange 0 def
|
||||
/d0 0 def
|
||||
/r0 0 def
|
||||
/di 0 def
|
||||
/ri 0 def
|
||||
/a0 0 def
|
||||
/a1 0 def
|
||||
/r1 0 def
|
||||
/r2 0 def
|
||||
/dx 0 def
|
||||
/Nsteps 0 def
|
||||
/sh3tp 0 def
|
||||
/ymax 0 def
|
||||
/ymin 0 def
|
||||
/xmax 0 def
|
||||
/xmin 0 def
|
||||
|
||||
/setupFunEval % funDict -- % this calculates and sets up a function dict for evaulation.
|
||||
{
|
||||
begin
|
||||
/nRange Range length 2 idiv store
|
||||
/mulRange % precompute the range data needed to map a sample value from the table to a range value
|
||||
% this data looks like [ range0mul range0min range1mul range1min ... rangeN-1mul rangeN-1min ]
|
||||
[
|
||||
0 1 nRange 1 sub
|
||||
{ % index
|
||||
2 mul/nDim2 xd % 2*dimension# we are dealing with
|
||||
Range nDim2 get % ymin
|
||||
Range nDim2 1 add get % ymin ymax
|
||||
1 index sub % ymin (ymax-ymin)
|
||||
% xmin = 0, xmax = 255 (2^bitspersample - 1)
|
||||
255 div % ymin (ymax-ymin)/(xmax - xmin)
|
||||
exch % (ymax-ymin)/(xmax - xmin) ymin
|
||||
}for
|
||||
]store
|
||||
end
|
||||
}bd
|
||||
|
||||
/FunEval % val1 fundict -> comp1 comp2 ... compN
|
||||
{
|
||||
begin
|
||||
% the value passed in is the base index into the table
|
||||
nRange mul /val xd % compute the actual index to the table
|
||||
% since there are nRange entries per base index
|
||||
0 1 nRange 1 sub
|
||||
{
|
||||
dup 2 mul/nDim2 xd % dim
|
||||
val % base value to use to do our lookup
|
||||
add DataSource exch get % lookedupval
|
||||
mulRange nDim2 get mul % lookedupval*(ymax-ymin)/(xmax-xmin)
|
||||
mulRange nDim2 1 add get % lookedupval*(ymax-ymin)/(xmax-xmin) ymin
|
||||
add % interpolated result
|
||||
}for % comp1 comp2 ... compN
|
||||
end
|
||||
}bd
|
||||
|
||||
/max % a b -> max(a, b)
|
||||
{
|
||||
2 copy lt
|
||||
{exch pop}{pop}ifelse
|
||||
}bd
|
||||
|
||||
/sh2
|
||||
{ % emulation of shading type 2. Assumes shading dictionary is top dictionary on the dict stack
|
||||
/Coords load aload pop % x0 y0 x1 y1
|
||||
3 index 3 index translate % origin is now at beginning point of shading
|
||||
% x0 y0 x1 y1
|
||||
3 -1 roll sub % x0 x1 y1-y0
|
||||
3 1 roll exch % y1-y0 x1 x0
|
||||
sub % y1-y0 x1-x0
|
||||
2 copy
|
||||
dup mul exch dup mul add sqrt % length of segment between two points
|
||||
dup
|
||||
scale
|
||||
atan % atan (dy/dx)
|
||||
%dup (rotation angle = )print ==
|
||||
rotate % now line between 0,0 and 1,0 is the line perpendicular to which the axial lines are drawn
|
||||
|
||||
/Function load setupFunEval % may need to setup function dictionary by calling setupFunEval
|
||||
|
||||
% this is now specific to axial shadings. Compute the maximum bounds to fill
|
||||
clippath {pathbbox}stopped {0 0 0 0}if newpath % x0 y0 x1 y1
|
||||
/ymax xs
|
||||
/xmax xs
|
||||
/ymin xs
|
||||
/xmin xs
|
||||
currentdict/Extend known
|
||||
{
|
||||
/Extend load 0 get
|
||||
{
|
||||
0/Function load FunEval sc % evaluate the function to get a color and set it
|
||||
xmin ymin xmin abs ymax ymin sub rectfill
|
||||
}if
|
||||
}if
|
||||
% paint the rects. The sampling frequency is that of our table
|
||||
/Nsteps/Function load/Size get 0 get 1 sub store
|
||||
/dx 1 Nsteps div store
|
||||
gsave
|
||||
/di ymax ymin sub store
|
||||
/Function load
|
||||
% loop Nsteps + 1 times, incrementing the index by 1 each time
|
||||
0 1 Nsteps
|
||||
{
|
||||
1 index FunEval sc
|
||||
0 ymin dx di rectfill
|
||||
dx 0 translate
|
||||
}for
|
||||
pop % pop our function
|
||||
grestore % origin is back to start point
|
||||
currentdict/Extend known
|
||||
{
|
||||
/Extend load 1 get
|
||||
{
|
||||
Nsteps/Function load FunEval sc % last element
|
||||
1 ymin xmax 1 sub abs ymax ymin sub rectfill
|
||||
}if
|
||||
}if
|
||||
}bd
|
||||
|
||||
/shp % this paints our shape for shading type 3
|
||||
{ % x1 r1 x0 r0 -
|
||||
4 copy
|
||||
|
||||
% fill interior arc
|
||||
dup 0 gt{
|
||||
0 exch a1 a0 arc
|
||||
}{
|
||||
pop 0 moveto
|
||||
}ifelse
|
||||
|
||||
dup 0 gt{
|
||||
0 exch a0 a1 arcn
|
||||
}{
|
||||
pop 0 lineto
|
||||
}ifelse
|
||||
|
||||
fill
|
||||
|
||||
% fill exterior arc
|
||||
dup 0 gt{
|
||||
0 exch a0 a1 arc
|
||||
}{
|
||||
pop 0 moveto
|
||||
}ifelse
|
||||
|
||||
dup 0 gt{
|
||||
0 exch a1 a0 arcn
|
||||
}{
|
||||
pop 0 lineto
|
||||
}ifelse
|
||||
|
||||
fill
|
||||
}bd
|
||||
|
||||
/calcmaxs
|
||||
{ % calculate maximum distance vector from origin to corner points
|
||||
% of bbox
|
||||
xmin dup mul ymin dup mul add sqrt % (xmin2 + ymin2)
|
||||
xmax dup mul ymin dup mul add sqrt % (xmax2 + ymin2)
|
||||
xmin dup mul ymax dup mul add sqrt % (xmin2 + ymax2)
|
||||
xmax dup mul ymax dup mul add sqrt % (xmax2 + ymax2)
|
||||
max max max % maximum value
|
||||
}bd
|
||||
|
||||
/sh3
|
||||
{ % emulation of shading type 3. Assumes shading dictionary is top dictionary on the dict stack
|
||||
/Coords load aload pop % x0 y0 r1 x1 y1 r2
|
||||
5 index 5 index translate % origin is now at first circle origin
|
||||
3 -1 roll 6 -1 roll sub % y0 r1 y1 r2 dx
|
||||
3 -1 roll 5 -1 roll sub % r1 r2 dx dy
|
||||
2 copy dup mul exch dup mul add sqrt
|
||||
/dx xs % r1 r2 dx dy
|
||||
2 copy 0 ne exch 0 ne or
|
||||
{
|
||||
% r1 r2 dx dy
|
||||
exch atan rotate % we are now rotated so dy is zero and positive values of dx move us as expected
|
||||
}{
|
||||
pop pop
|
||||
}ifelse
|
||||
% r1 r2
|
||||
/r2 xs
|
||||
/r1 xs
|
||||
/Function load
|
||||
dup/Size get 0 get 1 sub % this is the size of our table minus 1
|
||||
/Nsteps xs % at some point we should optimize this better so NSteps is based on needed steps for the device
|
||||
setupFunEval % may need to setup function dictionary by calling setupFunEval
|
||||
% determine the case:
|
||||
% case 0: circle1 inside circle2
|
||||
% case 1: circle 2 inside circle 1
|
||||
% case 2: r1 = r2
|
||||
% case 3: r1 != r2
|
||||
dx r2 add r1 lt{
|
||||
% circle 2 inside of circle 1
|
||||
0
|
||||
}{
|
||||
dx r1 add r2 le
|
||||
{ % circle 1 inside of circle 2
|
||||
1
|
||||
}{ % circles don't contain each other
|
||||
r1 r2 eq
|
||||
{ % equal
|
||||
2
|
||||
}{ % r1 != r2
|
||||
3
|
||||
}ifelse
|
||||
}ifelse
|
||||
}ifelse
|
||||
/sh3tp xs % sh3tp has the number of our different cases
|
||||
clippath {pathbbox}stopped {0 0 0 0}if
|
||||
newpath % x0 y0 x1 y1
|
||||
/ymax xs
|
||||
/xmax xs
|
||||
/ymin xs
|
||||
/xmin xs
|
||||
|
||||
% Arc angle atan( sqrt((dx*dx + dy*dy) - dr*dr), dr)
|
||||
dx dup mul r2 r1 sub dup mul sub dup 0 gt
|
||||
{
|
||||
sqrt r2 r1 sub atan
|
||||
/a0 exch 180 exch sub store
|
||||
/a1 a0 neg store
|
||||
}{
|
||||
pop
|
||||
/a0 0 store
|
||||
/a1 360 store
|
||||
}ifelse
|
||||
|
||||
currentdict/Extend known
|
||||
{
|
||||
/Extend load 0 get r1 0 gt and % no need to extend if the radius of the first end is 0
|
||||
{
|
||||
0/Function load FunEval sc % evaluate the function to get a color and set it
|
||||
% case 0: circle1 inside circle2
|
||||
% case 1: circle 2 inside circle 1
|
||||
% case 2: circles don't contain each other and r1 == r2
|
||||
% case 3: circles don't contain each other and r1 != r2
|
||||
{
|
||||
{ % case 0
|
||||
dx 0 r1 360 0 arcn
|
||||
xmin ymin moveto
|
||||
xmax ymin lineto
|
||||
xmax ymax lineto
|
||||
xmin ymax lineto
|
||||
xmin ymin lineto
|
||||
eofill % for the bigger radius we fill everything except our circle
|
||||
}
|
||||
{ % case 1
|
||||
r1 0 gt{0 0 r1 0 360 arc fill}if
|
||||
}
|
||||
{ % case 2
|
||||
% r1 == r2, extend 0
|
||||
% r3 = r, x3 = -(abs(minx) + r), x1 = 0
|
||||
|
||||
% x(i+1) r(i+1) x(i) r(i) shp
|
||||
0 r1 xmin abs r1 add neg r1 shp
|
||||
}
|
||||
{ % case 3
|
||||
% no containment, r1 != r2
|
||||
|
||||
r2 r1 gt{ % the endpoint we are drawing is that with a circle of zero radius
|
||||
% x(i+1) r(i+1) x(i) r(i) shp
|
||||
0 r1
|
||||
r1 neg r2 r1 sub div dx mul % this is point of beginning circle
|
||||
0 % point of ending circle
|
||||
shp % takes x(i+1) r(i+1) x(i) r(i)
|
||||
}{ % the first circle is the bigger of the two
|
||||
% we find a circle on our line which is outside the bbox in the
|
||||
% negative direction
|
||||
% x(i+1) r(i+1) x(i) r(i) shp
|
||||
0 r1 calcmaxs % 0 r1 maxs
|
||||
dup
|
||||
% calculating xs: (-(maxs+r2)*x2)/(x2-(r1-r2))
|
||||
r2 add dx mul dx r1 r2 sub sub div
|
||||
neg % maxs xs'
|
||||
exch 1 index % xs' maxs xs'
|
||||
abs exch sub
|
||||
shp
|
||||
}ifelse
|
||||
}
|
||||
}sh3tp get exec % execute the extend at beginning proc for our shading type
|
||||
}if
|
||||
}if
|
||||
|
||||
% now do the shading
|
||||
/d0 0 store
|
||||
/r0 r1 store
|
||||
/di dx Nsteps div store
|
||||
/ri r2 r1 sub Nsteps div store
|
||||
/Function load
|
||||
0 1 Nsteps
|
||||
{ % function t(i)
|
||||
1 index FunEval sc
|
||||
d0 di add r0 ri add d0 r0 shp
|
||||
{
|
||||
% fill interior arc
|
||||
d0 0 r0 a1 a0 arc
|
||||
d0 di add 0 r0 ri add a0 a1 arcn
|
||||
fill
|
||||
|
||||
% fill exterior arc
|
||||
d0 0 r0 a0 a1 arc
|
||||
d0 di add 0 r0 ri add a1 a0 arcn
|
||||
fill
|
||||
}pop
|
||||
|
||||
% advance to next
|
||||
/d0 d0 di add store
|
||||
/r0 r0 ri add store
|
||||
}for
|
||||
pop % pop our function dict
|
||||
|
||||
% handle Extend
|
||||
currentdict/Extend known
|
||||
{
|
||||
/Extend load 1 get r2 0 gt and % no need to extend if the radius of the last end is 0
|
||||
{
|
||||
Nsteps/Function load FunEval sc % last element
|
||||
% case 0: circle1 inside circle2
|
||||
% case 1: circle 2 inside circle 1
|
||||
% case 2: circles don't contain each other and r1 == r2
|
||||
% case 3: circles don't contain each other and r1 != r2
|
||||
{
|
||||
{
|
||||
dx 0 r2 0 360 arc fill
|
||||
}
|
||||
{
|
||||
dx 0 r2 360 0 arcn
|
||||
xmin ymin moveto
|
||||
xmax ymin lineto
|
||||
xmax ymax lineto
|
||||
xmin ymax lineto
|
||||
xmin ymin lineto
|
||||
eofill % for the bigger radius we fill everything except our circle
|
||||
}
|
||||
{ % r1 == r2, extend 1
|
||||
% r3 = r, x3 = (abs(xmax) + r), x1 = dx
|
||||
% x(i+1) r(i+1) x(i) r(i) shp
|
||||
xmax abs r1 add r1 dx r1 shp
|
||||
}
|
||||
{ % no containment, r1 != r2
|
||||
|
||||
r2 r1 gt{
|
||||
% we find a circle on our line which is outside the bbox in the
|
||||
% positive direction
|
||||
% x(i+1) r(i+1) x(i) r(i) shp
|
||||
calcmaxs dup % maxs maxs
|
||||
% calculating xs: ((maxs+r1)*x2)/(x2-(r2-r1))
|
||||
r1 add dx mul dx r2 r1 sub sub div % maxs xs
|
||||
exch 1 index % xs maxs xs
|
||||
exch sub
|
||||
dx r2
|
||||
shp
|
||||
}{ % the endpoint we are drawing is that with a circle of zero radius
|
||||
% x(i+1) r(i+1) x(i) r(i) shp
|
||||
r1 neg r2 r1 sub div dx mul % this is point of ending circle
|
||||
0 % radius of ending circle
|
||||
dx % point of starting circle
|
||||
r2 % radius of starting circle
|
||||
shp
|
||||
}ifelse
|
||||
}
|
||||
}
|
||||
sh3tp get exec % execute the extend at end proc for our shading type
|
||||
}if
|
||||
}if
|
||||
}bd
|
||||
/sh % emulation of shfill operator for type 2 and type 3 shadings based on type 0 functions
|
||||
{ % shadingDict --
|
||||
begin
|
||||
/ShadingType load dup dup 2 eq exch 3 eq or
|
||||
{ % shadingtype
|
||||
gsave
|
||||
newpath
|
||||
/ColorSpace load scs
|
||||
currentdict/BBox known
|
||||
{
|
||||
/BBox load aload pop % llx lly urx ury
|
||||
2 index sub % llx lly urx ury-lly
|
||||
3 index % llx lly urx ury-lly llx
|
||||
3 -1 roll exch sub
|
||||
exch rectclip
|
||||
}if
|
||||
2 eq
|
||||
{sh2}{sh3}ifelse
|
||||
grestore
|
||||
}{
|
||||
% shadingtype
|
||||
pop
|
||||
(DEBUG: shading type unimplemented\n)print flush
|
||||
}ifelse
|
||||
end
|
||||
}bd
|
||||
|
||||
% end of language level 2 ONLY code
|
||||
|
||||
{restore}if not dup{save exch}if
|
||||
% languagelevel3 ONLY code goes here
|
||||
L3?{ % we do these loads conditionally or else they will fail on a level 2 printer
|
||||
/sh/shfill ld
|
||||
/csq/clipsave ld
|
||||
/csQ/cliprestore ld
|
||||
}if
|
||||
{restore}if
|
||||
|
||||
%currentdict dup maxlength exch length sub (number of extra slots in md = )print == flush % *** how many entries are free
|
||||
end
|
||||
setpacking
|
||||
% count 0 ne { pstack(***extras on stack during prolog execution***\n)print flush}if % *** BARK if anything is left on stack
|
||||
%%EndFile
|
||||
%%EndProlog
|
||||
%%BeginSetup
|
||||
%%EndSetup
|
||||
%%Page: 1 1
|
||||
%%PageBoundingBox: 0 0 1102 516
|
||||
%%BeginPageSetup
|
||||
cg_md begin
|
||||
bp
|
||||
sdmtx
|
||||
[ /CIEBasedABC 4 dict dup begin
|
||||
/WhitePoint [ 0.9505 1.0000 1.0891 ] def
|
||||
/DecodeABC [
|
||||
{ 1.0 0.0 3 -1 roll 1 index 1 index le { exch pop} { pop } ifelse
|
||||
1 index 1 index ge { exch pop } { pop } ifelse <
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000001010101010101010101010101
|
||||
0101010101010101010101010101010101010101010101020202020202020202
|
||||
0202020202020202020202020202020202030303030303030303030303030303
|
||||
0303030303030304040404040404040404040404040404040404050505050505
|
||||
0505050505050505050506060606060606060606060606060607070707070707
|
||||
0707070707070708080808080808080808080808090909090909090909090909
|
||||
0a0a0a0a0a0a0a0a0a0a0a0b0b0b0b0b0b0b0b0b0b0b0c0c0c0c0c0c0c0c0c0c
|
||||
0d0d0d0d0d0d0d0d0d0d0e0e0e0e0e0e0e0e0e0f0f0f0f0f0f0f0f0f10101010
|
||||
1010101010111111111111111112121212121212121313131313131313141414
|
||||
1414141414151515151515151616161616161616171717171717171818181818
|
||||
18181919191919191a1a1a1a1a1a1a1b1b1b1b1b1b1c1c1c1c1c1c1c1d1d1d1d
|
||||
1d1d1e1e1e1e1e1e1f1f1f1f1f1f202020202020212121212121222222222223
|
||||
2323232323242424242425252525252526262626262727272727282828282829
|
||||
292929292a2a2a2a2a2b2b2b2b2b2c2c2c2c2c2d2d2d2d2d2e2e2e2e2e2f2f2f
|
||||
2f2f303030303131313131323232323333333333343434343535353535363636
|
||||
36373737373838383839393939393a3a3a3a3b3b3b3b3c3c3c3c3d3d3d3d3e3e
|
||||
3e3e3f3f3f3f4040404041414141424242424343434444444445454545464646
|
||||
4647474748484848494949494a4a4a4b4b4b4b4c4c4c4d4d4d4d4e4e4e4f4f4f
|
||||
4f50505051515151525252535353535454545555555656565657575758585859
|
||||
59595a5a5a5a5b5b5b5c5c5c5d5d5d5e5e5e5f5f5f6060606061616162626263
|
||||
63636464646565656666666767676868686969696a6a6a6b6b6b6c6c6d6d6d6e
|
||||
6e6e6f6f6f707070717171727273737374747475757576767677777878787979
|
||||
797a7a7b7b7b7c7c7c7d7d7e7e7e7f7f7f808081818182828283838484848585
|
||||
86868687878888888989898a8a8b8b8b8c8c8d8d8d8e8e8f8f90909091919292
|
||||
9293939494949595969697979798989999999a9a9b9b9c9c9c9d9d9e9e9f9f9f
|
||||
a0a0a1a1a2a2a3a3a3a4a4a5a5a6a6a6a7a7a8a8a9a9aaaaabababacacadadae
|
||||
aeafafb0b0b0b1b1b2b2b3b3b4b4b5b5b6b6b6b7b7b8b8b9b9bababbbbbcbcbd
|
||||
bdbebebebfbfc0c0c1c1c2c2c3c3c4c4c5c5c6c6c7c7c8c8c9c9cacacbcbcccc
|
||||
cdcdcececfcfd0d0d1d1d2d2d3d3d4d4d5d5d6d6d7d7d8d8d9d9dadadbdcdcdd
|
||||
dddededfdfe0e0e1e1e2e2e3e3e4e4e5e6e6e7e7e8e8e9e9eaeaebebecededee
|
||||
eeefeff0f0f1f1f2f3f3f4f4f5f5f6f6f7f8f8f9f9fafafbfcfcfdfdfefeffff
|
||||
> dup length 1 sub 3 -1 roll mul dup dup floor cvi exch ceiling
|
||||
cvi 3 index exch get 4 -1 roll 3 -1 roll get
|
||||
dup 3 1 roll sub 3 -1 roll dup floor cvi sub mul add 255 div } bind
|
||||
|
||||
{ 1.0 0.0 3 -1 roll 1 index 1 index le { exch pop} { pop } ifelse
|
||||
1 index 1 index ge { exch pop } { pop } ifelse <
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000001010101010101010101010101
|
||||
0101010101010101010101010101010101010101010101020202020202020202
|
||||
0202020202020202020202020202020202030303030303030303030303030303
|
||||
0303030303030304040404040404040404040404040404040404050505050505
|
||||
0505050505050505050506060606060606060606060606060607070707070707
|
||||
0707070707070708080808080808080808080808090909090909090909090909
|
||||
0a0a0a0a0a0a0a0a0a0a0a0b0b0b0b0b0b0b0b0b0b0b0c0c0c0c0c0c0c0c0c0c
|
||||
0d0d0d0d0d0d0d0d0d0d0e0e0e0e0e0e0e0e0e0f0f0f0f0f0f0f0f0f10101010
|
||||
1010101010111111111111111112121212121212121313131313131313141414
|
||||
1414141414151515151515151616161616161616171717171717171818181818
|
||||
18181919191919191a1a1a1a1a1a1a1b1b1b1b1b1b1c1c1c1c1c1c1c1d1d1d1d
|
||||
1d1d1e1e1e1e1e1e1f1f1f1f1f1f202020202020212121212121222222222223
|
||||
2323232323242424242425252525252526262626262727272727282828282829
|
||||
292929292a2a2a2a2a2b2b2b2b2b2c2c2c2c2c2d2d2d2d2d2e2e2e2e2e2f2f2f
|
||||
2f2f303030303131313131323232323333333333343434343535353535363636
|
||||
36373737373838383839393939393a3a3a3a3b3b3b3b3c3c3c3c3d3d3d3d3e3e
|
||||
3e3e3f3f3f3f4040404041414141424242424343434444444445454545464646
|
||||
4647474748484848494949494a4a4a4b4b4b4b4c4c4c4d4d4d4d4e4e4e4f4f4f
|
||||
4f50505051515151525252535353535454545555555656565657575758585859
|
||||
59595a5a5a5a5b5b5b5c5c5c5d5d5d5e5e5e5f5f5f6060606061616162626263
|
||||
63636464646565656666666767676868686969696a6a6a6b6b6b6c6c6d6d6d6e
|
||||
6e6e6f6f6f707070717171727273737374747475757576767677777878787979
|
||||
797a7a7b7b7b7c7c7c7d7d7e7e7e7f7f7f808081818182828283838484848585
|
||||
86868687878888888989898a8a8b8b8b8c8c8d8d8d8e8e8f8f90909091919292
|
||||
9293939494949595969697979798989999999a9a9b9b9c9c9c9d9d9e9e9f9f9f
|
||||
a0a0a1a1a2a2a3a3a3a4a4a5a5a6a6a6a7a7a8a8a9a9aaaaabababacacadadae
|
||||
aeafafb0b0b0b1b1b2b2b3b3b4b4b5b5b6b6b6b7b7b8b8b9b9bababbbbbcbcbd
|
||||
bdbebebebfbfc0c0c1c1c2c2c3c3c4c4c5c5c6c6c7c7c8c8c9c9cacacbcbcccc
|
||||
cdcdcececfcfd0d0d1d1d2d2d3d3d4d4d5d5d6d6d7d7d8d8d9d9dadadbdcdcdd
|
||||
dddededfdfe0e0e1e1e2e2e3e3e4e4e5e6e6e7e7e8e8e9e9eaeaebebecededee
|
||||
eeefeff0f0f1f1f2f3f3f4f4f5f5f6f6f7f8f8f9f9fafafbfcfcfdfdfefeffff
|
||||
> dup length 1 sub 3 -1 roll mul dup dup floor cvi exch ceiling
|
||||
cvi 3 index exch get 4 -1 roll 3 -1 roll get
|
||||
dup 3 1 roll sub 3 -1 roll dup floor cvi sub mul add 255 div } bind
|
||||
|
||||
{ 1.0 0.0 3 -1 roll 1 index 1 index le { exch pop} { pop } ifelse
|
||||
1 index 1 index ge { exch pop } { pop } ifelse <
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000001010101010101010101010101
|
||||
0101010101010101010101010101010101010101010101020202020202020202
|
||||
0202020202020202020202020202020202030303030303030303030303030303
|
||||
0303030303030304040404040404040404040404040404040404050505050505
|
||||
0505050505050505050506060606060606060606060606060607070707070707
|
||||
0707070707070708080808080808080808080808090909090909090909090909
|
||||
0a0a0a0a0a0a0a0a0a0a0a0b0b0b0b0b0b0b0b0b0b0b0c0c0c0c0c0c0c0c0c0c
|
||||
0d0d0d0d0d0d0d0d0d0d0e0e0e0e0e0e0e0e0e0f0f0f0f0f0f0f0f0f10101010
|
||||
1010101010111111111111111112121212121212121313131313131313141414
|
||||
1414141414151515151515151616161616161616171717171717171818181818
|
||||
18181919191919191a1a1a1a1a1a1a1b1b1b1b1b1b1c1c1c1c1c1c1c1d1d1d1d
|
||||
1d1d1e1e1e1e1e1e1f1f1f1f1f1f202020202020212121212121222222222223
|
||||
2323232323242424242425252525252526262626262727272727282828282829
|
||||
292929292a2a2a2a2a2b2b2b2b2b2c2c2c2c2c2d2d2d2d2d2e2e2e2e2e2f2f2f
|
||||
2f2f303030303131313131323232323333333333343434343535353535363636
|
||||
36373737373838383839393939393a3a3a3a3b3b3b3b3c3c3c3c3d3d3d3d3e3e
|
||||
3e3e3f3f3f3f4040404041414141424242424343434444444445454545464646
|
||||
4647474748484848494949494a4a4a4b4b4b4b4c4c4c4d4d4d4d4e4e4e4f4f4f
|
||||
4f50505051515151525252535353535454545555555656565657575758585859
|
||||
59595a5a5a5a5b5b5b5c5c5c5d5d5d5e5e5e5f5f5f6060606061616162626263
|
||||
63636464646565656666666767676868686969696a6a6a6b6b6b6c6c6d6d6d6e
|
||||
6e6e6f6f6f707070717171727273737374747475757576767677777878787979
|
||||
797a7a7b7b7b7c7c7c7d7d7e7e7e7f7f7f808081818182828283838484848585
|
||||
86868687878888888989898a8a8b8b8b8c8c8d8d8d8e8e8f8f90909091919292
|
||||
9293939494949595969697979798989999999a9a9b9b9c9c9c9d9d9e9e9f9f9f
|
||||
a0a0a1a1a2a2a3a3a3a4a4a5a5a6a6a6a7a7a8a8a9a9aaaaabababacacadadae
|
||||
aeafafb0b0b0b1b1b2b2b3b3b4b4b5b5b6b6b6b7b7b8b8b9b9bababbbbbcbcbd
|
||||
bdbebebebfbfc0c0c1c1c2c2c3c3c4c4c5c5c6c6c7c7c8c8c9c9cacacbcbcccc
|
||||
cdcdcececfcfd0d0d1d1d2d2d3d3d4d4d5d5d6d6d7d7d8d8d9d9dadadbdcdcdd
|
||||
dddededfdfe0e0e1e1e2e2e3e3e4e4e5e6e6e7e7e8e8e9e9eaeaebebecededee
|
||||
eeefeff0f0f1f1f2f3f3f4f4f5f5f6f6f7f8f8f9f9fafafbfcfcfdfdfefeffff
|
||||
> dup length 1 sub 3 -1 roll mul dup dup floor cvi exch ceiling
|
||||
cvi 3 index exch get 4 -1 roll 3 -1 roll get
|
||||
dup 3 1 roll sub 3 -1 roll dup floor cvi sub mul add 255 div } bind
|
||||
] def
|
||||
/MatrixABC [ 0.4124 0.2126 0.0193 0.3576 0.7151 0.1192 0.1805 0.0722 0.9508 ] def
|
||||
/RangeLMN [ 0.0 0.9505 0.0 1.0000 0.0 1.0891 ] def
|
||||
end ] /Cs1 exch/ColorSpace dr pop
|
||||
%%EndPageSetup
|
||||
0.60000002 i
|
||||
/Cs1 SC
|
||||
0.13333334 0.13333334 0.13333334 sc
|
||||
q
|
||||
0 516 m
|
||||
518 516 l
|
||||
518 0 l
|
||||
0 0 l
|
||||
0 516 l
|
||||
h
|
||||
W*
|
||||
0 0 1102 516 rc
|
||||
-10 526 m
|
||||
528 526 l
|
||||
528 -10 l
|
||||
-10 -10 l
|
||||
h
|
||||
f
|
||||
Q
|
||||
1 1 1 sc
|
||||
q
|
||||
518 516 m
|
||||
1102 516 l
|
||||
1102 0 l
|
||||
518 0 l
|
||||
518 516 l
|
||||
h
|
||||
W*
|
||||
0 0 1102 516 rc
|
||||
508 526 m
|
||||
1112 526 l
|
||||
1112 -10 l
|
||||
508 -10 l
|
||||
h
|
||||
f
|
||||
Q
|
||||
0.13333334 0.13333334 0.13333334 sc
|
||||
q
|
||||
921.56757 468 m
|
||||
982 468 l
|
||||
982 48 l
|
||||
921.56757 48 l
|
||||
921.56757 261.5 l
|
||||
698.43243 261.5 l
|
||||
698.43243 48 l
|
||||
638 48 l
|
||||
638 468 l
|
||||
698.43243 468 l
|
||||
698.43243 276.08334 l
|
||||
921.56757 276.08334 l
|
||||
921.56757 468 l
|
||||
h
|
||||
W
|
||||
0 0 1102 516 rc
|
||||
628 478 m
|
||||
992 478 l
|
||||
992 38 l
|
||||
628 38 l
|
||||
h
|
||||
f
|
||||
Q
|
||||
1 1 1 sc
|
||||
q
|
||||
180.15546 262.08334 m
|
||||
180.15546 65.5 l
|
||||
233.30252 65.5 l
|
||||
266.00839 65.5 290.53781 70.166664 306.89075 86.5 c
|
||||
323.24368 103.41666 331.42017 128.5 331.42017 162.33333 c
|
||||
331.42017 196.75 322.07562 221.83333 303.97058 238.16667 c
|
||||
285.28152 254.5 253.15967 262.66666 206.43698 262.66666 c
|
||||
198.84454 262.66666 187.16386 262.08334 180.15546 262.08334 c
|
||||
h
|
||||
180.15546 452.25 m
|
||||
180.15546 276.66666 l
|
||||
195.92436 276.66666 l
|
||||
240.31093 276.66666 270.09665 283.66666 286.44958 297.66666 c
|
||||
302.80252 311.66666 310.39496 333.83334 310.39496 365.33334 c
|
||||
310.39496 386.91666 307.47479 403.83334 301.05042 415.5 c
|
||||
294.62604 427.75 284.69748 436.5 272.43277 442.91666 c
|
||||
259.58405 449.91666 238.55882 452.83334 207.60504 452.83334 c
|
||||
199.42857 452.83334 187.16386 452.83334 180.15546 452.25 c
|
||||
h
|
||||
120 48 m
|
||||
120 468 l
|
||||
204.68488 468 l
|
||||
318.57144 468 375.80673 435.33334 375.80673 369.41666 c
|
||||
375.80673 342.58334 365.87814 320.41666 346.021 304.08334 c
|
||||
326.74789 287.75 296.96219 276.66666 257.83194 270.83334 c
|
||||
305.13864 267.33334 340.18066 255.66667 363.54202 235.83333 c
|
||||
386.31934 215.41667 398 190.33333 398 160.58333 c
|
||||
398 134.33333 389.82352 111.58334 374.63864 92.333336 c
|
||||
358.86975 73.666664 339.0126 62 314.48318 56.166668 c
|
||||
289.9538 50.333332 257.83194 48 216.94958 48 c
|
||||
120 48 l
|
||||
h
|
||||
W
|
||||
0 0 1102 516 rc
|
||||
110 478 m
|
||||
408 478 l
|
||||
408 38 l
|
||||
110 38 l
|
||||
h
|
||||
f
|
||||
ep
|
||||
end
|
||||
%%Trailer
|
||||
%%EOF
|
||||
|
|
@ -0,0 +1,912 @@
|
|||
%!PS-Adobe-3.0 EPSF-3.0
|
||||
%APL_DSC_Encoding: UTF8
|
||||
%APLProducer: (Version 10.14.6 (Build 18G95) Quartz PS Context)
|
||||
%%Title: (Unknown)
|
||||
%%Creator: (Unknown)
|
||||
%%CreationDate: (Unknown)
|
||||
%%For: (Unknown)
|
||||
%%DocumentData: Clean7Bit
|
||||
%%LanguageLevel: 2
|
||||
%%Pages: 1
|
||||
%%BoundingBox: 0 0 1102 1102
|
||||
%%EndComments
|
||||
%%BeginProlog
|
||||
%%BeginFile: cg-pdf.ps
|
||||
%%Copyright: Copyright 2000-2004 Apple Computer Incorporated.
|
||||
%%Copyright: All Rights Reserved.
|
||||
currentpacking true setpacking
|
||||
/cg_md 141 dict def
|
||||
cg_md begin
|
||||
/L3? languagelevel 3 ge def
|
||||
/bd{bind def}bind def
|
||||
/ld{load def}bd
|
||||
/xs{exch store}bd
|
||||
/xd{exch def}bd
|
||||
/cmmtx matrix def
|
||||
mark
|
||||
/sc/setcolor
|
||||
/scs/setcolorspace
|
||||
/dr/defineresource
|
||||
/fr/findresource
|
||||
/T/true
|
||||
/F/false
|
||||
/d/setdash
|
||||
/w/setlinewidth
|
||||
/J/setlinecap
|
||||
/j/setlinejoin
|
||||
/M/setmiterlimit
|
||||
/i/setflat
|
||||
/rc/rectclip
|
||||
/rf/rectfill
|
||||
/rs/rectstroke
|
||||
/f/fill
|
||||
/f*/eofill
|
||||
/sf/selectfont
|
||||
/s/show
|
||||
%/as/ashow
|
||||
/xS/xshow
|
||||
/yS/yshow
|
||||
/xyS/xyshow
|
||||
/S/stroke
|
||||
/m/moveto
|
||||
/l/lineto
|
||||
/c/curveto
|
||||
/h/closepath
|
||||
/n/newpath
|
||||
/q/gsave
|
||||
/Q/grestore
|
||||
counttomark 2 idiv
|
||||
%dup (number of ld's = )print == flush % *** how many
|
||||
{ld}repeat pop
|
||||
/SC{ % CSname
|
||||
/ColorSpace fr scs
|
||||
}bd
|
||||
/sopr /setoverprint where{pop/setoverprint}{/pop}ifelse ld
|
||||
/soprm /setoverprintmode where{pop/setoverprintmode}{/pop}ifelse ld
|
||||
/cgmtx matrix def
|
||||
/sdmtx{cgmtx currentmatrix pop}bd
|
||||
/CM {cgmtx setmatrix}bd % pop the ctm: our gstate ctm on host is now identity
|
||||
/cm {cmmtx astore CM concat}bd % reset the matrix and then concat
|
||||
/W{clip newpath}bd
|
||||
/W*{eoclip newpath}bd
|
||||
|
||||
statusdict begin product end dup (HP) anchorsearch{
|
||||
pop pop pop % pop off the search results
|
||||
true
|
||||
}{
|
||||
pop % previous search result
|
||||
(hp) anchorsearch{
|
||||
pop pop true
|
||||
}{
|
||||
pop false
|
||||
}ifelse
|
||||
}ifelse
|
||||
|
||||
{ % HP is the product: we use this method of stroking because of a bug in their clone printers with certain T3 fonts
|
||||
{
|
||||
{ % charCode Wx Wy
|
||||
pop pop % charCode
|
||||
(0)dup 0 4 -1 roll put
|
||||
F charpath
|
||||
}cshow
|
||||
}
|
||||
}{
|
||||
{F charpath}
|
||||
}ifelse
|
||||
/cply exch bd
|
||||
/cps {cply stroke}bd
|
||||
/pgsave 0 def
|
||||
/bp{/pgsave save store}bd
|
||||
/ep{pgsave restore showpage}def % dont' bind
|
||||
/re{4 2 roll m 1 index 0 rlineto 0 exch rlineto neg 0 rlineto h}bd
|
||||
|
||||
/scrdict 10 dict def
|
||||
/scrmtx matrix def
|
||||
/patarray 0 def
|
||||
/createpat{patarray 3 1 roll put}bd
|
||||
/makepat{
|
||||
scrmtx astore pop
|
||||
gsave
|
||||
initgraphics
|
||||
CM
|
||||
patarray exch get
|
||||
scrmtx
|
||||
makepattern
|
||||
grestore
|
||||
setpattern
|
||||
}bd
|
||||
|
||||
/cg_BeginEPSF{
|
||||
userdict save/cg_b4_Inc_state exch put
|
||||
userdict/cg_endepsf/cg_EndEPSF load put
|
||||
count userdict/cg_op_count 3 -1 roll put
|
||||
countdictstack dup array dictstack userdict/cg_dict_array 3 -1 roll put
|
||||
3 sub{end}repeat
|
||||
/showpage {} def
|
||||
0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin
|
||||
10 setmiterlimit [] 0 setdash newpath
|
||||
false setstrokeadjust false setoverprint % don't use F
|
||||
}bd
|
||||
/cg_EndEPSF{
|
||||
countdictstack 3 sub { end } repeat
|
||||
cg_dict_array 3 1 index length 3 sub getinterval
|
||||
{begin}forall
|
||||
count userdict/cg_op_count get sub{pop}repeat
|
||||
userdict/cg_b4_Inc_state get restore
|
||||
F setpacking
|
||||
}bd
|
||||
|
||||
/cg_biproc{currentfile/RunLengthDecode filter}bd
|
||||
/cg_aiproc{currentfile/ASCII85Decode filter/RunLengthDecode filter}bd
|
||||
/ImageDataSource 0 def
|
||||
L3?{
|
||||
/cg_mibiproc{pop pop/ImageDataSource{cg_biproc}def}bd
|
||||
/cg_miaiproc{pop pop/ImageDataSource{cg_aiproc}def}bd
|
||||
}{
|
||||
/ImageBandMask 0 def
|
||||
/ImageBandData 0 def
|
||||
/cg_mibiproc{
|
||||
string/ImageBandMask xs
|
||||
string/ImageBandData xs
|
||||
/ImageDataSource{[currentfile/RunLengthDecode filter dup ImageBandMask/readstring cvx
|
||||
/pop cvx dup ImageBandData/readstring cvx/pop cvx]cvx bind}bd
|
||||
}bd
|
||||
/cg_miaiproc{
|
||||
string/ImageBandMask xs
|
||||
string/ImageBandData xs
|
||||
/ImageDataSource{[currentfile/ASCII85Decode filter/RunLengthDecode filter
|
||||
dup ImageBandMask/readstring cvx
|
||||
/pop cvx dup ImageBandData/readstring cvx/pop cvx]cvx bind}bd
|
||||
}bd
|
||||
}ifelse
|
||||
/imsave 0 def
|
||||
/BI{save/imsave xd mark}bd
|
||||
/EI{imsave restore}bd
|
||||
/ID{
|
||||
counttomark 2 idiv
|
||||
dup 2 add % leave room for imagetype and imagematrix
|
||||
dict begin
|
||||
{def} repeat
|
||||
pop % remove mark
|
||||
/ImageType 1 def
|
||||
/ImageMatrix[Width 0 0 Height neg 0 Height]def
|
||||
currentdict dup/ImageMask known{ImageMask}{F}ifelse exch
|
||||
% currentdict on stack
|
||||
L3?{
|
||||
dup/MaskedImage known
|
||||
{
|
||||
pop
|
||||
<<
|
||||
/ImageType 3
|
||||
/InterleaveType 2
|
||||
/DataDict currentdict
|
||||
/MaskDict
|
||||
<< /ImageType 1
|
||||
/Width Width
|
||||
/Height Height
|
||||
/ImageMatrix ImageMatrix
|
||||
/BitsPerComponent 1
|
||||
/Decode [0 1]
|
||||
currentdict/Interpolate known
|
||||
{/Interpolate Interpolate}if
|
||||
>>
|
||||
>>
|
||||
}if
|
||||
}if
|
||||
exch
|
||||
{imagemask}{image}ifelse
|
||||
end % pop imagedict from dict stack
|
||||
}bd
|
||||
|
||||
/cguidfix{statusdict begin mark version end
|
||||
{cvr}stopped{cleartomark 0}{exch pop}ifelse
|
||||
2012 lt{dup findfont dup length dict begin
|
||||
{1 index/FID ne 2 index/UniqueID ne and
|
||||
{def} {pop pop} ifelse}forall
|
||||
currentdict end definefont pop
|
||||
}{pop}ifelse
|
||||
}bd
|
||||
/t_array 0 def
|
||||
/t_i 0 def
|
||||
/t_c 1 string def
|
||||
/x_proc{ % x y
|
||||
exch t_array t_i get add exch moveto
|
||||
/t_i t_i 1 add store
|
||||
}bd
|
||||
/y_proc{ % x y
|
||||
t_array t_i get add moveto
|
||||
/t_i t_i 1 add store
|
||||
}bd
|
||||
/xy_proc{
|
||||
% x y
|
||||
t_array t_i 2 copy 1 add get 3 1 roll get
|
||||
4 -1 roll add 3 1 roll add moveto
|
||||
/t_i t_i 2 add store
|
||||
}bd
|
||||
/sop 0 def % don't bind sop
|
||||
/cp_proc/x_proc ld % default moveto proc is for xwidths only
|
||||
/base_charpath % string array
|
||||
{
|
||||
/t_array xs
|
||||
/t_i 0 def
|
||||
{ % char
|
||||
t_c 0 3 -1 roll put
|
||||
currentpoint
|
||||
t_c cply sop
|
||||
cp_proc
|
||||
}forall
|
||||
/t_array 0 def
|
||||
}bd
|
||||
/sop/stroke ld % default sop is stroke. Done here so we don't bind in /base_charpath
|
||||
|
||||
% default sop is stroke
|
||||
/nop{}def
|
||||
/xsp/base_charpath ld
|
||||
/ysp{/cp_proc/y_proc ld base_charpath/cp_proc/x_proc ld}bd
|
||||
/xysp{/cp_proc/xy_proc ld base_charpath/cp_proc/x_proc ld}bd
|
||||
/xmp{/sop/nop ld /cp_proc/x_proc ld base_charpath/sop/stroke ld}bd
|
||||
/ymp{/sop/nop ld /cp_proc/y_proc ld base_charpath/sop/stroke ld}bd
|
||||
/xymp{/sop/nop ld /cp_proc/xy_proc ld base_charpath/sop/stroke ld}bd
|
||||
/refnt{ % newname encoding fontname
|
||||
findfont dup length dict copy dup
|
||||
/Encoding 4 -1 roll put
|
||||
definefont pop
|
||||
}bd
|
||||
/renmfont{ % newname fontname
|
||||
findfont dup length dict copy definefont pop
|
||||
}bd
|
||||
|
||||
L3? dup dup{save exch}if
|
||||
|
||||
% languagelevel2 ONLY code goes here
|
||||
|
||||
/Range 0 def
|
||||
/DataSource 0 def
|
||||
/val 0 def
|
||||
/nRange 0 def
|
||||
/mulRange 0 def
|
||||
/d0 0 def
|
||||
/r0 0 def
|
||||
/di 0 def
|
||||
/ri 0 def
|
||||
/a0 0 def
|
||||
/a1 0 def
|
||||
/r1 0 def
|
||||
/r2 0 def
|
||||
/dx 0 def
|
||||
/Nsteps 0 def
|
||||
/sh3tp 0 def
|
||||
/ymax 0 def
|
||||
/ymin 0 def
|
||||
/xmax 0 def
|
||||
/xmin 0 def
|
||||
|
||||
/setupFunEval % funDict -- % this calculates and sets up a function dict for evaulation.
|
||||
{
|
||||
begin
|
||||
/nRange Range length 2 idiv store
|
||||
/mulRange % precompute the range data needed to map a sample value from the table to a range value
|
||||
% this data looks like [ range0mul range0min range1mul range1min ... rangeN-1mul rangeN-1min ]
|
||||
[
|
||||
0 1 nRange 1 sub
|
||||
{ % index
|
||||
2 mul/nDim2 xd % 2*dimension# we are dealing with
|
||||
Range nDim2 get % ymin
|
||||
Range nDim2 1 add get % ymin ymax
|
||||
1 index sub % ymin (ymax-ymin)
|
||||
% xmin = 0, xmax = 255 (2^bitspersample - 1)
|
||||
255 div % ymin (ymax-ymin)/(xmax - xmin)
|
||||
exch % (ymax-ymin)/(xmax - xmin) ymin
|
||||
}for
|
||||
]store
|
||||
end
|
||||
}bd
|
||||
|
||||
/FunEval % val1 fundict -> comp1 comp2 ... compN
|
||||
{
|
||||
begin
|
||||
% the value passed in is the base index into the table
|
||||
nRange mul /val xd % compute the actual index to the table
|
||||
% since there are nRange entries per base index
|
||||
0 1 nRange 1 sub
|
||||
{
|
||||
dup 2 mul/nDim2 xd % dim
|
||||
val % base value to use to do our lookup
|
||||
add DataSource exch get % lookedupval
|
||||
mulRange nDim2 get mul % lookedupval*(ymax-ymin)/(xmax-xmin)
|
||||
mulRange nDim2 1 add get % lookedupval*(ymax-ymin)/(xmax-xmin) ymin
|
||||
add % interpolated result
|
||||
}for % comp1 comp2 ... compN
|
||||
end
|
||||
}bd
|
||||
|
||||
/max % a b -> max(a, b)
|
||||
{
|
||||
2 copy lt
|
||||
{exch pop}{pop}ifelse
|
||||
}bd
|
||||
|
||||
/sh2
|
||||
{ % emulation of shading type 2. Assumes shading dictionary is top dictionary on the dict stack
|
||||
/Coords load aload pop % x0 y0 x1 y1
|
||||
3 index 3 index translate % origin is now at beginning point of shading
|
||||
% x0 y0 x1 y1
|
||||
3 -1 roll sub % x0 x1 y1-y0
|
||||
3 1 roll exch % y1-y0 x1 x0
|
||||
sub % y1-y0 x1-x0
|
||||
2 copy
|
||||
dup mul exch dup mul add sqrt % length of segment between two points
|
||||
dup
|
||||
scale
|
||||
atan % atan (dy/dx)
|
||||
%dup (rotation angle = )print ==
|
||||
rotate % now line between 0,0 and 1,0 is the line perpendicular to which the axial lines are drawn
|
||||
|
||||
/Function load setupFunEval % may need to setup function dictionary by calling setupFunEval
|
||||
|
||||
% this is now specific to axial shadings. Compute the maximum bounds to fill
|
||||
clippath {pathbbox}stopped {0 0 0 0}if newpath % x0 y0 x1 y1
|
||||
/ymax xs
|
||||
/xmax xs
|
||||
/ymin xs
|
||||
/xmin xs
|
||||
currentdict/Extend known
|
||||
{
|
||||
/Extend load 0 get
|
||||
{
|
||||
0/Function load FunEval sc % evaluate the function to get a color and set it
|
||||
xmin ymin xmin abs ymax ymin sub rectfill
|
||||
}if
|
||||
}if
|
||||
% paint the rects. The sampling frequency is that of our table
|
||||
/Nsteps/Function load/Size get 0 get 1 sub store
|
||||
/dx 1 Nsteps div store
|
||||
gsave
|
||||
/di ymax ymin sub store
|
||||
/Function load
|
||||
% loop Nsteps + 1 times, incrementing the index by 1 each time
|
||||
0 1 Nsteps
|
||||
{
|
||||
1 index FunEval sc
|
||||
0 ymin dx di rectfill
|
||||
dx 0 translate
|
||||
}for
|
||||
pop % pop our function
|
||||
grestore % origin is back to start point
|
||||
currentdict/Extend known
|
||||
{
|
||||
/Extend load 1 get
|
||||
{
|
||||
Nsteps/Function load FunEval sc % last element
|
||||
1 ymin xmax 1 sub abs ymax ymin sub rectfill
|
||||
}if
|
||||
}if
|
||||
}bd
|
||||
|
||||
/shp % this paints our shape for shading type 3
|
||||
{ % x1 r1 x0 r0 -
|
||||
4 copy
|
||||
|
||||
% fill interior arc
|
||||
dup 0 gt{
|
||||
0 exch a1 a0 arc
|
||||
}{
|
||||
pop 0 moveto
|
||||
}ifelse
|
||||
|
||||
dup 0 gt{
|
||||
0 exch a0 a1 arcn
|
||||
}{
|
||||
pop 0 lineto
|
||||
}ifelse
|
||||
|
||||
fill
|
||||
|
||||
% fill exterior arc
|
||||
dup 0 gt{
|
||||
0 exch a0 a1 arc
|
||||
}{
|
||||
pop 0 moveto
|
||||
}ifelse
|
||||
|
||||
dup 0 gt{
|
||||
0 exch a1 a0 arcn
|
||||
}{
|
||||
pop 0 lineto
|
||||
}ifelse
|
||||
|
||||
fill
|
||||
}bd
|
||||
|
||||
/calcmaxs
|
||||
{ % calculate maximum distance vector from origin to corner points
|
||||
% of bbox
|
||||
xmin dup mul ymin dup mul add sqrt % (xmin2 + ymin2)
|
||||
xmax dup mul ymin dup mul add sqrt % (xmax2 + ymin2)
|
||||
xmin dup mul ymax dup mul add sqrt % (xmin2 + ymax2)
|
||||
xmax dup mul ymax dup mul add sqrt % (xmax2 + ymax2)
|
||||
max max max % maximum value
|
||||
}bd
|
||||
|
||||
/sh3
|
||||
{ % emulation of shading type 3. Assumes shading dictionary is top dictionary on the dict stack
|
||||
/Coords load aload pop % x0 y0 r1 x1 y1 r2
|
||||
5 index 5 index translate % origin is now at first circle origin
|
||||
3 -1 roll 6 -1 roll sub % y0 r1 y1 r2 dx
|
||||
3 -1 roll 5 -1 roll sub % r1 r2 dx dy
|
||||
2 copy dup mul exch dup mul add sqrt
|
||||
/dx xs % r1 r2 dx dy
|
||||
2 copy 0 ne exch 0 ne or
|
||||
{
|
||||
% r1 r2 dx dy
|
||||
exch atan rotate % we are now rotated so dy is zero and positive values of dx move us as expected
|
||||
}{
|
||||
pop pop
|
||||
}ifelse
|
||||
% r1 r2
|
||||
/r2 xs
|
||||
/r1 xs
|
||||
/Function load
|
||||
dup/Size get 0 get 1 sub % this is the size of our table minus 1
|
||||
/Nsteps xs % at some point we should optimize this better so NSteps is based on needed steps for the device
|
||||
setupFunEval % may need to setup function dictionary by calling setupFunEval
|
||||
% determine the case:
|
||||
% case 0: circle1 inside circle2
|
||||
% case 1: circle 2 inside circle 1
|
||||
% case 2: r1 = r2
|
||||
% case 3: r1 != r2
|
||||
dx r2 add r1 lt{
|
||||
% circle 2 inside of circle 1
|
||||
0
|
||||
}{
|
||||
dx r1 add r2 le
|
||||
{ % circle 1 inside of circle 2
|
||||
1
|
||||
}{ % circles don't contain each other
|
||||
r1 r2 eq
|
||||
{ % equal
|
||||
2
|
||||
}{ % r1 != r2
|
||||
3
|
||||
}ifelse
|
||||
}ifelse
|
||||
}ifelse
|
||||
/sh3tp xs % sh3tp has the number of our different cases
|
||||
clippath {pathbbox}stopped {0 0 0 0}if
|
||||
newpath % x0 y0 x1 y1
|
||||
/ymax xs
|
||||
/xmax xs
|
||||
/ymin xs
|
||||
/xmin xs
|
||||
|
||||
% Arc angle atan( sqrt((dx*dx + dy*dy) - dr*dr), dr)
|
||||
dx dup mul r2 r1 sub dup mul sub dup 0 gt
|
||||
{
|
||||
sqrt r2 r1 sub atan
|
||||
/a0 exch 180 exch sub store
|
||||
/a1 a0 neg store
|
||||
}{
|
||||
pop
|
||||
/a0 0 store
|
||||
/a1 360 store
|
||||
}ifelse
|
||||
|
||||
currentdict/Extend known
|
||||
{
|
||||
/Extend load 0 get r1 0 gt and % no need to extend if the radius of the first end is 0
|
||||
{
|
||||
0/Function load FunEval sc % evaluate the function to get a color and set it
|
||||
% case 0: circle1 inside circle2
|
||||
% case 1: circle 2 inside circle 1
|
||||
% case 2: circles don't contain each other and r1 == r2
|
||||
% case 3: circles don't contain each other and r1 != r2
|
||||
{
|
||||
{ % case 0
|
||||
dx 0 r1 360 0 arcn
|
||||
xmin ymin moveto
|
||||
xmax ymin lineto
|
||||
xmax ymax lineto
|
||||
xmin ymax lineto
|
||||
xmin ymin lineto
|
||||
eofill % for the bigger radius we fill everything except our circle
|
||||
}
|
||||
{ % case 1
|
||||
r1 0 gt{0 0 r1 0 360 arc fill}if
|
||||
}
|
||||
{ % case 2
|
||||
% r1 == r2, extend 0
|
||||
% r3 = r, x3 = -(abs(minx) + r), x1 = 0
|
||||
|
||||
% x(i+1) r(i+1) x(i) r(i) shp
|
||||
0 r1 xmin abs r1 add neg r1 shp
|
||||
}
|
||||
{ % case 3
|
||||
% no containment, r1 != r2
|
||||
|
||||
r2 r1 gt{ % the endpoint we are drawing is that with a circle of zero radius
|
||||
% x(i+1) r(i+1) x(i) r(i) shp
|
||||
0 r1
|
||||
r1 neg r2 r1 sub div dx mul % this is point of beginning circle
|
||||
0 % point of ending circle
|
||||
shp % takes x(i+1) r(i+1) x(i) r(i)
|
||||
}{ % the first circle is the bigger of the two
|
||||
% we find a circle on our line which is outside the bbox in the
|
||||
% negative direction
|
||||
% x(i+1) r(i+1) x(i) r(i) shp
|
||||
0 r1 calcmaxs % 0 r1 maxs
|
||||
dup
|
||||
% calculating xs: (-(maxs+r2)*x2)/(x2-(r1-r2))
|
||||
r2 add dx mul dx r1 r2 sub sub div
|
||||
neg % maxs xs'
|
||||
exch 1 index % xs' maxs xs'
|
||||
abs exch sub
|
||||
shp
|
||||
}ifelse
|
||||
}
|
||||
}sh3tp get exec % execute the extend at beginning proc for our shading type
|
||||
}if
|
||||
}if
|
||||
|
||||
% now do the shading
|
||||
/d0 0 store
|
||||
/r0 r1 store
|
||||
/di dx Nsteps div store
|
||||
/ri r2 r1 sub Nsteps div store
|
||||
/Function load
|
||||
0 1 Nsteps
|
||||
{ % function t(i)
|
||||
1 index FunEval sc
|
||||
d0 di add r0 ri add d0 r0 shp
|
||||
{
|
||||
% fill interior arc
|
||||
d0 0 r0 a1 a0 arc
|
||||
d0 di add 0 r0 ri add a0 a1 arcn
|
||||
fill
|
||||
|
||||
% fill exterior arc
|
||||
d0 0 r0 a0 a1 arc
|
||||
d0 di add 0 r0 ri add a1 a0 arcn
|
||||
fill
|
||||
}pop
|
||||
|
||||
% advance to next
|
||||
/d0 d0 di add store
|
||||
/r0 r0 ri add store
|
||||
}for
|
||||
pop % pop our function dict
|
||||
|
||||
% handle Extend
|
||||
currentdict/Extend known
|
||||
{
|
||||
/Extend load 1 get r2 0 gt and % no need to extend if the radius of the last end is 0
|
||||
{
|
||||
Nsteps/Function load FunEval sc % last element
|
||||
% case 0: circle1 inside circle2
|
||||
% case 1: circle 2 inside circle 1
|
||||
% case 2: circles don't contain each other and r1 == r2
|
||||
% case 3: circles don't contain each other and r1 != r2
|
||||
{
|
||||
{
|
||||
dx 0 r2 0 360 arc fill
|
||||
}
|
||||
{
|
||||
dx 0 r2 360 0 arcn
|
||||
xmin ymin moveto
|
||||
xmax ymin lineto
|
||||
xmax ymax lineto
|
||||
xmin ymax lineto
|
||||
xmin ymin lineto
|
||||
eofill % for the bigger radius we fill everything except our circle
|
||||
}
|
||||
{ % r1 == r2, extend 1
|
||||
% r3 = r, x3 = (abs(xmax) + r), x1 = dx
|
||||
% x(i+1) r(i+1) x(i) r(i) shp
|
||||
xmax abs r1 add r1 dx r1 shp
|
||||
}
|
||||
{ % no containment, r1 != r2
|
||||
|
||||
r2 r1 gt{
|
||||
% we find a circle on our line which is outside the bbox in the
|
||||
% positive direction
|
||||
% x(i+1) r(i+1) x(i) r(i) shp
|
||||
calcmaxs dup % maxs maxs
|
||||
% calculating xs: ((maxs+r1)*x2)/(x2-(r2-r1))
|
||||
r1 add dx mul dx r2 r1 sub sub div % maxs xs
|
||||
exch 1 index % xs maxs xs
|
||||
exch sub
|
||||
dx r2
|
||||
shp
|
||||
}{ % the endpoint we are drawing is that with a circle of zero radius
|
||||
% x(i+1) r(i+1) x(i) r(i) shp
|
||||
r1 neg r2 r1 sub div dx mul % this is point of ending circle
|
||||
0 % radius of ending circle
|
||||
dx % point of starting circle
|
||||
r2 % radius of starting circle
|
||||
shp
|
||||
}ifelse
|
||||
}
|
||||
}
|
||||
sh3tp get exec % execute the extend at end proc for our shading type
|
||||
}if
|
||||
}if
|
||||
}bd
|
||||
/sh % emulation of shfill operator for type 2 and type 3 shadings based on type 0 functions
|
||||
{ % shadingDict --
|
||||
begin
|
||||
/ShadingType load dup dup 2 eq exch 3 eq or
|
||||
{ % shadingtype
|
||||
gsave
|
||||
newpath
|
||||
/ColorSpace load scs
|
||||
currentdict/BBox known
|
||||
{
|
||||
/BBox load aload pop % llx lly urx ury
|
||||
2 index sub % llx lly urx ury-lly
|
||||
3 index % llx lly urx ury-lly llx
|
||||
3 -1 roll exch sub
|
||||
exch rectclip
|
||||
}if
|
||||
2 eq
|
||||
{sh2}{sh3}ifelse
|
||||
grestore
|
||||
}{
|
||||
% shadingtype
|
||||
pop
|
||||
(DEBUG: shading type unimplemented\n)print flush
|
||||
}ifelse
|
||||
end
|
||||
}bd
|
||||
|
||||
% end of language level 2 ONLY code
|
||||
|
||||
{restore}if not dup{save exch}if
|
||||
% languagelevel3 ONLY code goes here
|
||||
L3?{ % we do these loads conditionally or else they will fail on a level 2 printer
|
||||
/sh/shfill ld
|
||||
/csq/clipsave ld
|
||||
/csQ/cliprestore ld
|
||||
}if
|
||||
{restore}if
|
||||
|
||||
%currentdict dup maxlength exch length sub (number of extra slots in md = )print == flush % *** how many entries are free
|
||||
end
|
||||
setpacking
|
||||
% count 0 ne { pstack(***extras on stack during prolog execution***\n)print flush}if % *** BARK if anything is left on stack
|
||||
%%EndFile
|
||||
%%EndProlog
|
||||
%%BeginSetup
|
||||
%%EndSetup
|
||||
%%Page: 1 1
|
||||
%%PageBoundingBox: 0 0 1102 1102
|
||||
%%BeginPageSetup
|
||||
cg_md begin
|
||||
bp
|
||||
sdmtx
|
||||
[ /CIEBasedABC 4 dict dup begin
|
||||
/WhitePoint [ 0.9505 1.0000 1.0891 ] def
|
||||
/DecodeABC [
|
||||
{ 1.0 0.0 3 -1 roll 1 index 1 index le { exch pop} { pop } ifelse
|
||||
1 index 1 index ge { exch pop } { pop } ifelse <
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000001010101010101010101010101
|
||||
0101010101010101010101010101010101010101010101020202020202020202
|
||||
0202020202020202020202020202020202030303030303030303030303030303
|
||||
0303030303030304040404040404040404040404040404040404050505050505
|
||||
0505050505050505050506060606060606060606060606060607070707070707
|
||||
0707070707070708080808080808080808080808090909090909090909090909
|
||||
0a0a0a0a0a0a0a0a0a0a0a0b0b0b0b0b0b0b0b0b0b0b0c0c0c0c0c0c0c0c0c0c
|
||||
0d0d0d0d0d0d0d0d0d0d0e0e0e0e0e0e0e0e0e0f0f0f0f0f0f0f0f0f10101010
|
||||
1010101010111111111111111112121212121212121313131313131313141414
|
||||
1414141414151515151515151616161616161616171717171717171818181818
|
||||
18181919191919191a1a1a1a1a1a1a1b1b1b1b1b1b1c1c1c1c1c1c1c1d1d1d1d
|
||||
1d1d1e1e1e1e1e1e1f1f1f1f1f1f202020202020212121212121222222222223
|
||||
2323232323242424242425252525252526262626262727272727282828282829
|
||||
292929292a2a2a2a2a2b2b2b2b2b2c2c2c2c2c2d2d2d2d2d2e2e2e2e2e2f2f2f
|
||||
2f2f303030303131313131323232323333333333343434343535353535363636
|
||||
36373737373838383839393939393a3a3a3a3b3b3b3b3c3c3c3c3d3d3d3d3e3e
|
||||
3e3e3f3f3f3f4040404041414141424242424343434444444445454545464646
|
||||
4647474748484848494949494a4a4a4b4b4b4b4c4c4c4d4d4d4d4e4e4e4f4f4f
|
||||
4f50505051515151525252535353535454545555555656565657575758585859
|
||||
59595a5a5a5a5b5b5b5c5c5c5d5d5d5e5e5e5f5f5f6060606061616162626263
|
||||
63636464646565656666666767676868686969696a6a6a6b6b6b6c6c6d6d6d6e
|
||||
6e6e6f6f6f707070717171727273737374747475757576767677777878787979
|
||||
797a7a7b7b7b7c7c7c7d7d7e7e7e7f7f7f808081818182828283838484848585
|
||||
86868687878888888989898a8a8b8b8b8c8c8d8d8d8e8e8f8f90909091919292
|
||||
9293939494949595969697979798989999999a9a9b9b9c9c9c9d9d9e9e9f9f9f
|
||||
a0a0a1a1a2a2a3a3a3a4a4a5a5a6a6a6a7a7a8a8a9a9aaaaabababacacadadae
|
||||
aeafafb0b0b0b1b1b2b2b3b3b4b4b5b5b6b6b6b7b7b8b8b9b9bababbbbbcbcbd
|
||||
bdbebebebfbfc0c0c1c1c2c2c3c3c4c4c5c5c6c6c7c7c8c8c9c9cacacbcbcccc
|
||||
cdcdcececfcfd0d0d1d1d2d2d3d3d4d4d5d5d6d6d7d7d8d8d9d9dadadbdcdcdd
|
||||
dddededfdfe0e0e1e1e2e2e3e3e4e4e5e6e6e7e7e8e8e9e9eaeaebebecededee
|
||||
eeefeff0f0f1f1f2f3f3f4f4f5f5f6f6f7f8f8f9f9fafafbfcfcfdfdfefeffff
|
||||
> dup length 1 sub 3 -1 roll mul dup dup floor cvi exch ceiling
|
||||
cvi 3 index exch get 4 -1 roll 3 -1 roll get
|
||||
dup 3 1 roll sub 3 -1 roll dup floor cvi sub mul add 255 div } bind
|
||||
|
||||
{ 1.0 0.0 3 -1 roll 1 index 1 index le { exch pop} { pop } ifelse
|
||||
1 index 1 index ge { exch pop } { pop } ifelse <
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000001010101010101010101010101
|
||||
0101010101010101010101010101010101010101010101020202020202020202
|
||||
0202020202020202020202020202020202030303030303030303030303030303
|
||||
0303030303030304040404040404040404040404040404040404050505050505
|
||||
0505050505050505050506060606060606060606060606060607070707070707
|
||||
0707070707070708080808080808080808080808090909090909090909090909
|
||||
0a0a0a0a0a0a0a0a0a0a0a0b0b0b0b0b0b0b0b0b0b0b0c0c0c0c0c0c0c0c0c0c
|
||||
0d0d0d0d0d0d0d0d0d0d0e0e0e0e0e0e0e0e0e0f0f0f0f0f0f0f0f0f10101010
|
||||
1010101010111111111111111112121212121212121313131313131313141414
|
||||
1414141414151515151515151616161616161616171717171717171818181818
|
||||
18181919191919191a1a1a1a1a1a1a1b1b1b1b1b1b1c1c1c1c1c1c1c1d1d1d1d
|
||||
1d1d1e1e1e1e1e1e1f1f1f1f1f1f202020202020212121212121222222222223
|
||||
2323232323242424242425252525252526262626262727272727282828282829
|
||||
292929292a2a2a2a2a2b2b2b2b2b2c2c2c2c2c2d2d2d2d2d2e2e2e2e2e2f2f2f
|
||||
2f2f303030303131313131323232323333333333343434343535353535363636
|
||||
36373737373838383839393939393a3a3a3a3b3b3b3b3c3c3c3c3d3d3d3d3e3e
|
||||
3e3e3f3f3f3f4040404041414141424242424343434444444445454545464646
|
||||
4647474748484848494949494a4a4a4b4b4b4b4c4c4c4d4d4d4d4e4e4e4f4f4f
|
||||
4f50505051515151525252535353535454545555555656565657575758585859
|
||||
59595a5a5a5a5b5b5b5c5c5c5d5d5d5e5e5e5f5f5f6060606061616162626263
|
||||
63636464646565656666666767676868686969696a6a6a6b6b6b6c6c6d6d6d6e
|
||||
6e6e6f6f6f707070717171727273737374747475757576767677777878787979
|
||||
797a7a7b7b7b7c7c7c7d7d7e7e7e7f7f7f808081818182828283838484848585
|
||||
86868687878888888989898a8a8b8b8b8c8c8d8d8d8e8e8f8f90909091919292
|
||||
9293939494949595969697979798989999999a9a9b9b9c9c9c9d9d9e9e9f9f9f
|
||||
a0a0a1a1a2a2a3a3a3a4a4a5a5a6a6a6a7a7a8a8a9a9aaaaabababacacadadae
|
||||
aeafafb0b0b0b1b1b2b2b3b3b4b4b5b5b6b6b6b7b7b8b8b9b9bababbbbbcbcbd
|
||||
bdbebebebfbfc0c0c1c1c2c2c3c3c4c4c5c5c6c6c7c7c8c8c9c9cacacbcbcccc
|
||||
cdcdcececfcfd0d0d1d1d2d2d3d3d4d4d5d5d6d6d7d7d8d8d9d9dadadbdcdcdd
|
||||
dddededfdfe0e0e1e1e2e2e3e3e4e4e5e6e6e7e7e8e8e9e9eaeaebebecededee
|
||||
eeefeff0f0f1f1f2f3f3f4f4f5f5f6f6f7f8f8f9f9fafafbfcfcfdfdfefeffff
|
||||
> dup length 1 sub 3 -1 roll mul dup dup floor cvi exch ceiling
|
||||
cvi 3 index exch get 4 -1 roll 3 -1 roll get
|
||||
dup 3 1 roll sub 3 -1 roll dup floor cvi sub mul add 255 div } bind
|
||||
|
||||
{ 1.0 0.0 3 -1 roll 1 index 1 index le { exch pop} { pop } ifelse
|
||||
1 index 1 index ge { exch pop } { pop } ifelse <
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000001010101010101010101010101
|
||||
0101010101010101010101010101010101010101010101020202020202020202
|
||||
0202020202020202020202020202020202030303030303030303030303030303
|
||||
0303030303030304040404040404040404040404040404040404050505050505
|
||||
0505050505050505050506060606060606060606060606060607070707070707
|
||||
0707070707070708080808080808080808080808090909090909090909090909
|
||||
0a0a0a0a0a0a0a0a0a0a0a0b0b0b0b0b0b0b0b0b0b0b0c0c0c0c0c0c0c0c0c0c
|
||||
0d0d0d0d0d0d0d0d0d0d0e0e0e0e0e0e0e0e0e0f0f0f0f0f0f0f0f0f10101010
|
||||
1010101010111111111111111112121212121212121313131313131313141414
|
||||
1414141414151515151515151616161616161616171717171717171818181818
|
||||
18181919191919191a1a1a1a1a1a1a1b1b1b1b1b1b1c1c1c1c1c1c1c1d1d1d1d
|
||||
1d1d1e1e1e1e1e1e1f1f1f1f1f1f202020202020212121212121222222222223
|
||||
2323232323242424242425252525252526262626262727272727282828282829
|
||||
292929292a2a2a2a2a2b2b2b2b2b2c2c2c2c2c2d2d2d2d2d2e2e2e2e2e2f2f2f
|
||||
2f2f303030303131313131323232323333333333343434343535353535363636
|
||||
36373737373838383839393939393a3a3a3a3b3b3b3b3c3c3c3c3d3d3d3d3e3e
|
||||
3e3e3f3f3f3f4040404041414141424242424343434444444445454545464646
|
||||
4647474748484848494949494a4a4a4b4b4b4b4c4c4c4d4d4d4d4e4e4e4f4f4f
|
||||
4f50505051515151525252535353535454545555555656565657575758585859
|
||||
59595a5a5a5a5b5b5b5c5c5c5d5d5d5e5e5e5f5f5f6060606061616162626263
|
||||
63636464646565656666666767676868686969696a6a6a6b6b6b6c6c6d6d6d6e
|
||||
6e6e6f6f6f707070717171727273737374747475757576767677777878787979
|
||||
797a7a7b7b7b7c7c7c7d7d7e7e7e7f7f7f808081818182828283838484848585
|
||||
86868687878888888989898a8a8b8b8b8c8c8d8d8d8e8e8f8f90909091919292
|
||||
9293939494949595969697979798989999999a9a9b9b9c9c9c9d9d9e9e9f9f9f
|
||||
a0a0a1a1a2a2a3a3a3a4a4a5a5a6a6a6a7a7a8a8a9a9aaaaabababacacadadae
|
||||
aeafafb0b0b0b1b1b2b2b3b3b4b4b5b5b6b6b6b7b7b8b8b9b9bababbbbbcbcbd
|
||||
bdbebebebfbfc0c0c1c1c2c2c3c3c4c4c5c5c6c6c7c7c8c8c9c9cacacbcbcccc
|
||||
cdcdcececfcfd0d0d1d1d2d2d3d3d4d4d5d5d6d6d7d7d8d8d9d9dadadbdcdcdd
|
||||
dddededfdfe0e0e1e1e2e2e3e3e4e4e5e6e6e7e7e8e8e9e9eaeaebebecededee
|
||||
eeefeff0f0f1f1f2f3f3f4f4f5f5f6f6f7f8f8f9f9fafafbfcfcfdfdfefeffff
|
||||
> dup length 1 sub 3 -1 roll mul dup dup floor cvi exch ceiling
|
||||
cvi 3 index exch get 4 -1 roll 3 -1 roll get
|
||||
dup 3 1 roll sub 3 -1 roll dup floor cvi sub mul add 255 div } bind
|
||||
] def
|
||||
/MatrixABC [ 0.4124 0.2126 0.0193 0.3576 0.7151 0.1192 0.1805 0.0722 0.9508 ] def
|
||||
/RangeLMN [ 0.0 0.9505 0.0 1.0000 0.0 1.0891 ] def
|
||||
end ] /Cs1 exch/ColorSpace dr pop
|
||||
%%EndPageSetup
|
||||
0.60000002 i
|
||||
/Cs1 SC
|
||||
0.13333334 0.13333334 0.13333334 sc
|
||||
q
|
||||
0 1102 m
|
||||
518 1102 l
|
||||
518 0 l
|
||||
0 0 l
|
||||
0 1102 l
|
||||
h
|
||||
W*
|
||||
0 0 1102 1102 rc
|
||||
-10 1112 m
|
||||
528 1112 l
|
||||
528 -10 l
|
||||
-10 -10 l
|
||||
h
|
||||
f
|
||||
Q
|
||||
0.76078433 0.65098041 0.38039216 sc
|
||||
q
|
||||
518 1102 m
|
||||
1102 1102 l
|
||||
1102 0 l
|
||||
518 0 l
|
||||
518 1102 l
|
||||
h
|
||||
W*
|
||||
0 0 1102 1102 rc
|
||||
508 1112 m
|
||||
1112 1112 l
|
||||
1112 -10 l
|
||||
508 -10 l
|
||||
h
|
||||
f
|
||||
Q
|
||||
0.13333334 0.13333334 0.13333334 sc
|
||||
q
|
||||
921.56757 760 m
|
||||
982 760 l
|
||||
982 340 l
|
||||
921.56757 340 l
|
||||
921.56757 553.5 l
|
||||
698.43243 553.5 l
|
||||
698.43243 340 l
|
||||
638 340 l
|
||||
638 760 l
|
||||
698.43243 760 l
|
||||
698.43243 568.08331 l
|
||||
921.56757 568.08331 l
|
||||
921.56757 760 l
|
||||
h
|
||||
W
|
||||
0 0 1102 1102 rc
|
||||
628 770 m
|
||||
992 770 l
|
||||
992 330 l
|
||||
628 330 l
|
||||
h
|
||||
f
|
||||
Q
|
||||
0.76078433 0.65098041 0.38039216 sc
|
||||
q
|
||||
180.15546 554.08331 m
|
||||
180.15546 357.5 l
|
||||
233.30252 357.5 l
|
||||
266.00839 357.5 290.53781 362.16666 306.89075 378.5 c
|
||||
323.24368 395.41666 331.42017 420.5 331.42017 454.33334 c
|
||||
331.42017 488.75 322.07562 513.83331 303.97058 530.16669 c
|
||||
285.28152 546.5 253.15967 554.66669 206.43698 554.66669 c
|
||||
198.84454 554.66669 187.16386 554.08331 180.15546 554.08331 c
|
||||
h
|
||||
180.15546 744.25 m
|
||||
180.15546 568.66669 l
|
||||
195.92436 568.66669 l
|
||||
240.31093 568.66669 270.09665 575.66669 286.44958 589.66669 c
|
||||
302.80252 603.66669 310.39496 625.83331 310.39496 657.33331 c
|
||||
310.39496 678.91669 307.47479 695.83331 301.05042 707.5 c
|
||||
294.62604 719.75 284.69748 728.5 272.43277 734.91669 c
|
||||
259.58405 741.91669 238.55882 744.83331 207.60504 744.83331 c
|
||||
199.42857 744.83331 187.16386 744.83331 180.15546 744.25 c
|
||||
h
|
||||
120 340 m
|
||||
120 760 l
|
||||
204.68488 760 l
|
||||
318.57144 760 375.80673 727.33331 375.80673 661.41669 c
|
||||
375.80673 634.58331 365.87814 612.41669 346.021 596.08331 c
|
||||
326.74789 579.75 296.96219 568.66669 257.83194 562.83331 c
|
||||
305.13864 559.33331 340.18066 547.66669 363.54202 527.83331 c
|
||||
386.31934 507.41666 398 482.33334 398 452.58334 c
|
||||
398 426.33334 389.82352 403.58334 374.63864 384.33334 c
|
||||
358.86975 365.66666 339.0126 354 314.48318 348.16666 c
|
||||
289.9538 342.33334 257.83194 340 216.94958 340 c
|
||||
120 340 l
|
||||
h
|
||||
W
|
||||
0 0 1102 1102 rc
|
||||
110 770 m
|
||||
408 770 l
|
||||
408 330 l
|
||||
110 330 l
|
||||
h
|
||||
f
|
||||
ep
|
||||
end
|
||||
%%Trailer
|
||||
%%EOF
|
||||
|
|
@ -0,0 +1,912 @@
|
|||
%!PS-Adobe-3.0 EPSF-3.0
|
||||
%APL_DSC_Encoding: UTF8
|
||||
%APLProducer: (Version 10.14.6 (Build 18G95) Quartz PS Context)
|
||||
%%Title: (Unknown)
|
||||
%%Creator: (Unknown)
|
||||
%%CreationDate: (Unknown)
|
||||
%%For: (Unknown)
|
||||
%%DocumentData: Clean7Bit
|
||||
%%LanguageLevel: 2
|
||||
%%Pages: 1
|
||||
%%BoundingBox: 0 0 1102 1102
|
||||
%%EndComments
|
||||
%%BeginProlog
|
||||
%%BeginFile: cg-pdf.ps
|
||||
%%Copyright: Copyright 2000-2004 Apple Computer Incorporated.
|
||||
%%Copyright: All Rights Reserved.
|
||||
currentpacking true setpacking
|
||||
/cg_md 141 dict def
|
||||
cg_md begin
|
||||
/L3? languagelevel 3 ge def
|
||||
/bd{bind def}bind def
|
||||
/ld{load def}bd
|
||||
/xs{exch store}bd
|
||||
/xd{exch def}bd
|
||||
/cmmtx matrix def
|
||||
mark
|
||||
/sc/setcolor
|
||||
/scs/setcolorspace
|
||||
/dr/defineresource
|
||||
/fr/findresource
|
||||
/T/true
|
||||
/F/false
|
||||
/d/setdash
|
||||
/w/setlinewidth
|
||||
/J/setlinecap
|
||||
/j/setlinejoin
|
||||
/M/setmiterlimit
|
||||
/i/setflat
|
||||
/rc/rectclip
|
||||
/rf/rectfill
|
||||
/rs/rectstroke
|
||||
/f/fill
|
||||
/f*/eofill
|
||||
/sf/selectfont
|
||||
/s/show
|
||||
%/as/ashow
|
||||
/xS/xshow
|
||||
/yS/yshow
|
||||
/xyS/xyshow
|
||||
/S/stroke
|
||||
/m/moveto
|
||||
/l/lineto
|
||||
/c/curveto
|
||||
/h/closepath
|
||||
/n/newpath
|
||||
/q/gsave
|
||||
/Q/grestore
|
||||
counttomark 2 idiv
|
||||
%dup (number of ld's = )print == flush % *** how many
|
||||
{ld}repeat pop
|
||||
/SC{ % CSname
|
||||
/ColorSpace fr scs
|
||||
}bd
|
||||
/sopr /setoverprint where{pop/setoverprint}{/pop}ifelse ld
|
||||
/soprm /setoverprintmode where{pop/setoverprintmode}{/pop}ifelse ld
|
||||
/cgmtx matrix def
|
||||
/sdmtx{cgmtx currentmatrix pop}bd
|
||||
/CM {cgmtx setmatrix}bd % pop the ctm: our gstate ctm on host is now identity
|
||||
/cm {cmmtx astore CM concat}bd % reset the matrix and then concat
|
||||
/W{clip newpath}bd
|
||||
/W*{eoclip newpath}bd
|
||||
|
||||
statusdict begin product end dup (HP) anchorsearch{
|
||||
pop pop pop % pop off the search results
|
||||
true
|
||||
}{
|
||||
pop % previous search result
|
||||
(hp) anchorsearch{
|
||||
pop pop true
|
||||
}{
|
||||
pop false
|
||||
}ifelse
|
||||
}ifelse
|
||||
|
||||
{ % HP is the product: we use this method of stroking because of a bug in their clone printers with certain T3 fonts
|
||||
{
|
||||
{ % charCode Wx Wy
|
||||
pop pop % charCode
|
||||
(0)dup 0 4 -1 roll put
|
||||
F charpath
|
||||
}cshow
|
||||
}
|
||||
}{
|
||||
{F charpath}
|
||||
}ifelse
|
||||
/cply exch bd
|
||||
/cps {cply stroke}bd
|
||||
/pgsave 0 def
|
||||
/bp{/pgsave save store}bd
|
||||
/ep{pgsave restore showpage}def % dont' bind
|
||||
/re{4 2 roll m 1 index 0 rlineto 0 exch rlineto neg 0 rlineto h}bd
|
||||
|
||||
/scrdict 10 dict def
|
||||
/scrmtx matrix def
|
||||
/patarray 0 def
|
||||
/createpat{patarray 3 1 roll put}bd
|
||||
/makepat{
|
||||
scrmtx astore pop
|
||||
gsave
|
||||
initgraphics
|
||||
CM
|
||||
patarray exch get
|
||||
scrmtx
|
||||
makepattern
|
||||
grestore
|
||||
setpattern
|
||||
}bd
|
||||
|
||||
/cg_BeginEPSF{
|
||||
userdict save/cg_b4_Inc_state exch put
|
||||
userdict/cg_endepsf/cg_EndEPSF load put
|
||||
count userdict/cg_op_count 3 -1 roll put
|
||||
countdictstack dup array dictstack userdict/cg_dict_array 3 -1 roll put
|
||||
3 sub{end}repeat
|
||||
/showpage {} def
|
||||
0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin
|
||||
10 setmiterlimit [] 0 setdash newpath
|
||||
false setstrokeadjust false setoverprint % don't use F
|
||||
}bd
|
||||
/cg_EndEPSF{
|
||||
countdictstack 3 sub { end } repeat
|
||||
cg_dict_array 3 1 index length 3 sub getinterval
|
||||
{begin}forall
|
||||
count userdict/cg_op_count get sub{pop}repeat
|
||||
userdict/cg_b4_Inc_state get restore
|
||||
F setpacking
|
||||
}bd
|
||||
|
||||
/cg_biproc{currentfile/RunLengthDecode filter}bd
|
||||
/cg_aiproc{currentfile/ASCII85Decode filter/RunLengthDecode filter}bd
|
||||
/ImageDataSource 0 def
|
||||
L3?{
|
||||
/cg_mibiproc{pop pop/ImageDataSource{cg_biproc}def}bd
|
||||
/cg_miaiproc{pop pop/ImageDataSource{cg_aiproc}def}bd
|
||||
}{
|
||||
/ImageBandMask 0 def
|
||||
/ImageBandData 0 def
|
||||
/cg_mibiproc{
|
||||
string/ImageBandMask xs
|
||||
string/ImageBandData xs
|
||||
/ImageDataSource{[currentfile/RunLengthDecode filter dup ImageBandMask/readstring cvx
|
||||
/pop cvx dup ImageBandData/readstring cvx/pop cvx]cvx bind}bd
|
||||
}bd
|
||||
/cg_miaiproc{
|
||||
string/ImageBandMask xs
|
||||
string/ImageBandData xs
|
||||
/ImageDataSource{[currentfile/ASCII85Decode filter/RunLengthDecode filter
|
||||
dup ImageBandMask/readstring cvx
|
||||
/pop cvx dup ImageBandData/readstring cvx/pop cvx]cvx bind}bd
|
||||
}bd
|
||||
}ifelse
|
||||
/imsave 0 def
|
||||
/BI{save/imsave xd mark}bd
|
||||
/EI{imsave restore}bd
|
||||
/ID{
|
||||
counttomark 2 idiv
|
||||
dup 2 add % leave room for imagetype and imagematrix
|
||||
dict begin
|
||||
{def} repeat
|
||||
pop % remove mark
|
||||
/ImageType 1 def
|
||||
/ImageMatrix[Width 0 0 Height neg 0 Height]def
|
||||
currentdict dup/ImageMask known{ImageMask}{F}ifelse exch
|
||||
% currentdict on stack
|
||||
L3?{
|
||||
dup/MaskedImage known
|
||||
{
|
||||
pop
|
||||
<<
|
||||
/ImageType 3
|
||||
/InterleaveType 2
|
||||
/DataDict currentdict
|
||||
/MaskDict
|
||||
<< /ImageType 1
|
||||
/Width Width
|
||||
/Height Height
|
||||
/ImageMatrix ImageMatrix
|
||||
/BitsPerComponent 1
|
||||
/Decode [0 1]
|
||||
currentdict/Interpolate known
|
||||
{/Interpolate Interpolate}if
|
||||
>>
|
||||
>>
|
||||
}if
|
||||
}if
|
||||
exch
|
||||
{imagemask}{image}ifelse
|
||||
end % pop imagedict from dict stack
|
||||
}bd
|
||||
|
||||
/cguidfix{statusdict begin mark version end
|
||||
{cvr}stopped{cleartomark 0}{exch pop}ifelse
|
||||
2012 lt{dup findfont dup length dict begin
|
||||
{1 index/FID ne 2 index/UniqueID ne and
|
||||
{def} {pop pop} ifelse}forall
|
||||
currentdict end definefont pop
|
||||
}{pop}ifelse
|
||||
}bd
|
||||
/t_array 0 def
|
||||
/t_i 0 def
|
||||
/t_c 1 string def
|
||||
/x_proc{ % x y
|
||||
exch t_array t_i get add exch moveto
|
||||
/t_i t_i 1 add store
|
||||
}bd
|
||||
/y_proc{ % x y
|
||||
t_array t_i get add moveto
|
||||
/t_i t_i 1 add store
|
||||
}bd
|
||||
/xy_proc{
|
||||
% x y
|
||||
t_array t_i 2 copy 1 add get 3 1 roll get
|
||||
4 -1 roll add 3 1 roll add moveto
|
||||
/t_i t_i 2 add store
|
||||
}bd
|
||||
/sop 0 def % don't bind sop
|
||||
/cp_proc/x_proc ld % default moveto proc is for xwidths only
|
||||
/base_charpath % string array
|
||||
{
|
||||
/t_array xs
|
||||
/t_i 0 def
|
||||
{ % char
|
||||
t_c 0 3 -1 roll put
|
||||
currentpoint
|
||||
t_c cply sop
|
||||
cp_proc
|
||||
}forall
|
||||
/t_array 0 def
|
||||
}bd
|
||||
/sop/stroke ld % default sop is stroke. Done here so we don't bind in /base_charpath
|
||||
|
||||
% default sop is stroke
|
||||
/nop{}def
|
||||
/xsp/base_charpath ld
|
||||
/ysp{/cp_proc/y_proc ld base_charpath/cp_proc/x_proc ld}bd
|
||||
/xysp{/cp_proc/xy_proc ld base_charpath/cp_proc/x_proc ld}bd
|
||||
/xmp{/sop/nop ld /cp_proc/x_proc ld base_charpath/sop/stroke ld}bd
|
||||
/ymp{/sop/nop ld /cp_proc/y_proc ld base_charpath/sop/stroke ld}bd
|
||||
/xymp{/sop/nop ld /cp_proc/xy_proc ld base_charpath/sop/stroke ld}bd
|
||||
/refnt{ % newname encoding fontname
|
||||
findfont dup length dict copy dup
|
||||
/Encoding 4 -1 roll put
|
||||
definefont pop
|
||||
}bd
|
||||
/renmfont{ % newname fontname
|
||||
findfont dup length dict copy definefont pop
|
||||
}bd
|
||||
|
||||
L3? dup dup{save exch}if
|
||||
|
||||
% languagelevel2 ONLY code goes here
|
||||
|
||||
/Range 0 def
|
||||
/DataSource 0 def
|
||||
/val 0 def
|
||||
/nRange 0 def
|
||||
/mulRange 0 def
|
||||
/d0 0 def
|
||||
/r0 0 def
|
||||
/di 0 def
|
||||
/ri 0 def
|
||||
/a0 0 def
|
||||
/a1 0 def
|
||||
/r1 0 def
|
||||
/r2 0 def
|
||||
/dx 0 def
|
||||
/Nsteps 0 def
|
||||
/sh3tp 0 def
|
||||
/ymax 0 def
|
||||
/ymin 0 def
|
||||
/xmax 0 def
|
||||
/xmin 0 def
|
||||
|
||||
/setupFunEval % funDict -- % this calculates and sets up a function dict for evaulation.
|
||||
{
|
||||
begin
|
||||
/nRange Range length 2 idiv store
|
||||
/mulRange % precompute the range data needed to map a sample value from the table to a range value
|
||||
% this data looks like [ range0mul range0min range1mul range1min ... rangeN-1mul rangeN-1min ]
|
||||
[
|
||||
0 1 nRange 1 sub
|
||||
{ % index
|
||||
2 mul/nDim2 xd % 2*dimension# we are dealing with
|
||||
Range nDim2 get % ymin
|
||||
Range nDim2 1 add get % ymin ymax
|
||||
1 index sub % ymin (ymax-ymin)
|
||||
% xmin = 0, xmax = 255 (2^bitspersample - 1)
|
||||
255 div % ymin (ymax-ymin)/(xmax - xmin)
|
||||
exch % (ymax-ymin)/(xmax - xmin) ymin
|
||||
}for
|
||||
]store
|
||||
end
|
||||
}bd
|
||||
|
||||
/FunEval % val1 fundict -> comp1 comp2 ... compN
|
||||
{
|
||||
begin
|
||||
% the value passed in is the base index into the table
|
||||
nRange mul /val xd % compute the actual index to the table
|
||||
% since there are nRange entries per base index
|
||||
0 1 nRange 1 sub
|
||||
{
|
||||
dup 2 mul/nDim2 xd % dim
|
||||
val % base value to use to do our lookup
|
||||
add DataSource exch get % lookedupval
|
||||
mulRange nDim2 get mul % lookedupval*(ymax-ymin)/(xmax-xmin)
|
||||
mulRange nDim2 1 add get % lookedupval*(ymax-ymin)/(xmax-xmin) ymin
|
||||
add % interpolated result
|
||||
}for % comp1 comp2 ... compN
|
||||
end
|
||||
}bd
|
||||
|
||||
/max % a b -> max(a, b)
|
||||
{
|
||||
2 copy lt
|
||||
{exch pop}{pop}ifelse
|
||||
}bd
|
||||
|
||||
/sh2
|
||||
{ % emulation of shading type 2. Assumes shading dictionary is top dictionary on the dict stack
|
||||
/Coords load aload pop % x0 y0 x1 y1
|
||||
3 index 3 index translate % origin is now at beginning point of shading
|
||||
% x0 y0 x1 y1
|
||||
3 -1 roll sub % x0 x1 y1-y0
|
||||
3 1 roll exch % y1-y0 x1 x0
|
||||
sub % y1-y0 x1-x0
|
||||
2 copy
|
||||
dup mul exch dup mul add sqrt % length of segment between two points
|
||||
dup
|
||||
scale
|
||||
atan % atan (dy/dx)
|
||||
%dup (rotation angle = )print ==
|
||||
rotate % now line between 0,0 and 1,0 is the line perpendicular to which the axial lines are drawn
|
||||
|
||||
/Function load setupFunEval % may need to setup function dictionary by calling setupFunEval
|
||||
|
||||
% this is now specific to axial shadings. Compute the maximum bounds to fill
|
||||
clippath {pathbbox}stopped {0 0 0 0}if newpath % x0 y0 x1 y1
|
||||
/ymax xs
|
||||
/xmax xs
|
||||
/ymin xs
|
||||
/xmin xs
|
||||
currentdict/Extend known
|
||||
{
|
||||
/Extend load 0 get
|
||||
{
|
||||
0/Function load FunEval sc % evaluate the function to get a color and set it
|
||||
xmin ymin xmin abs ymax ymin sub rectfill
|
||||
}if
|
||||
}if
|
||||
% paint the rects. The sampling frequency is that of our table
|
||||
/Nsteps/Function load/Size get 0 get 1 sub store
|
||||
/dx 1 Nsteps div store
|
||||
gsave
|
||||
/di ymax ymin sub store
|
||||
/Function load
|
||||
% loop Nsteps + 1 times, incrementing the index by 1 each time
|
||||
0 1 Nsteps
|
||||
{
|
||||
1 index FunEval sc
|
||||
0 ymin dx di rectfill
|
||||
dx 0 translate
|
||||
}for
|
||||
pop % pop our function
|
||||
grestore % origin is back to start point
|
||||
currentdict/Extend known
|
||||
{
|
||||
/Extend load 1 get
|
||||
{
|
||||
Nsteps/Function load FunEval sc % last element
|
||||
1 ymin xmax 1 sub abs ymax ymin sub rectfill
|
||||
}if
|
||||
}if
|
||||
}bd
|
||||
|
||||
/shp % this paints our shape for shading type 3
|
||||
{ % x1 r1 x0 r0 -
|
||||
4 copy
|
||||
|
||||
% fill interior arc
|
||||
dup 0 gt{
|
||||
0 exch a1 a0 arc
|
||||
}{
|
||||
pop 0 moveto
|
||||
}ifelse
|
||||
|
||||
dup 0 gt{
|
||||
0 exch a0 a1 arcn
|
||||
}{
|
||||
pop 0 lineto
|
||||
}ifelse
|
||||
|
||||
fill
|
||||
|
||||
% fill exterior arc
|
||||
dup 0 gt{
|
||||
0 exch a0 a1 arc
|
||||
}{
|
||||
pop 0 moveto
|
||||
}ifelse
|
||||
|
||||
dup 0 gt{
|
||||
0 exch a1 a0 arcn
|
||||
}{
|
||||
pop 0 lineto
|
||||
}ifelse
|
||||
|
||||
fill
|
||||
}bd
|
||||
|
||||
/calcmaxs
|
||||
{ % calculate maximum distance vector from origin to corner points
|
||||
% of bbox
|
||||
xmin dup mul ymin dup mul add sqrt % (xmin2 + ymin2)
|
||||
xmax dup mul ymin dup mul add sqrt % (xmax2 + ymin2)
|
||||
xmin dup mul ymax dup mul add sqrt % (xmin2 + ymax2)
|
||||
xmax dup mul ymax dup mul add sqrt % (xmax2 + ymax2)
|
||||
max max max % maximum value
|
||||
}bd
|
||||
|
||||
/sh3
|
||||
{ % emulation of shading type 3. Assumes shading dictionary is top dictionary on the dict stack
|
||||
/Coords load aload pop % x0 y0 r1 x1 y1 r2
|
||||
5 index 5 index translate % origin is now at first circle origin
|
||||
3 -1 roll 6 -1 roll sub % y0 r1 y1 r2 dx
|
||||
3 -1 roll 5 -1 roll sub % r1 r2 dx dy
|
||||
2 copy dup mul exch dup mul add sqrt
|
||||
/dx xs % r1 r2 dx dy
|
||||
2 copy 0 ne exch 0 ne or
|
||||
{
|
||||
% r1 r2 dx dy
|
||||
exch atan rotate % we are now rotated so dy is zero and positive values of dx move us as expected
|
||||
}{
|
||||
pop pop
|
||||
}ifelse
|
||||
% r1 r2
|
||||
/r2 xs
|
||||
/r1 xs
|
||||
/Function load
|
||||
dup/Size get 0 get 1 sub % this is the size of our table minus 1
|
||||
/Nsteps xs % at some point we should optimize this better so NSteps is based on needed steps for the device
|
||||
setupFunEval % may need to setup function dictionary by calling setupFunEval
|
||||
% determine the case:
|
||||
% case 0: circle1 inside circle2
|
||||
% case 1: circle 2 inside circle 1
|
||||
% case 2: r1 = r2
|
||||
% case 3: r1 != r2
|
||||
dx r2 add r1 lt{
|
||||
% circle 2 inside of circle 1
|
||||
0
|
||||
}{
|
||||
dx r1 add r2 le
|
||||
{ % circle 1 inside of circle 2
|
||||
1
|
||||
}{ % circles don't contain each other
|
||||
r1 r2 eq
|
||||
{ % equal
|
||||
2
|
||||
}{ % r1 != r2
|
||||
3
|
||||
}ifelse
|
||||
}ifelse
|
||||
}ifelse
|
||||
/sh3tp xs % sh3tp has the number of our different cases
|
||||
clippath {pathbbox}stopped {0 0 0 0}if
|
||||
newpath % x0 y0 x1 y1
|
||||
/ymax xs
|
||||
/xmax xs
|
||||
/ymin xs
|
||||
/xmin xs
|
||||
|
||||
% Arc angle atan( sqrt((dx*dx + dy*dy) - dr*dr), dr)
|
||||
dx dup mul r2 r1 sub dup mul sub dup 0 gt
|
||||
{
|
||||
sqrt r2 r1 sub atan
|
||||
/a0 exch 180 exch sub store
|
||||
/a1 a0 neg store
|
||||
}{
|
||||
pop
|
||||
/a0 0 store
|
||||
/a1 360 store
|
||||
}ifelse
|
||||
|
||||
currentdict/Extend known
|
||||
{
|
||||
/Extend load 0 get r1 0 gt and % no need to extend if the radius of the first end is 0
|
||||
{
|
||||
0/Function load FunEval sc % evaluate the function to get a color and set it
|
||||
% case 0: circle1 inside circle2
|
||||
% case 1: circle 2 inside circle 1
|
||||
% case 2: circles don't contain each other and r1 == r2
|
||||
% case 3: circles don't contain each other and r1 != r2
|
||||
{
|
||||
{ % case 0
|
||||
dx 0 r1 360 0 arcn
|
||||
xmin ymin moveto
|
||||
xmax ymin lineto
|
||||
xmax ymax lineto
|
||||
xmin ymax lineto
|
||||
xmin ymin lineto
|
||||
eofill % for the bigger radius we fill everything except our circle
|
||||
}
|
||||
{ % case 1
|
||||
r1 0 gt{0 0 r1 0 360 arc fill}if
|
||||
}
|
||||
{ % case 2
|
||||
% r1 == r2, extend 0
|
||||
% r3 = r, x3 = -(abs(minx) + r), x1 = 0
|
||||
|
||||
% x(i+1) r(i+1) x(i) r(i) shp
|
||||
0 r1 xmin abs r1 add neg r1 shp
|
||||
}
|
||||
{ % case 3
|
||||
% no containment, r1 != r2
|
||||
|
||||
r2 r1 gt{ % the endpoint we are drawing is that with a circle of zero radius
|
||||
% x(i+1) r(i+1) x(i) r(i) shp
|
||||
0 r1
|
||||
r1 neg r2 r1 sub div dx mul % this is point of beginning circle
|
||||
0 % point of ending circle
|
||||
shp % takes x(i+1) r(i+1) x(i) r(i)
|
||||
}{ % the first circle is the bigger of the two
|
||||
% we find a circle on our line which is outside the bbox in the
|
||||
% negative direction
|
||||
% x(i+1) r(i+1) x(i) r(i) shp
|
||||
0 r1 calcmaxs % 0 r1 maxs
|
||||
dup
|
||||
% calculating xs: (-(maxs+r2)*x2)/(x2-(r1-r2))
|
||||
r2 add dx mul dx r1 r2 sub sub div
|
||||
neg % maxs xs'
|
||||
exch 1 index % xs' maxs xs'
|
||||
abs exch sub
|
||||
shp
|
||||
}ifelse
|
||||
}
|
||||
}sh3tp get exec % execute the extend at beginning proc for our shading type
|
||||
}if
|
||||
}if
|
||||
|
||||
% now do the shading
|
||||
/d0 0 store
|
||||
/r0 r1 store
|
||||
/di dx Nsteps div store
|
||||
/ri r2 r1 sub Nsteps div store
|
||||
/Function load
|
||||
0 1 Nsteps
|
||||
{ % function t(i)
|
||||
1 index FunEval sc
|
||||
d0 di add r0 ri add d0 r0 shp
|
||||
{
|
||||
% fill interior arc
|
||||
d0 0 r0 a1 a0 arc
|
||||
d0 di add 0 r0 ri add a0 a1 arcn
|
||||
fill
|
||||
|
||||
% fill exterior arc
|
||||
d0 0 r0 a0 a1 arc
|
||||
d0 di add 0 r0 ri add a1 a0 arcn
|
||||
fill
|
||||
}pop
|
||||
|
||||
% advance to next
|
||||
/d0 d0 di add store
|
||||
/r0 r0 ri add store
|
||||
}for
|
||||
pop % pop our function dict
|
||||
|
||||
% handle Extend
|
||||
currentdict/Extend known
|
||||
{
|
||||
/Extend load 1 get r2 0 gt and % no need to extend if the radius of the last end is 0
|
||||
{
|
||||
Nsteps/Function load FunEval sc % last element
|
||||
% case 0: circle1 inside circle2
|
||||
% case 1: circle 2 inside circle 1
|
||||
% case 2: circles don't contain each other and r1 == r2
|
||||
% case 3: circles don't contain each other and r1 != r2
|
||||
{
|
||||
{
|
||||
dx 0 r2 0 360 arc fill
|
||||
}
|
||||
{
|
||||
dx 0 r2 360 0 arcn
|
||||
xmin ymin moveto
|
||||
xmax ymin lineto
|
||||
xmax ymax lineto
|
||||
xmin ymax lineto
|
||||
xmin ymin lineto
|
||||
eofill % for the bigger radius we fill everything except our circle
|
||||
}
|
||||
{ % r1 == r2, extend 1
|
||||
% r3 = r, x3 = (abs(xmax) + r), x1 = dx
|
||||
% x(i+1) r(i+1) x(i) r(i) shp
|
||||
xmax abs r1 add r1 dx r1 shp
|
||||
}
|
||||
{ % no containment, r1 != r2
|
||||
|
||||
r2 r1 gt{
|
||||
% we find a circle on our line which is outside the bbox in the
|
||||
% positive direction
|
||||
% x(i+1) r(i+1) x(i) r(i) shp
|
||||
calcmaxs dup % maxs maxs
|
||||
% calculating xs: ((maxs+r1)*x2)/(x2-(r2-r1))
|
||||
r1 add dx mul dx r2 r1 sub sub div % maxs xs
|
||||
exch 1 index % xs maxs xs
|
||||
exch sub
|
||||
dx r2
|
||||
shp
|
||||
}{ % the endpoint we are drawing is that with a circle of zero radius
|
||||
% x(i+1) r(i+1) x(i) r(i) shp
|
||||
r1 neg r2 r1 sub div dx mul % this is point of ending circle
|
||||
0 % radius of ending circle
|
||||
dx % point of starting circle
|
||||
r2 % radius of starting circle
|
||||
shp
|
||||
}ifelse
|
||||
}
|
||||
}
|
||||
sh3tp get exec % execute the extend at end proc for our shading type
|
||||
}if
|
||||
}if
|
||||
}bd
|
||||
/sh % emulation of shfill operator for type 2 and type 3 shadings based on type 0 functions
|
||||
{ % shadingDict --
|
||||
begin
|
||||
/ShadingType load dup dup 2 eq exch 3 eq or
|
||||
{ % shadingtype
|
||||
gsave
|
||||
newpath
|
||||
/ColorSpace load scs
|
||||
currentdict/BBox known
|
||||
{
|
||||
/BBox load aload pop % llx lly urx ury
|
||||
2 index sub % llx lly urx ury-lly
|
||||
3 index % llx lly urx ury-lly llx
|
||||
3 -1 roll exch sub
|
||||
exch rectclip
|
||||
}if
|
||||
2 eq
|
||||
{sh2}{sh3}ifelse
|
||||
grestore
|
||||
}{
|
||||
% shadingtype
|
||||
pop
|
||||
(DEBUG: shading type unimplemented\n)print flush
|
||||
}ifelse
|
||||
end
|
||||
}bd
|
||||
|
||||
% end of language level 2 ONLY code
|
||||
|
||||
{restore}if not dup{save exch}if
|
||||
% languagelevel3 ONLY code goes here
|
||||
L3?{ % we do these loads conditionally or else they will fail on a level 2 printer
|
||||
/sh/shfill ld
|
||||
/csq/clipsave ld
|
||||
/csQ/cliprestore ld
|
||||
}if
|
||||
{restore}if
|
||||
|
||||
%currentdict dup maxlength exch length sub (number of extra slots in md = )print == flush % *** how many entries are free
|
||||
end
|
||||
setpacking
|
||||
% count 0 ne { pstack(***extras on stack during prolog execution***\n)print flush}if % *** BARK if anything is left on stack
|
||||
%%EndFile
|
||||
%%EndProlog
|
||||
%%BeginSetup
|
||||
%%EndSetup
|
||||
%%Page: 1 1
|
||||
%%PageBoundingBox: 0 0 1102 1102
|
||||
%%BeginPageSetup
|
||||
cg_md begin
|
||||
bp
|
||||
sdmtx
|
||||
[ /CIEBasedABC 4 dict dup begin
|
||||
/WhitePoint [ 0.9505 1.0000 1.0891 ] def
|
||||
/DecodeABC [
|
||||
{ 1.0 0.0 3 -1 roll 1 index 1 index le { exch pop} { pop } ifelse
|
||||
1 index 1 index ge { exch pop } { pop } ifelse <
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000001010101010101010101010101
|
||||
0101010101010101010101010101010101010101010101020202020202020202
|
||||
0202020202020202020202020202020202030303030303030303030303030303
|
||||
0303030303030304040404040404040404040404040404040404050505050505
|
||||
0505050505050505050506060606060606060606060606060607070707070707
|
||||
0707070707070708080808080808080808080808090909090909090909090909
|
||||
0a0a0a0a0a0a0a0a0a0a0a0b0b0b0b0b0b0b0b0b0b0b0c0c0c0c0c0c0c0c0c0c
|
||||
0d0d0d0d0d0d0d0d0d0d0e0e0e0e0e0e0e0e0e0f0f0f0f0f0f0f0f0f10101010
|
||||
1010101010111111111111111112121212121212121313131313131313141414
|
||||
1414141414151515151515151616161616161616171717171717171818181818
|
||||
18181919191919191a1a1a1a1a1a1a1b1b1b1b1b1b1c1c1c1c1c1c1c1d1d1d1d
|
||||
1d1d1e1e1e1e1e1e1f1f1f1f1f1f202020202020212121212121222222222223
|
||||
2323232323242424242425252525252526262626262727272727282828282829
|
||||
292929292a2a2a2a2a2b2b2b2b2b2c2c2c2c2c2d2d2d2d2d2e2e2e2e2e2f2f2f
|
||||
2f2f303030303131313131323232323333333333343434343535353535363636
|
||||
36373737373838383839393939393a3a3a3a3b3b3b3b3c3c3c3c3d3d3d3d3e3e
|
||||
3e3e3f3f3f3f4040404041414141424242424343434444444445454545464646
|
||||
4647474748484848494949494a4a4a4b4b4b4b4c4c4c4d4d4d4d4e4e4e4f4f4f
|
||||
4f50505051515151525252535353535454545555555656565657575758585859
|
||||
59595a5a5a5a5b5b5b5c5c5c5d5d5d5e5e5e5f5f5f6060606061616162626263
|
||||
63636464646565656666666767676868686969696a6a6a6b6b6b6c6c6d6d6d6e
|
||||
6e6e6f6f6f707070717171727273737374747475757576767677777878787979
|
||||
797a7a7b7b7b7c7c7c7d7d7e7e7e7f7f7f808081818182828283838484848585
|
||||
86868687878888888989898a8a8b8b8b8c8c8d8d8d8e8e8f8f90909091919292
|
||||
9293939494949595969697979798989999999a9a9b9b9c9c9c9d9d9e9e9f9f9f
|
||||
a0a0a1a1a2a2a3a3a3a4a4a5a5a6a6a6a7a7a8a8a9a9aaaaabababacacadadae
|
||||
aeafafb0b0b0b1b1b2b2b3b3b4b4b5b5b6b6b6b7b7b8b8b9b9bababbbbbcbcbd
|
||||
bdbebebebfbfc0c0c1c1c2c2c3c3c4c4c5c5c6c6c7c7c8c8c9c9cacacbcbcccc
|
||||
cdcdcececfcfd0d0d1d1d2d2d3d3d4d4d5d5d6d6d7d7d8d8d9d9dadadbdcdcdd
|
||||
dddededfdfe0e0e1e1e2e2e3e3e4e4e5e6e6e7e7e8e8e9e9eaeaebebecededee
|
||||
eeefeff0f0f1f1f2f3f3f4f4f5f5f6f6f7f8f8f9f9fafafbfcfcfdfdfefeffff
|
||||
> dup length 1 sub 3 -1 roll mul dup dup floor cvi exch ceiling
|
||||
cvi 3 index exch get 4 -1 roll 3 -1 roll get
|
||||
dup 3 1 roll sub 3 -1 roll dup floor cvi sub mul add 255 div } bind
|
||||
|
||||
{ 1.0 0.0 3 -1 roll 1 index 1 index le { exch pop} { pop } ifelse
|
||||
1 index 1 index ge { exch pop } { pop } ifelse <
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000001010101010101010101010101
|
||||
0101010101010101010101010101010101010101010101020202020202020202
|
||||
0202020202020202020202020202020202030303030303030303030303030303
|
||||
0303030303030304040404040404040404040404040404040404050505050505
|
||||
0505050505050505050506060606060606060606060606060607070707070707
|
||||
0707070707070708080808080808080808080808090909090909090909090909
|
||||
0a0a0a0a0a0a0a0a0a0a0a0b0b0b0b0b0b0b0b0b0b0b0c0c0c0c0c0c0c0c0c0c
|
||||
0d0d0d0d0d0d0d0d0d0d0e0e0e0e0e0e0e0e0e0f0f0f0f0f0f0f0f0f10101010
|
||||
1010101010111111111111111112121212121212121313131313131313141414
|
||||
1414141414151515151515151616161616161616171717171717171818181818
|
||||
18181919191919191a1a1a1a1a1a1a1b1b1b1b1b1b1c1c1c1c1c1c1c1d1d1d1d
|
||||
1d1d1e1e1e1e1e1e1f1f1f1f1f1f202020202020212121212121222222222223
|
||||
2323232323242424242425252525252526262626262727272727282828282829
|
||||
292929292a2a2a2a2a2b2b2b2b2b2c2c2c2c2c2d2d2d2d2d2e2e2e2e2e2f2f2f
|
||||
2f2f303030303131313131323232323333333333343434343535353535363636
|
||||
36373737373838383839393939393a3a3a3a3b3b3b3b3c3c3c3c3d3d3d3d3e3e
|
||||
3e3e3f3f3f3f4040404041414141424242424343434444444445454545464646
|
||||
4647474748484848494949494a4a4a4b4b4b4b4c4c4c4d4d4d4d4e4e4e4f4f4f
|
||||
4f50505051515151525252535353535454545555555656565657575758585859
|
||||
59595a5a5a5a5b5b5b5c5c5c5d5d5d5e5e5e5f5f5f6060606061616162626263
|
||||
63636464646565656666666767676868686969696a6a6a6b6b6b6c6c6d6d6d6e
|
||||
6e6e6f6f6f707070717171727273737374747475757576767677777878787979
|
||||
797a7a7b7b7b7c7c7c7d7d7e7e7e7f7f7f808081818182828283838484848585
|
||||
86868687878888888989898a8a8b8b8b8c8c8d8d8d8e8e8f8f90909091919292
|
||||
9293939494949595969697979798989999999a9a9b9b9c9c9c9d9d9e9e9f9f9f
|
||||
a0a0a1a1a2a2a3a3a3a4a4a5a5a6a6a6a7a7a8a8a9a9aaaaabababacacadadae
|
||||
aeafafb0b0b0b1b1b2b2b3b3b4b4b5b5b6b6b6b7b7b8b8b9b9bababbbbbcbcbd
|
||||
bdbebebebfbfc0c0c1c1c2c2c3c3c4c4c5c5c6c6c7c7c8c8c9c9cacacbcbcccc
|
||||
cdcdcececfcfd0d0d1d1d2d2d3d3d4d4d5d5d6d6d7d7d8d8d9d9dadadbdcdcdd
|
||||
dddededfdfe0e0e1e1e2e2e3e3e4e4e5e6e6e7e7e8e8e9e9eaeaebebecededee
|
||||
eeefeff0f0f1f1f2f3f3f4f4f5f5f6f6f7f8f8f9f9fafafbfcfcfdfdfefeffff
|
||||
> dup length 1 sub 3 -1 roll mul dup dup floor cvi exch ceiling
|
||||
cvi 3 index exch get 4 -1 roll 3 -1 roll get
|
||||
dup 3 1 roll sub 3 -1 roll dup floor cvi sub mul add 255 div } bind
|
||||
|
||||
{ 1.0 0.0 3 -1 roll 1 index 1 index le { exch pop} { pop } ifelse
|
||||
1 index 1 index ge { exch pop } { pop } ifelse <
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000001010101010101010101010101
|
||||
0101010101010101010101010101010101010101010101020202020202020202
|
||||
0202020202020202020202020202020202030303030303030303030303030303
|
||||
0303030303030304040404040404040404040404040404040404050505050505
|
||||
0505050505050505050506060606060606060606060606060607070707070707
|
||||
0707070707070708080808080808080808080808090909090909090909090909
|
||||
0a0a0a0a0a0a0a0a0a0a0a0b0b0b0b0b0b0b0b0b0b0b0c0c0c0c0c0c0c0c0c0c
|
||||
0d0d0d0d0d0d0d0d0d0d0e0e0e0e0e0e0e0e0e0f0f0f0f0f0f0f0f0f10101010
|
||||
1010101010111111111111111112121212121212121313131313131313141414
|
||||
1414141414151515151515151616161616161616171717171717171818181818
|
||||
18181919191919191a1a1a1a1a1a1a1b1b1b1b1b1b1c1c1c1c1c1c1c1d1d1d1d
|
||||
1d1d1e1e1e1e1e1e1f1f1f1f1f1f202020202020212121212121222222222223
|
||||
2323232323242424242425252525252526262626262727272727282828282829
|
||||
292929292a2a2a2a2a2b2b2b2b2b2c2c2c2c2c2d2d2d2d2d2e2e2e2e2e2f2f2f
|
||||
2f2f303030303131313131323232323333333333343434343535353535363636
|
||||
36373737373838383839393939393a3a3a3a3b3b3b3b3c3c3c3c3d3d3d3d3e3e
|
||||
3e3e3f3f3f3f4040404041414141424242424343434444444445454545464646
|
||||
4647474748484848494949494a4a4a4b4b4b4b4c4c4c4d4d4d4d4e4e4e4f4f4f
|
||||
4f50505051515151525252535353535454545555555656565657575758585859
|
||||
59595a5a5a5a5b5b5b5c5c5c5d5d5d5e5e5e5f5f5f6060606061616162626263
|
||||
63636464646565656666666767676868686969696a6a6a6b6b6b6c6c6d6d6d6e
|
||||
6e6e6f6f6f707070717171727273737374747475757576767677777878787979
|
||||
797a7a7b7b7b7c7c7c7d7d7e7e7e7f7f7f808081818182828283838484848585
|
||||
86868687878888888989898a8a8b8b8b8c8c8d8d8d8e8e8f8f90909091919292
|
||||
9293939494949595969697979798989999999a9a9b9b9c9c9c9d9d9e9e9f9f9f
|
||||
a0a0a1a1a2a2a3a3a3a4a4a5a5a6a6a6a7a7a8a8a9a9aaaaabababacacadadae
|
||||
aeafafb0b0b0b1b1b2b2b3b3b4b4b5b5b6b6b6b7b7b8b8b9b9bababbbbbcbcbd
|
||||
bdbebebebfbfc0c0c1c1c2c2c3c3c4c4c5c5c6c6c7c7c8c8c9c9cacacbcbcccc
|
||||
cdcdcececfcfd0d0d1d1d2d2d3d3d4d4d5d5d6d6d7d7d8d8d9d9dadadbdcdcdd
|
||||
dddededfdfe0e0e1e1e2e2e3e3e4e4e5e6e6e7e7e8e8e9e9eaeaebebecededee
|
||||
eeefeff0f0f1f1f2f3f3f4f4f5f5f6f6f7f8f8f9f9fafafbfcfcfdfdfefeffff
|
||||
> dup length 1 sub 3 -1 roll mul dup dup floor cvi exch ceiling
|
||||
cvi 3 index exch get 4 -1 roll 3 -1 roll get
|
||||
dup 3 1 roll sub 3 -1 roll dup floor cvi sub mul add 255 div } bind
|
||||
] def
|
||||
/MatrixABC [ 0.4124 0.2126 0.0193 0.3576 0.7151 0.1192 0.1805 0.0722 0.9508 ] def
|
||||
/RangeLMN [ 0.0 0.9505 0.0 1.0000 0.0 1.0891 ] def
|
||||
end ] /Cs1 exch/ColorSpace dr pop
|
||||
%%EndPageSetup
|
||||
0.60000002 i
|
||||
/Cs1 SC
|
||||
0.13333334 0.13333334 0.13333334 sc
|
||||
q
|
||||
0 1102 m
|
||||
518 1102 l
|
||||
518 0 l
|
||||
0 0 l
|
||||
0 1102 l
|
||||
h
|
||||
W*
|
||||
0 0 1102 1102 rc
|
||||
-10 1112 m
|
||||
528 1112 l
|
||||
528 -10 l
|
||||
-10 -10 l
|
||||
h
|
||||
f
|
||||
Q
|
||||
1 1 1 sc
|
||||
q
|
||||
518 1102 m
|
||||
1102 1102 l
|
||||
1102 0 l
|
||||
518 0 l
|
||||
518 1102 l
|
||||
h
|
||||
W*
|
||||
0 0 1102 1102 rc
|
||||
508 1112 m
|
||||
1112 1112 l
|
||||
1112 -10 l
|
||||
508 -10 l
|
||||
h
|
||||
f
|
||||
Q
|
||||
0.13333334 0.13333334 0.13333334 sc
|
||||
q
|
||||
921.56757 760 m
|
||||
982 760 l
|
||||
982 340 l
|
||||
921.56757 340 l
|
||||
921.56757 553.5 l
|
||||
698.43243 553.5 l
|
||||
698.43243 340 l
|
||||
638 340 l
|
||||
638 760 l
|
||||
698.43243 760 l
|
||||
698.43243 568.08331 l
|
||||
921.56757 568.08331 l
|
||||
921.56757 760 l
|
||||
h
|
||||
W
|
||||
0 0 1102 1102 rc
|
||||
628 770 m
|
||||
992 770 l
|
||||
992 330 l
|
||||
628 330 l
|
||||
h
|
||||
f
|
||||
Q
|
||||
1 1 1 sc
|
||||
q
|
||||
180.15546 554.08331 m
|
||||
180.15546 357.5 l
|
||||
233.30252 357.5 l
|
||||
266.00839 357.5 290.53781 362.16666 306.89075 378.5 c
|
||||
323.24368 395.41666 331.42017 420.5 331.42017 454.33334 c
|
||||
331.42017 488.75 322.07562 513.83331 303.97058 530.16669 c
|
||||
285.28152 546.5 253.15967 554.66669 206.43698 554.66669 c
|
||||
198.84454 554.66669 187.16386 554.08331 180.15546 554.08331 c
|
||||
h
|
||||
180.15546 744.25 m
|
||||
180.15546 568.66669 l
|
||||
195.92436 568.66669 l
|
||||
240.31093 568.66669 270.09665 575.66669 286.44958 589.66669 c
|
||||
302.80252 603.66669 310.39496 625.83331 310.39496 657.33331 c
|
||||
310.39496 678.91669 307.47479 695.83331 301.05042 707.5 c
|
||||
294.62604 719.75 284.69748 728.5 272.43277 734.91669 c
|
||||
259.58405 741.91669 238.55882 744.83331 207.60504 744.83331 c
|
||||
199.42857 744.83331 187.16386 744.83331 180.15546 744.25 c
|
||||
h
|
||||
120 340 m
|
||||
120 760 l
|
||||
204.68488 760 l
|
||||
318.57144 760 375.80673 727.33331 375.80673 661.41669 c
|
||||
375.80673 634.58331 365.87814 612.41669 346.021 596.08331 c
|
||||
326.74789 579.75 296.96219 568.66669 257.83194 562.83331 c
|
||||
305.13864 559.33331 340.18066 547.66669 363.54202 527.83331 c
|
||||
386.31934 507.41666 398 482.33334 398 452.58334 c
|
||||
398 426.33334 389.82352 403.58334 374.63864 384.33334 c
|
||||
358.86975 365.66666 339.0126 354 314.48318 348.16666 c
|
||||
289.9538 342.33334 257.83194 340 216.94958 340 c
|
||||
120 340 l
|
||||
h
|
||||
W
|
||||
0 0 1102 1102 rc
|
||||
110 770 m
|
||||
408 770 l
|
||||
408 330 l
|
||||
110 330 l
|
||||
h
|
||||
f
|
||||
ep
|
||||
end
|
||||
%%Trailer
|
||||
%%EOF
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 904 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 666 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 665 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 415 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 647 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 578 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 674 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 4.2 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 2.0 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 2.1 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 2.4 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 2.6 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 319 B |
Binary file not shown.
|
After Width: | Height: | Size: 3.0 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 4.1 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 555 B |
Binary file not shown.
|
After Width: | Height: | Size: 956 B |
Binary file not shown.
|
After Width: | Height: | Size: 1.2 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 1.6 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 4.2 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 2.1 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 2.2 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 2.6 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 2.7 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 322 B |
Binary file not shown.
|
After Width: | Height: | Size: 3.2 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 4.2 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 612 B |
Binary file not shown.
|
After Width: | Height: | Size: 986 B |
Binary file not shown.
|
After Width: | Height: | Size: 1.3 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 1.7 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 38 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 36 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 8.9 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 8.7 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 13 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 13 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 93 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 91 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 23 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 22 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 36 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 36 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 254 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 250 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 65 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 65 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 113 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 113 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 10 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 11 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 2.6 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 2.8 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 3.7 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 3.9 KiB |
File diff suppressed because one or more lines are too long
|
After Width: | Height: | Size: 13 KiB |
File diff suppressed because one or more lines are too long
|
After Width: | Height: | Size: 13 KiB |
|
|
@ -0,0 +1,16 @@
|
|||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<svg width="551px" height="258px" viewBox="0 0 551 258" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
|
||||
<!-- Generator: Sketch 57.1 (83088) - https://sketch.com -->
|
||||
<title>Initials (Gold and Black)</title>
|
||||
<desc>Created with Sketch.</desc>
|
||||
<g id="Page-1" stroke="none" stroke-width="1" fill="none" fill-rule="evenodd">
|
||||
<g id="Concept-#6-(Final-Kearning)" transform="translate(-120.000000, -995.000000)">
|
||||
<g id="Initials-(Gold-and-Black)" transform="translate(120.000000, 995.000000)">
|
||||
<rect id="Rectangle" fill="#222222" x="0" y="0" width="259" height="258"></rect>
|
||||
<rect id="Rectangle" fill="#C2A661" x="259" y="0" width="292" height="258"></rect>
|
||||
<polygon id="Housen" fill="#222222" fill-rule="nonzero" points="460.783784 24 491 24 491 234 460.783784 234 460.783784 127.25 349.216216 127.25 349.216216 234 319 234 319 24 349.216216 24 349.216216 119.958333 460.783784 119.958333"></polygon>
|
||||
<path d="M90.0777311,126.958333 L90.0777311,225.25 L116.651261,225.25 C133.004202,225.25 145.268908,222.916667 153.445378,214.75 C161.621849,206.291667 165.710084,193.75 165.710084,176.833333 C165.710084,159.625 161.037815,147.083333 151.985294,138.916667 C142.640756,130.75 126.579832,126.666667 103.218487,126.666667 C99.4222689,126.666667 93.5819328,126.958333 90.0777311,126.958333 Z M90.0777311,31.875 L90.0777311,119.666667 L97.9621849,119.666667 C120.155462,119.666667 135.048319,116.166667 143.22479,109.166667 C151.401261,102.166667 155.197479,91.0833333 155.197479,75.3333333 C155.197479,64.5416667 153.737395,56.0833333 150.52521,50.25 C147.313025,44.125 142.348739,39.75 136.216387,36.5416667 C129.792017,33.0416667 119.279412,31.5833333 103.802521,31.5833333 C99.7142857,31.5833333 93.5819328,31.5833333 90.0777311,31.875 Z M60,234 L60,24 L102.342437,24 C159.285714,24 187.903361,40.3333333 187.903361,73.2916667 C187.903361,86.7083333 182.939076,97.7916667 173.010504,105.958333 C163.37395,114.125 148.481092,119.666667 128.915966,122.583333 C152.569328,124.333333 170.090336,130.166667 181.771008,140.083333 C193.159664,150.291667 199,162.833333 199,177.708333 C199,190.833333 194.911765,202.208333 187.319328,211.833333 C179.434874,221.166667 169.506303,227 157.241597,229.916667 C144.976891,232.833333 128.915966,234 108.47479,234 L60,234 Z" id="Barrett" fill="#C2A661" fill-rule="nonzero"></path>
|
||||
</g>
|
||||
</g>
|
||||
</g>
|
||||
</svg>
|
||||
|
After Width: | Height: | Size: 2.5 KiB |
|
|
@ -0,0 +1,16 @@
|
|||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<svg width="551px" height="258px" viewBox="0 0 551 258" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
|
||||
<!-- Generator: Sketch 57.1 (83088) - https://sketch.com -->
|
||||
<title>Initials (White and Black)</title>
|
||||
<desc>Created with Sketch.</desc>
|
||||
<g id="Page-1" stroke="none" stroke-width="1" fill="none" fill-rule="evenodd">
|
||||
<g id="Concept-#6-(Final-Kearning)" transform="translate(-120.000000, -120.000000)">
|
||||
<g id="Initials-(White-and-Black)" transform="translate(120.000000, 120.000000)">
|
||||
<rect id="Rectangle" fill="#222222" x="0" y="0" width="259" height="258"></rect>
|
||||
<rect id="Rectangle" fill="#FFFFFF" x="259" y="0" width="292" height="258"></rect>
|
||||
<polygon id="Housen" fill="#222222" fill-rule="nonzero" points="460.783784 24 491 24 491 234 460.783784 234 460.783784 127.25 349.216216 127.25 349.216216 234 319 234 319 24 349.216216 24 349.216216 119.958333 460.783784 119.958333"></polygon>
|
||||
<path d="M90.0777311,126.958333 L90.0777311,225.25 L116.651261,225.25 C133.004202,225.25 145.268908,222.916667 153.445378,214.75 C161.621849,206.291667 165.710084,193.75 165.710084,176.833333 C165.710084,159.625 161.037815,147.083333 151.985294,138.916667 C142.640756,130.75 126.579832,126.666667 103.218487,126.666667 C99.4222689,126.666667 93.5819328,126.958333 90.0777311,126.958333 Z M90.0777311,31.875 L90.0777311,119.666667 L97.9621849,119.666667 C120.155462,119.666667 135.048319,116.166667 143.22479,109.166667 C151.401261,102.166667 155.197479,91.0833333 155.197479,75.3333333 C155.197479,64.5416667 153.737395,56.0833333 150.52521,50.25 C147.313025,44.125 142.348739,39.75 136.216387,36.5416667 C129.792017,33.0416667 119.279412,31.5833333 103.802521,31.5833333 C99.7142857,31.5833333 93.5819328,31.5833333 90.0777311,31.875 Z M60,234 L60,24 L102.342437,24 C159.285714,24 187.903361,40.3333333 187.903361,73.2916667 C187.903361,86.7083333 182.939076,97.7916667 173.010504,105.958333 C163.37395,114.125 148.481092,119.666667 128.915966,122.583333 C152.569328,124.333333 170.090336,130.166667 181.771008,140.083333 C193.159664,150.291667 199,162.833333 199,177.708333 C199,190.833333 194.911765,202.208333 187.319328,211.833333 C179.434874,221.166667 169.506303,227 157.241597,229.916667 C144.976891,232.833333 128.915966,234 108.47479,234 L60,234 Z" id="Barrett" fill="#FFFFFF" fill-rule="nonzero"></path>
|
||||
</g>
|
||||
</g>
|
||||
</g>
|
||||
</svg>
|
||||
|
After Width: | Height: | Size: 2.5 KiB |
|
|
@ -0,0 +1,16 @@
|
|||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<svg width="551px" height="551px" viewBox="0 0 551 551" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
|
||||
<!-- Generator: Sketch 57.1 (83088) - https://sketch.com -->
|
||||
<title>Square (Gold and Black)</title>
|
||||
<desc>Created with Sketch.</desc>
|
||||
<g id="Page-1" stroke="none" stroke-width="1" fill="none" fill-rule="evenodd">
|
||||
<g id="Concept-#6-(Final-Kearning)" transform="translate(-2154.000000, -1019.000000)">
|
||||
<g id="Square-(Gold-and-Black)" transform="translate(2154.000000, 1019.000000)">
|
||||
<rect id="Rectangle" fill="#222222" x="0" y="0" width="259" height="551"></rect>
|
||||
<rect id="Rectangle" fill="#C2A661" x="259" y="0" width="292" height="551"></rect>
|
||||
<polygon id="Housen" fill="#222222" fill-rule="nonzero" points="460.783784 171 491 171 491 381 460.783784 381 460.783784 274.25 349.216216 274.25 349.216216 381 319 381 319 171 349.216216 171 349.216216 266.958333 460.783784 266.958333"></polygon>
|
||||
<path d="M90.0777311,273.958333 L90.0777311,372.25 L116.651261,372.25 C133.004202,372.25 145.268908,369.916667 153.445378,361.75 C161.621849,353.291667 165.710084,340.75 165.710084,323.833333 C165.710084,306.625 161.037815,294.083333 151.985294,285.916667 C142.640756,277.75 126.579832,273.666667 103.218487,273.666667 C99.4222689,273.666667 93.5819328,273.958333 90.0777311,273.958333 Z M90.0777311,178.875 L90.0777311,266.666667 L97.9621849,266.666667 C120.155462,266.666667 135.048319,263.166667 143.22479,256.166667 C151.401261,249.166667 155.197479,238.083333 155.197479,222.333333 C155.197479,211.541667 153.737395,203.083333 150.52521,197.25 C147.313025,191.125 142.348739,186.75 136.216387,183.541667 C129.792017,180.041667 119.279412,178.583333 103.802521,178.583333 C99.7142857,178.583333 93.5819328,178.583333 90.0777311,178.875 Z M60,381 L60,171 L102.342437,171 C159.285714,171 187.903361,187.333333 187.903361,220.291667 C187.903361,233.708333 182.939076,244.791667 173.010504,252.958333 C163.37395,261.125 148.481092,266.666667 128.915966,269.583333 C152.569328,271.333333 170.090336,277.166667 181.771008,287.083333 C193.159664,297.291667 199,309.833333 199,324.708333 C199,337.833333 194.911765,349.208333 187.319328,358.833333 C179.434874,368.166667 169.506303,374 157.241597,376.916667 C144.976891,379.833333 128.915966,381 108.47479,381 L60,381 Z" id="Barrett" fill="#C2A661" fill-rule="nonzero"></path>
|
||||
</g>
|
||||
</g>
|
||||
</g>
|
||||
</svg>
|
||||
|
After Width: | Height: | Size: 2.5 KiB |
|
|
@ -0,0 +1,16 @@
|
|||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<svg width="551px" height="551px" viewBox="0 0 551 551" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
|
||||
<!-- Generator: Sketch 57.1 (83088) - https://sketch.com -->
|
||||
<title>Square (White and Black)</title>
|
||||
<desc>Created with Sketch.</desc>
|
||||
<g id="Page-1" stroke="none" stroke-width="1" fill="none" fill-rule="evenodd">
|
||||
<g id="Concept-#6-(Final-Kearning)" transform="translate(-2154.000000, -144.000000)">
|
||||
<g id="Square-(White-and-Black)" transform="translate(2154.000000, 144.000000)">
|
||||
<rect id="Rectangle" fill="#222222" x="0" y="0" width="259" height="551"></rect>
|
||||
<rect id="Rectangle" fill="#FFFFFF" x="259" y="0" width="292" height="551"></rect>
|
||||
<polygon id="Housen" fill="#222222" fill-rule="nonzero" points="460.783784 171 491 171 491 381 460.783784 381 460.783784 274.25 349.216216 274.25 349.216216 381 319 381 319 171 349.216216 171 349.216216 266.958333 460.783784 266.958333"></polygon>
|
||||
<path d="M90.0777311,273.958333 L90.0777311,372.25 L116.651261,372.25 C133.004202,372.25 145.268908,369.916667 153.445378,361.75 C161.621849,353.291667 165.710084,340.75 165.710084,323.833333 C165.710084,306.625 161.037815,294.083333 151.985294,285.916667 C142.640756,277.75 126.579832,273.666667 103.218487,273.666667 C99.4222689,273.666667 93.5819328,273.958333 90.0777311,273.958333 Z M90.0777311,178.875 L90.0777311,266.666667 L97.9621849,266.666667 C120.155462,266.666667 135.048319,263.166667 143.22479,256.166667 C151.401261,249.166667 155.197479,238.083333 155.197479,222.333333 C155.197479,211.541667 153.737395,203.083333 150.52521,197.25 C147.313025,191.125 142.348739,186.75 136.216387,183.541667 C129.792017,180.041667 119.279412,178.583333 103.802521,178.583333 C99.7142857,178.583333 93.5819328,178.583333 90.0777311,178.875 Z M60,381 L60,171 L102.342437,171 C159.285714,171 187.903361,187.333333 187.903361,220.291667 C187.903361,233.708333 182.939076,244.791667 173.010504,252.958333 C163.37395,261.125 148.481092,266.666667 128.915966,269.583333 C152.569328,271.333333 170.090336,277.166667 181.771008,287.083333 C193.159664,297.291667 199,309.833333 199,324.708333 C199,337.833333 194.911765,349.208333 187.319328,358.833333 C179.434874,368.166667 169.506303,374 157.241597,376.916667 C144.976891,379.833333 128.915966,381 108.47479,381 L60,381 Z" id="Barrett" fill="#FFFFFF" fill-rule="nonzero"></path>
|
||||
</g>
|
||||
</g>
|
||||
</g>
|
||||
</svg>
|
||||
|
After Width: | Height: | Size: 2.5 KiB |
|
|
@ -0,0 +1,119 @@
|
|||
-- +goose Up
|
||||
START TRANSACTION;
|
||||
|
||||
CREATE SCHEMA IF NOT EXISTS catalog;
|
||||
|
||||
CREATE TABLE IF NOT EXISTS catalog.upcoming_auctions (
|
||||
id SERIAL PRIMARY KEY,
|
||||
fingerprint VARCHAR(128) NOT NULL UNIQUE,
|
||||
title VARCHAR(1024) NOT NULL,
|
||||
description TEXT DEFAULT ''::TEXT NOT NULL,
|
||||
startts TIMESTAMP NOT NULL,
|
||||
endts TIMESTAMP,
|
||||
itemcount INTEGER DEFAULT 0 NOT NULL,
|
||||
sourcesiteurl VARCHAR(1024) DEFAULT ''::CHARACTER VARYING NOT NULL,
|
||||
sourcesitename VARCHAR(256) NOT NULL,
|
||||
sourceurl VARCHAR(1024) NOT NULL,
|
||||
country VARCHAR(64) NOT NULL,
|
||||
province VARCHAR(128) NOT NULL
|
||||
);
|
||||
|
||||
CREATE TABLE IF NOT EXISTS catalog.upcoming_auctions_fts (
|
||||
id SERIAL PRIMARY KEY,
|
||||
auctionid INTEGER REFERENCES CATALOG.UPCOMING_AUCTIONS,
|
||||
title VARCHAR(1024) NOT NULL,
|
||||
description TEXT NOT NULL,
|
||||
ts tsvector GENERATED ALWAYS AS ((
|
||||
setweight(to_tsvector('english', (title)::TEXT), 'A') ||
|
||||
setweight(to_tsvector('english', (description)::TEXT), 'B')
|
||||
)) STORED
|
||||
);
|
||||
|
||||
CREATE INDEX IF NOT EXISTS ts_idx ON catalog.upcoming_auctions_fts USING GIN(ts);
|
||||
|
||||
-- +goose StatementBegin
|
||||
CREATE OR REPLACE FUNCTION catalog.bh_import_auction(
|
||||
p_fingerprint VARCHAR(128),
|
||||
p_title VARCHAR(1024),
|
||||
p_startts TIMESTAMP,
|
||||
p_endts TIMESTAMP,
|
||||
p_description TEXT,
|
||||
p_itemcount INTEGER,
|
||||
p_sourcesiteurl VARCHAR(1024),
|
||||
p_sourcesitename VARCHAR(256),
|
||||
p_sourceurl VARCHAR(1024),
|
||||
p_country VARCHAR(64),
|
||||
p_province VARCHAR(128))
|
||||
RETURNS INTEGER
|
||||
LANGUAGE plpgsql AS $BODY$
|
||||
DECLARE
|
||||
auction_id INTEGER;
|
||||
BEGIN
|
||||
SELECT ua.id INTO auction_id FROM catalog.upcoming_auctions ua WHERE ua.fingerprint = p_fingerprint;
|
||||
|
||||
IF auction_id IS NULL OR auction_id = 0 THEN
|
||||
INSERT INTO catalog.upcoming_auctions (
|
||||
fingerprint,
|
||||
title,
|
||||
description,
|
||||
startts,
|
||||
endts,
|
||||
itemcount,
|
||||
sourcesiteurl,
|
||||
sourcesitename,
|
||||
sourceurl,
|
||||
country,
|
||||
province
|
||||
) VALUES (
|
||||
p_fingerprint,
|
||||
p_title,
|
||||
p_description,
|
||||
p_startts,
|
||||
p_endts,
|
||||
p_itemcount,
|
||||
p_sourcesiteurl,
|
||||
p_sourcesitename,
|
||||
p_sourceurl,
|
||||
p_country,
|
||||
p_province
|
||||
) RETURNING id INTO auction_id;
|
||||
|
||||
INSERT INTO catalog.upcoming_auctions_fts (
|
||||
auctionid,
|
||||
title,
|
||||
description
|
||||
) VALUES ( auction_id, p_title, p_description );
|
||||
ELSE
|
||||
-- 0 means there is a duplicate auction ID
|
||||
auction_id = 0;
|
||||
END IF;
|
||||
|
||||
RETURN auction_id;
|
||||
END;
|
||||
$BODY$;
|
||||
-- +goose StatementEnd
|
||||
|
||||
|
||||
-- +goose StatementBegin
|
||||
DO
|
||||
$do$
|
||||
BEGIN
|
||||
IF NOT EXISTS (
|
||||
SELECT FROM pg_catalog.pg_roles
|
||||
WHERE rolname = 'catalog-service') THEN
|
||||
|
||||
CREATE USER "catalog-service" WITH PASSWORD 'catalog-service';
|
||||
END IF;
|
||||
END
|
||||
$do$;
|
||||
-- +goose StatementEnd
|
||||
|
||||
GRANT CONNECT ON DATABASE bh to "catalog-service";
|
||||
GRANT USAGE ON SCHEMA catalog TO "catalog-service";
|
||||
GRANT ALL PRIVILEGES ON ALL SEQUENCES IN SCHEMA catalog TO "catalog-service";
|
||||
GRANT SELECT, INSERT, UPDATE ON ALL TABLES IN SCHEMA catalog TO "catalog-service";
|
||||
GRANT EXECUTE ON ALL FUNCTIONS IN SCHEMA catalog TO "catalog-service";
|
||||
|
||||
COMMIT;
|
||||
|
||||
-- +goose Down
|
||||
|
|
@ -0,0 +1,38 @@
|
|||
-- +goose Up
|
||||
START TRANSACTION;
|
||||
|
||||
CREATE SCHEMA IF NOT EXISTS runner;
|
||||
|
||||
CREATE TABLE IF NOT EXISTS runner.scrapejob (
|
||||
id SERIAL PRIMARY KEY,
|
||||
startedTs TIMESTAMP NOT NULL DEFAULT NOW(),
|
||||
completedTs TIMESTAMP,
|
||||
targetSiteName VARCHAR(512) NOT NULL,
|
||||
auctionsFound INT NOT NULL DEFAULT 0,
|
||||
errors TEXT NOT NULL DEFAULT ''
|
||||
);
|
||||
|
||||
|
||||
-- +goose StatementBegin
|
||||
DO
|
||||
$do$
|
||||
BEGIN
|
||||
IF NOT EXISTS (
|
||||
SELECT FROM pg_catalog.pg_roles
|
||||
WHERE rolname = 'runner-service') THEN
|
||||
|
||||
CREATE USER "runner-service" WITH PASSWORD 'runner-service';
|
||||
END IF;
|
||||
END
|
||||
$do$;
|
||||
-- +goose StatementEnd
|
||||
|
||||
GRANT CONNECT ON DATABASE bh to "runner-service";
|
||||
GRANT USAGE ON SCHEMA runner TO "runner-service";
|
||||
GRANT ALL PRIVILEGES ON ALL SEQUENCES IN SCHEMA runner TO "runner-service";
|
||||
GRANT SELECT, INSERT, UPDATE ON ALL TABLES IN SCHEMA runner TO "runner-service";
|
||||
|
||||
COMMIT;
|
||||
|
||||
|
||||
-- +goose Down
|
||||
Binary file not shown.
|
Before Width: | Height: | Size: 1.5 KiB After Width: | Height: | Size: 2.1 KiB |
File diff suppressed because one or more lines are too long
|
After Width: | Height: | Size: 13 KiB |
File diff suppressed because one or more lines are too long
|
After Width: | Height: | Size: 13 KiB |
Loading…
Reference in New Issue