Return to paste.eps CVS log

Up to [NeXTSTEP 3.3 examples] / Examples / IndexingKit / Ledger / README.rtfd

Sample Programs from NeXSTEP 3.3

%!PS-Adobe-2.0 EPSF-2.0
%%Title: 
%%Creator: Diagram
%%CreationDate: Wed Dec 16 11:21:29 1992
%%For: kyounger
%%DocumentFonts: (atend)
%%Pages: 0 0
%%BoundingBox: 0 0 423 324
%%NXNextStepVersion: 3.0
%%EndComments

%%BeginProcSet: /usr/lib/NextStep/printPackage.ps 3.0
%!
% NeXT Printing Package
% Version: 3.0
% Copyright: 1988, NeXT, Inc.

/__NXdef{1 index where{pop pop pop}{def}ifelse}bind def
/__NXbdef{1 index where{pop pop pop}{bind def}ifelse}bind def
/UserObjects 10 array __NXdef
/defineuserobject{
	exch dup 1 add dup UserObjects length gt{
		array dup 0 UserObjects putinterval
		/UserObjects exch def
	}{pop}ifelse UserObjects exch 3 -1 roll put
}__NXbdef
/undefineuserobject{UserObjects exch null put}__NXbdef
/execuserobject{UserObjects exch get exec}__NXbdef
/__NXRectPath{4 2 roll moveto 1 index 0 rlineto
0 exch rlineto neg 0 rlineto closepath}__NXbdef
/__NXProcessRectArgs{
	1 index type /arraytype eq{
		exch 0 4 2 index length 1 sub{
			dup 3 add 1 exch{1 index exch get exch}for
			5 1 roll 5 index exec
		}for pop pop
	}{exec}ifelse
}__NXbdef
/rectfill{gsave newpath {__NXRectPath fill} __NXProcessRectArgs grestore}__NXbdef
/rectclip{newpath {__NXRectPath} __NXProcessRectArgs clip newpath}__NXbdef
/rectstroke{
	gsave newpath dup type /arraytype eq{dup length 6 eq}{false}ifelse{
		{gsave __NXRectPath null concat stroke grestore}
		dup length array cvx copy dup 2 4 -1 roll put __NXProcessRectArgs
	}{{__NXRectPath stroke} __NXProcessRectArgs}ifelse grestore
}__NXbdef
/_NXLevel2 systemdict /languagelevel known {languagelevel 2 ge}{false}ifelse __NXdef
/xyshow{
	0 1 3 index length 1 sub{
		currentpoint 4 index 3 index 1 getinterval show
		3 index 3 index 2 mul 1 add get add exch
		3 index	3 index 2 mul get add exch moveto pop
	}for pop pop
}__NXbdef
/xshow{
	0 1 3 index length 1 sub{
		currentpoint 4 index 3 index 1 getinterval show
		exch 3 index 3 index get add exch moveto pop
	}for pop pop
}__NXbdef
/yshow{
	0 1 3 index length 1 sub{
		currentpoint 4 index 3 index 1 getinterval show
		3 index 3 index get add moveto pop
	}for pop pop
}__NXbdef
/arct{arcto pop pop pop pop}__NXbdef
/setbbox{pop pop pop pop}__NXbdef
/ucache{}__NXbdef
/ucachestatus{mark 0 0 0 0 0}__NXbdef
/setucacheparams{cleartomark}__NXbdef
/uappend{systemdict begin cvx exec end}__NXbdef
/ueofill{gsave newpath uappend eofill grestore}__NXbdef
/ufill{gsave newpath uappend fill grestore}__NXbdef
/ustroke{
	gsave newpath dup length 6 eq
	{exch uappend concat}{uappend}ifelse
	stroke grestore
}__NXbdef
/__NXustrokepathMatrix dup where {pop pop}{matrix def}ifelse
/ustrokepath{
	newpath dup length 6 eq{
		exch uappend __NXustrokepathMatrix currentmatrix exch concat
		strokepath setmatrix
	}{uappend strokepath}ifelse
} __NXbdef
/upath{
	[exch {/ucache cvx}if pathbbox /setbbox cvx
	 {/moveto cvx}{/lineto cvx}{/curveto cvx}{/closepath cvx}pathforall]cvx
} __NXbdef
/setstrokeadjust{pop}__NXbdef
/currentstrokeadjust{false}__NXbdef
/selectfont{exch findfont exch
dup type /arraytype eq {makefont}{scalefont}ifelse setfont}__NXbdef
/_NXCombineArrays{
	counttomark dup 2 add index dup length 3 -1 roll {
		2 index length sub dup 4 1 roll 1 index exch 4 -1 roll putinterval exch
	}repeat pop pop pop
}__NXbdef
/flushgraphics{}def
/setwindowtype{pop pop}def
/currentwindowtype{pop 0}def
/setalpha{pop}def
/currentalpha{1.0}def
/hidecursor{}def
/obscurecursor{}def
/revealcursor{}def
/setcursor{4 {pop}repeat}bind def
/showcursor{}def
/NextStepEncoding where not{
/NextStepEncoding StandardEncoding 256 array copy def
0 [129/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/Ccedilla/Egrave
/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex/Idieresis
/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis/Ugrave/Uacute
/Ucircumflex/Udieresis/Yacute/Thorn/mu/multiply/divide/copyright
176/registered 181/brokenbar 190/logicalnot 192/onesuperior 201/twosuperior
204/threesuperior 209/plusminus/onequarter/onehalf/threequarters/agrave
/aacute/acircumflex/atilde/adieresis/aring/ccedilla/egrave/eacute
/ecircumflex/edieresis/igrave 226/iacute 228/icircumflex/idieresis/eth
/ntilde 236/ograve/oacute/ocircumflex/otilde/odieresis 242/ugrave/uacute
/ucircumflex 246/udieresis/yacute 252/thorn/ydieresis]
{dup type /nametype eq
 {NextStepEncoding 2 index 2 index put pop 1 add}{exch pop}ifelse
}forall pop
/NextStepEncoding NextStepEncoding readonly def
/_NXfstr 128 string dup 0 (_NX) putinterval def
/_NXfindfont /findfont load def
/findfont{
 % Because we can never let NextStepEncoding get into
 % SharedFontDirectory, we cannot reencode a font to NextStepEncoding
 % if we are in shared mode.  So if currentshared is true,
 % we call the normal findfont and return that
 /currentshared where {pop currentshared} {false} ifelse
 {_NXfindfont}
 {dup _NXfstr 3 125 getinterval cvs length 3 add _NXfstr 0 3 -1 roll
  getinterval cvn exch FontDirectory 2 index known 
  {pop FontDirectory exch get}
  {_NXfindfont dup /Encoding get StandardEncoding eq
   {	dup length dict exch
	{1 index /FID ne {2 index 3 1 roll put}{pop pop}ifelse}forall
	 dup /Encoding NextStepEncoding put definefont
	}{exch pop} ifelse
   }ifelse
 }ifelse
}bind def
}{pop}ifelse
/_NXImageString {/__NXImageString where{pop}{/__NXImageString 4000 string __NXdef}ifelse __NXImageString}__NXbdef
/_NXDoImageOp{
	3 dict begin /parr 5 array def 1 index{dup}{1}ifelse /chans exch def
	chans 2 add 2 roll parr 0 chans getinterval astore pop
	5 index 4 index mul 2 index{1 sub 8 idiv 1 add mul}{mul 1 sub 8 idiv 1 add}ifelse
	4 index mul /totbytes exch def pop exch pop
	gsave matrix invertmatrix concat 0.5 setgray 0 0 4 2 roll rectfill grestore
	{0 1 chans 1 sub{parr exch get exec length totbytes exch sub /totbytes exch def}for totbytes 0 le{exit}if}loop end
}__NXbdef
/alphaimage{1 add _NXDoImageOp}def
_NXLevel2{ 
	/NXCalibratedRGBColorSpace where{pop}{
		/NXCalibratedRGBColorSpace
		{mark /NXCalibratedRGB /ColorSpace findresource exch pop}stopped
		{cleartomark /NXCalibratedRGB[/CIEBasedABC 2 dict dup begin 
		/MatrixLMN[.4124 .2126 .0193 .3576 .7152 .1192 .1805 .0722 .9505]def
		/WhitePoint[.9505 1 1.089] def end] /ColorSpace defineresource}if def}ifelse
	/nxsetrgbcolor{NXCalibratedRGBColorSpace setcolorspace setcolor}__NXbdef
	/nxsetgray{dup dup nxsetrgbcolor}__NXbdef
	/_NXCalibratedImage{exch{array astore dup length true}{false}ifelse
		8 -1 roll{NXCalibratedRGBColorSpace setcolorspace}if
		8 dict dup 9 1 roll begin /ImageType 1 def /MultipleDataSources exch def
		currentcolorspace 0 get /Indexed eq{pop /Decode[0 2 6 index exp 1 sub]def}
		{2 mul dup array /Decode exch def 1 sub 0 1 3 -1 roll{Decode exch dup 2 mod put}for}ifelse
		/DataSource exch def /ImageMatrix exch def 
		/BitsPerComponent exch def /Height exch def /Width exch def end image}__NXbdef
} {
	/setcmykcolor{
		1.0 exch sub dup dup 6 -1 roll sub dup 0 lt{pop 0}if 5 1 roll
		4 -1 roll sub dup 0 lt{pop 0}if 3 1 roll exch sub dup 0 lt{pop 0}if setrgbcolor}__NXbdef
	/currentcmykcolor{currentrgbcolor 3{1.0 exch sub 3 1 roll}repeat 0}__NXbdef
	/colorimage{_NXDoImageOp}__NXbdef
	/nxsetrgbcolor{setrgbcolor}__NXbdef /nxsetgray{setgray}__NXbdef
	/setpattern{pop .5 setgray}__NXbdef
	/_NXCalibratedImage{dup 1 eq {pop pop image}{colorimage}ifelse pop}__NXbdef
} ifelse
/_NXSetCMYKOrRGB where{pop}{
	mark{systemdict /currentwindow get exec}stopped
	{{pop pop pop setcmykcolor}}{{nxsetrgbcolor pop pop pop pop}}ifelse /_NXSetCMYKOrRGB exch def cleartomark
}ifelse
%%EndProcSet

gsave
 /__NXbasematrix matrix currentmatrix def
grestore
%%EndProlog
%%BeginSetup
%%EndSetup
gsave
0 0 423 324 rectclip
[1 0 0 -1 -27 567] concat
27 243 423 324 rectclip
0.333338 nxsetgray
gsave
0.333338 nxsetgray
newpath
systemdict
begin
31 247 454 571 setbbox
454 538.599976 moveto
0 -259.200012 rlineto
454 261.515198 359.247986 247 242.5 247 curveto
125.751999 247 31 261.515198 31 279.399994 curveto
0 259.200012 rlineto
31 556.484802 125.751999 571 242.5 571 curveto
359.247986 571 454 556.484802 454 538.599976 curveto
closepath
end
clip
newpath
1 setlinewidth
gsave
newpath
systemdict
begin
31.5 247.5 453.5 570.5 setbbox
453.5 538.200012 moveto
0 -258.399994 rlineto
453.5 261.970398 358.971985 247.5 242.5 247.5 curveto
126.028 247.5 31.5 261.970398 31.5 279.799988 curveto
0 258.399994 rlineto
31.5 556.029602 126.028 570.5 242.5 570.5 curveto
358.971985 570.5 453.5 556.029602 453.5 538.200012 curveto
closepath
end
stroke
grestore
gsave
newpath
systemdict
begin
31.5 247.5 453.5 570.5 setbbox
453.5 279.800018 moveto
453.5 297.629608 358.971985 312.100006 242.5 312.100006 curveto
126.028 312.100006 31.5 297.629608 31.5 279.800018 curveto
end
stroke
grestore
grestore
gsave
newpath
systemdict
begin
32 248 453 570 setbbox
453 537.799988 moveto
0 -257.600006 rlineto
453 262.425598 358.695984 248 242.5 248 curveto
126.304001 248 32 262.425598 32 280.200012 curveto
0 257.600006 rlineto
32 555.574402 126.304001 570 242.5 570 curveto
358.695984 570 453 555.574402 453 537.799988 curveto
closepath
end
fill
grestore
1 nxsetgray
gsave
newpath
systemdict
begin
28 244 449 566 setbbox
449 533.799988 moveto
0 -257.600006 rlineto
449 258.425598 354.695984 244 238.5 244 curveto
122.304001 244 28 258.425598 28 276.200012 curveto
0 257.600006 rlineto
28 551.574402 122.304001 566 238.5 566 curveto
354.695984 566 449 551.574402 449 533.799988 curveto
closepath
end
fill
grestore
gsave
newpath
systemdict
begin
27 243 450 567 setbbox
450 534.599976 moveto
0 -259.200012 rlineto
450 257.515198 355.247986 243 238.5 243 curveto
121.751999 243 27 257.515198 27 275.399994 curveto
0 259.200012 rlineto
27 552.484802 121.751999 567 238.5 567 curveto
355.247986 567 450 552.484802 450 534.599976 curveto
closepath
end
clip
newpath
0 nxsetgray
1 setlinewidth
gsave
newpath
systemdict
begin
27.5 243.5 449.5 566.5 setbbox
449.5 534.200012 moveto
0 -258.399994 rlineto
449.5 257.970398 354.971985 243.5 238.5 243.5 curveto
122.028 243.5 27.5 257.970398 27.5 275.799988 curveto
0 258.399994 rlineto
27.5 552.029602 122.028 566.5 238.5 566.5 curveto
354.971985 566.5 449.5 552.029602 449.5 534.200012 curveto
closepath
end
stroke
grestore
gsave
newpath
systemdict
begin
27.5 243.5 449.5 566.5 setbbox
449.5 275.800018 moveto
449.5 293.629608 354.971985 308.100006 238.5 308.100006 curveto
122.028 308.100006 27.5 293.629608 27.5 275.800018 curveto
end
stroke
grestore
grestore
gsave
/Helvetica-Bold findfont 12 scalefont [1 0 0 -1 0 0] makefont
94
exch
defineuserobject
94 execuserobject setfont
0 nxsetgray
/Helvetica findfont 12 scalefont [1 0 0 -1 0 0] makefont
10
exch
defineuserobject
10 execuserobject setfont
0 nxsetgray
30 320 moveto (Ledger.store \(mainStoreDirectory\(IXStoreDirectory\)\)) show
grestore
0.333338 nxsetgray
gsave
0.333338 nxsetgray
40 364 189 27 rectclip
1 setlinewidth
40.5 364.5 188 26 rectstroke
grestore
41 365 187 25 rectfill
1 nxsetgray
37 361 187 25 rectfill
gsave
36 360 189 27 rectclip
0 nxsetgray
1 setlinewidth
36.5 360.5 188 26 rectstroke
grestore
gsave
10 execuserobject setfont
0 nxsetgray
10 execuserobject setfont
0 nxsetgray
53 378 moveto ("Globals" \(IXRecordManager\)) show
grestore
0 nxsetgray
1 setlinewidth
2 setlinejoin
gsave
newpath
systemdict
begin
144 324 180 360 setbbox
144 360 moveto
180 324 lineto
end
stroke
grestore
0 setlinejoin
0.333338 nxsetgray
gsave
0.333338 nxsetgray
40 409 153 27 rectclip
1 setlinewidth
40.5 409.5 152 26 rectstroke
grestore
41 410 151 25 rectfill
1 nxsetgray
37 406 151 25 rectfill
gsave
36 405 153 27 rectclip
0 nxsetgray
1 setlinewidth
36.5 405.5 152 26 rectstroke
grestore
gsave
10 execuserobject setfont
0 nxsetgray
10 execuserobject setfont
0 nxsetgray
48 423 moveto ("Globals" \(GlobalThings\)) show
grestore
0 nxsetgray
1 setlinewidth
2 setlinejoin
gsave
newpath
systemdict
begin
117.900002 387 125.099998 405 setbbox
125.099998 387 moveto
117.900002 405 lineto
end
stroke
grestore
0 setlinejoin
0.333338 nxsetgray
gsave
0.333338 nxsetgray
247 364 189 27 rectclip
1 setlinewidth
247.5 364.5 188 26 rectstroke
grestore
248 365 187 25 rectfill
1 nxsetgray
244 361 187 25 rectfill
gsave
243 360 189 27 rectclip
0 nxsetgray
1 setlinewidth
243.5 360.5 188 26 rectstroke
grestore
gsave
10 execuserobject setfont
0 nxsetgray
10 execuserobject setfont
0 nxsetgray
255 378 moveto ("Accounts" \(IXRecordManager\)) show
grestore
0 nxsetgray
1 setlinewidth
2 setlinejoin
gsave
newpath
systemdict
begin
180 324 294.545471 360 setbbox
294.545471 360 moveto
180 324 lineto
end
stroke
grestore
0 setlinejoin
0.333338 nxsetgray
gsave
0.333338 nxsetgray
283 409 135 27 rectclip
1 setlinewidth
283.5 409.5 134 26 rectstroke
grestore
284 410 133 25 rectfill
1 nxsetgray
280 406 133 25 rectfill
gsave
279 405 135 27 rectclip
0 nxsetgray
1 setlinewidth
279.5 405.5 134 26 rectstroke
grestore
gsave
10 execuserobject setfont
0 nxsetgray
10 execuserobject setfont
0 nxsetgray
312 423 moveto (\(Description\)) show
grestore
0.333338 nxsetgray
gsave
0.333338 nxsetgray
283 454 135 27 rectclip
1 setlinewidth
283.5 454.5 134 26 rectstroke
grestore
284 455 133 25 rectfill
1 nxsetgray
280 451 133 25 rectfill
gsave
279 450 135 27 rectclip
0 nxsetgray
1 setlinewidth
279.5 450.5 134 26 rectstroke
grestore
gsave
10 execuserobject setfont
0 nxsetgray
10 execuserobject setfont
0 nxsetgray
311 468 moveto (\(Transaction\)) show
grestore
0.333338 nxsetgray
gsave
0.333338 nxsetgray
283 517 135 27 rectclip
1 setlinewidth
283.5 517.5 134 26 rectstroke
grestore
284 518 133 25 rectfill
1 nxsetgray
280 514 133 25 rectfill
gsave
279 513 135 27 rectclip
0 nxsetgray
1 setlinewidth
279.5 513.5 134 26 rectstroke
grestore
gsave
10 execuserobject setfont
0 nxsetgray
10 execuserobject setfont
0 nxsetgray
311 531 moveto (\(Transaction\)) show
grestore
0 nxsetgray
1 setlinewidth
2 setlinejoin
gsave
newpath
systemdict
begin
340.200012 387 343.799988 405 setbbox
340.200012 387 moveto
343.799988 405 lineto
end
stroke
grestore
0 setlinejoin
0 nxsetgray
1 setlinewidth
2 setlinejoin
gsave
newpath
systemdict
begin
346.5 432 346.5 450 setbbox
346.5 432 moveto
346.5 450 lineto
end
stroke
grestore
0 setlinejoin
0 nxsetgray
1 setlinewidth
2 setlinejoin
gsave
newpath
systemdict
begin
346.5 477 346.5 513 setbbox
346.5 477 moveto
346.5 513 lineto
end
stroke
grestore
0 setlinejoin
1 nxsetgray
288 487 117 15 rectfill
gsave
10 execuserobject setfont
0 nxsetgray
10 execuserobject setfont
0 nxsetgray
300 499 moveto (...Lots of These...) show
grestore
gsave
10 execuserobject setfont
0 nxsetgray
94 execuserobject setfont
0 nxsetgray
165 274 moveto (Schema of Ledger Example) show
grestore
grestore
%%Trailer
%%DocumentFonts: Helvetica-Bold
%%+ Helvetica

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.