fgludisk.ps

计算机图形学～想必是很多人需要的～在此共享一下

%!PS-Adobe-1.0
%%Creator: splat:n8 (Nate Robins,,,,,,,<engr>)
%%Title: stdin (ditroff)
%%CreationDate: Tue Jul 22 19:19:45 1997
%%EndComments
% Start of psdit.pro -- prolog for ditroff translator
% Copyright (c) 1985,1987 Adobe Systems Incorporated. All Rights Reserved. 
% GOVERNMENT END USERS: See Notice file in TranScript library directory
% -- probably /usr/lib/ps/Notice
% $Revision: 1.2 $
/$DITroff 140 dict def $DITroff begin
/fontnum 1 def /fontsize 10 def /fontheight 10 def /fontslant 0 def
/xi {0 72 11 mul translate 72 resolution div dup neg scale 0 0 moveto
  /fontnum 1 def /fontsize 10 def /fontheight 10 def /fontslant 0 def F
  /pagesave save def}def
/PB{save /psv exch def currentpoint translate
  resolution 72 div dup neg scale 0 0 moveto}def
/PE{psv restore}def
/m1 matrix def /m2 matrix def /m3 matrix def /oldmat matrix def
/tan{dup sin exch cos div}bind def
/point{resolution 72 div mul}bind def
/dround	{transform round exch round exch itransform}bind def
/xT{/devname exch def}def
/xr{/mh exch def /my exch def /resolution exch def}def
/xp{}def
/xs{docsave restore end}def
/xt{}def
/xf{/fontname exch def /slotno exch def fontnames slotno get fontname eq not
 {fonts slotno fontname findfont put fontnames slotno fontname put}if}def
/xH{/fontheight exch def F}bind def
/xS{/fontslant exch def F}bind def
/s{/fontsize exch def /fontheight fontsize def F}bind def
/f{/fontnum exch def F}bind def
/F{fontheight 0 le {/fontheight fontsize def}if
   fonts fontnum get fontsize point 0 0 fontheight point neg 0 0 m1 astore
   fontslant 0 ne{1 0 fontslant tan 1 0 0 m2 astore m3 concatmatrix}if
   makefont setfont .04 fontsize point mul 0 dround pop setlinewidth}bind def
/X{exch currentpoint exch pop moveto show}bind def
/N{3 1 roll moveto show}bind def
/Y{exch currentpoint pop exch moveto show}bind def
/S /show load def
/ditpush{}def/ditpop{}def
/AX{3 -1 roll currentpoint exch pop moveto 0 exch ashow}bind def
/AN{4 2 roll moveto 0 exch ashow}bind def
/AY{3 -1 roll currentpoint pop exch moveto 0 exch ashow}bind def
/AS{0 exch ashow}bind def
/MX{currentpoint exch pop moveto}bind def
/MY{currentpoint pop exch moveto}bind def
/MXY /moveto load def
/cb{pop}def	% action on unknown char -- nothing for now
/n{}def/w{}def
/p{pop showpage pagesave restore /pagesave save def}def
/abspoint{currentpoint exch pop add exch currentpoint pop add exch}def
/dstroke{currentpoint stroke moveto}bind def
/Dl{2 copy gsave rlineto stroke grestore rmoveto}bind def
/arcellipse{oldmat currentmatrix pop
 currentpoint translate 1 diamv diamh div scale /rad diamh 2 div def
 rad 0 rad -180 180 arc oldmat setmatrix}def
/Dc{gsave dup /diamv exch def /diamh exch def arcellipse dstroke 
    grestore diamh 0 rmoveto}def
/De{gsave /diamv exch def /diamh exch def arcellipse dstroke
    grestore diamh 0 rmoveto}def
/Da{currentpoint /by exch def /bx exch def /fy exch def /fx exch def
   /cy exch def /cx exch def /rad cx cx mul cy cy mul add sqrt def
   /ang1 cy neg cx neg atan def /ang2 fy fx atan def cx bx add cy by add
   2 copy rad ang1 ang2 arcn stroke exch fx add exch fy add moveto}def
/Barray 200 array def % 200 values in a wiggle
/D~{mark}def
/D~~{counttomark Barray exch 0 exch getinterval astore /Bcontrol exch def pop
 /Blen Bcontrol length def Blen 4 ge Blen 2 mod 0 eq and
 {Bcontrol 0 get Bcontrol 1 get abspoint /Ycont exch def /Xcont exch def
  Bcontrol 0 2 copy get 2 mul put Bcontrol 1 2 copy get 2 mul put
  Bcontrol Blen 2 sub 2 copy get 2 mul put
  Bcontrol Blen 1 sub 2 copy get 2 mul put
  /Ybi /Xbi currentpoint 3 1 roll def def 0 2 Blen 4 sub
  {/i exch def
   Bcontrol i get 3 div Bcontrol i 1 add get 3 div
   Bcontrol i get 3 mul Bcontrol i 2 add get add 6 div
   Bcontrol i 1 add get 3 mul Bcontrol i 3 add get add 6 div
   /Xbi Xcont Bcontrol i 2 add get 2 div add def
   /Ybi Ycont Bcontrol i 3 add get 2 div add def
   /Xcont Xcont Bcontrol i 2 add get add def
   /Ycont Ycont Bcontrol i 3 add get add def
   Xbi currentpoint pop sub Ybi currentpoint exch pop sub rcurveto
  }for dstroke}if}def
end
/ditstart{$DITroff begin
 /nfonts 60 def			% NFONTS makedev/ditroff dependent!
 /fonts[nfonts{0}repeat]def
 /fontnames[nfonts{()}repeat]def
/docsave save def
}def

% character outcalls
/oc {/pswid exch def /cc exch def /name exch def
   /ditwid pswid fontsize mul resolution mul 72000 div def
   /ditsiz fontsize resolution mul 72 div def
   ocprocs name known{ocprocs name get exec}{name cb}
   ifelse}def
/fractm [.65 0 0 .6 0 0] def
/fraction
 {/fden exch def /fnum exch def gsave /cf currentfont def
  cf fractm makefont setfont 0 .3 dm 2 copy neg rmoveto
  fnum show rmoveto currentfont cf setfont(\244)show setfont fden show 
  grestore ditwid 0 rmoveto} def
/oce {grestore ditwid 0 rmoveto}def
/dm {ditsiz mul}def
/ocprocs 50 dict def ocprocs begin
(14){(1)(4)fraction}def
(12){(1)(2)fraction}def
(34){(3)(4)fraction}def
(13){(1)(3)fraction}def
(23){(2)(3)fraction}def
(18){(1)(8)fraction}def
(38){(3)(8)fraction}def
(58){(5)(8)fraction}def
(78){(7)(8)fraction}def
(sr){gsave .05 dm .16 dm rmoveto(\326)show oce}def
(is){gsave 0 .15 dm rmoveto(\362)show oce}def
(->){gsave 0 .02 dm rmoveto(\256)show oce}def
(<-){gsave 0 .02 dm rmoveto(\254)show oce}def
(==){gsave 0 .05 dm rmoveto(\272)show oce}def
end
% DIThacks fonts for some special chars
50 dict dup begin
/FontType 3 def
/FontName /DIThacks def
/FontMatrix [.001 0.0 0.0 .001 0.0 0.0] def
/FontBBox [-220 -280 900 900] def% a lie but ...
/Encoding 256 array def
0 1 255{Encoding exch /.notdef put}for
Encoding
 dup 8#040/space put %space
 dup 8#110/rc put %right ceil
 dup 8#111/lt put %left  top curl
 dup 8#112/bv put %bold vert
 dup 8#113/lk put %left  mid curl
 dup 8#114/lb put %left  bot curl
 dup 8#115/rt put %right top curl
 dup 8#116/rk put %right mid curl
 dup 8#117/rb put %right bot curl
 dup 8#120/rf put %right floor
 dup 8#121/lf put %left  floor
 dup 8#122/lc put %left  ceil
 dup 8#140/sq put %square
 dup 8#141/bx put %box
 dup 8#142/ci put %circle
 dup 8#143/br put %box rule
 dup 8#144/rn put %root extender
 dup 8#145/vr put %vertical rule
 dup 8#146/ob put %outline bullet
 dup 8#147/bu put %bullet
 dup 8#150/ru put %rule
 dup 8#151/ul put %underline
 pop
/DITfd 100 dict def
/BuildChar{0 begin
 /cc exch def /fd exch def
 /charname fd /Encoding get cc get def
 /charwid fd /Metrics get charname get def
 /charproc fd /CharProcs get charname get def
 charwid 0 fd /FontBBox get aload pop setcachedevice
 40 setlinewidth
 newpath 0 0 moveto gsave charproc grestore
 end}def
/BuildChar load 0 DITfd put
%/UniqueID 5 def
/CharProcs 50 dict def
CharProcs begin
/space{}def
/.notdef{}def
/ru{500 0 rls}def
/rn{0 750 moveto 500 0 rls}def
/vr{20 800 moveto 0 -770 rls}def
/bv{20 800 moveto 0 -1000 rls}def
/br{20 770 moveto 0 -1040 rls}def
/ul{0 -250 moveto 500 0 rls}def
/ob{200 250 rmoveto currentpoint newpath 200 0 360 arc closepath stroke}def
/bu{200 250 rmoveto currentpoint newpath 200 0 360 arc closepath fill}def
/sq{80 0 rmoveto currentpoint dround newpath moveto
    640 0 rlineto 0 640 rlineto -640 0 rlineto closepath stroke}def
/bx{80 0 rmoveto currentpoint dround newpath moveto
    640 0 rlineto 0 640 rlineto -640 0 rlineto closepath fill}def
/ci{355 333 rmoveto currentpoint newpath 333 0 360 arc
    50 setlinewidth stroke}def

/lt{20 -200 moveto 0 550 rlineto currx 800 2cx s4 add exch s4 a4p stroke}def
/lb{20 800 moveto 0 -550 rlineto currx -200 2cx s4 add exch s4 a4p stroke}def
/rt{20 -200 moveto 0 550 rlineto currx 800 2cx s4 sub exch s4 a4p stroke}def
/rb{20 800 moveto 0 -500 rlineto currx -200 2cx s4 sub exch s4 a4p stroke}def
/lk{20 800 moveto 20 300 -280 300 s4 arcto pop pop 1000 sub
    currentpoint stroke moveto
    20 300 4 2 roll s4 a4p 20 -200 lineto stroke}def
/rk{20 800 moveto 20 300 320 300 s4 arcto pop pop 1000 sub
    currentpoint stroke moveto
    20 300 4 2 roll s4 a4p 20 -200 lineto stroke}def
/lf{20 800 moveto 0 -1000 rlineto s4 0 rls}def
/rf{20 800 moveto 0 -1000 rlineto s4 neg 0 rls}def
/lc{20 -200 moveto 0 1000 rlineto s4 0 rls}def
/rc{20 -200 moveto 0 1000 rlineto s4 neg 0 rls}def
end

/Metrics 50 dict def Metrics begin
/.notdef 0 def
/space 500 def
/ru 500 def
/br 0 def
/lt 250 def
/lb 250 def
/rt 250 def
/rb 250 def
/lk 250 def
/rk 250 def
/rc 250 def
/lc 250 def
/rf 250 def
/lf 250 def
/bv 250 def
/ob 350 def
/bu 350 def
/ci 750 def
/bx 750 def
/sq 750 def
/rn 500 def
/ul 500 def
/vr 0 def
end

DITfd begin
/s2 500 def /s4 250 def /s3 333 def
/a4p{arcto pop pop pop pop}def
/2cx{2 copy exch}def
/rls{rlineto stroke}def
/currx{currentpoint pop}def
/dround{transform round exch round exch itransform} def
end
end
/DIThacks exch definefont pop

ditstart
(psc)xT
576 1 1 xr
1(Times-Roman)xf 1 f
2(Times-Italic)xf 2 f
3(Times-Bold)xf 3 f
4(Times-BoldItalic)xf 4 f
5(Helvetica)xf 5 f
6(Helvetica-Bold)xf 6 f
7(Courier)xf 7 f
8(Courier-Bold)xf 8 f
9(Symbol)xf 9 f
10(DIThacks)xf 10 f
10 s
1 f
xi
%%EndProlog

%%Page: 1 1
10 s 0 xH 0 xS 1 f
10 f
96(h)Y
24(hhh)X
4176(h)X
4200(hhh)X
9 s
1 f
266 480(F)N
268(FG)X
310(GL)X
364(LU)X
410(UD)X
464(DI)X
518(IS)X
544(SK)X
586(K)X
644(\()X
646(\()X
682(\))X
684(\))X
1885(U)X
1887(UN)X
1941(NI)X
1995(IX)X
2021(X)X
2093(S)X
2095(Sy)X
2137(ys)X
2175(st)X
2205(te)X
2227(em)X
2261(m)X
2337(V)X
2339(V)X
3568(F)X
3570(FG)X
3612(GL)X
3666(LU)X
3712(UD)X
3766(DI)X
3820(IS)X
3846(SK)X
3888(K)X
3946(\()X
3948(\()X
3984(\))X
3986(\))X
266 864(N)N
268(NA)X
322(AM)X
376(ME)X
442(E)X
3 f
10 s
554 960(fgluDisk)N
1 f
9 f
862(-)X
1 f
926(draw)X
1107(a)X
1163(disk)X
9 s
266 1190(F)N
268(FO)X
310(OR)X
364(RT)X
414(TR)X
460(RA)X
510(AN)X
564(N)X
648(S)X
650(SP)X
692(PE)X
734(EC)X
780(CI)X
830(IF)X
856(FI)X
898(IC)X
924(CA)X
974(AT)X
1028(TI)X
1074(IO)X
1100(ON)X
1154(N)X
10 s
554 1286(SUBROUTINE)N
3 f
1081(fgluDisk)X
1 f
1369(\()X
1416(CHARACTER*8)X
2 f
2000(quad)X
1 f
(,)S
1429 1382(REAL*8)N
2 f
1738(inner)X
1 f
1907(,)X
1429 1478(REAL*8)N
2 f
1738(outer)X
1 f
1907(,)X
1429 1574(INTEGER*4)N
2 f
1872(slices)X
1 f
2050(,)X
1429 1670(INTEGER*4)N
2 f
1872(loops)X
1 f
2065(\))X
554 1862(delim)N
756($$)X
9 s
266 1996(P)N
268(PA)X
310(AR)X
364(RA)X
414(AM)X
468(ME)X
534(ET)X
580(TE)X
626(ER)X
672(RS)X
722(S)X
2 f
10 s
554 2092(quad)N
1 f
772(Speci\256es)X
1081(the)X
1199(quadrics)X
1491(object)X
1707(\(created)X
1987(with)X
3 f
2149(fgluNewQuadric)X
1 f
2718(\).)X
2 f
554 2226(inner)N
1 f
772(Speci\256es)X
1081(the)X
1199(inner)X
1384(radius)X
1600(of)X
1687(the)X
1805(disk)X
1958(\(may)X
2143(be)X
2239(0\).)X
2 f
554 2360(outer)N
1 f
772(Speci\256es)X
1081(the)X
1199(outer)X
1384(radius)X
1600(of)X
1687(the)X
1805(disk.)X
2 f
554 2494(slices)N
1 f
772(Speci\256es)X
1081(the)X
1199(number)X
1464(of)X
1551(subdivisions)X
1970(around)X
2213(the)X
2 f
2331(z)X
1 f
2382(axis.)X
2 f
554 2628(loops)N
1 f
772(Speci\256es)X
1081(the)X
1199(number)X
1464(of)X
1551(concentric)X
1906(rings)X
2086(about)X
2284(the)X
2402(origin)X
2613(into)X
2757(which)X
2973(the)X
3091(disk)X
3244(is)X
3317(subdivided.)X
9 s
266 2762(D)N
268(DE)X
322(ES)X
368(SC)X
410(CR)X
460(RI)X
510(IP)X
536(PT)X
578(TI)X
624(IO)X
650(ON)X
704(N)X
3 f
10 s
554 2858(fgluDisk)N
1 f
862(renders)X
1119(a)X
1175(disk)X
1328(on)X
1428(the)X
2 f
1546(z)X
1 f
1597(=)X
1662(0)X
1722(plane.)X
1936(The)X
2081(disk)X
2234(has)X
2361(a)X
2417(radius)X
2633(of)X
2 f
2720(outer)X
1 f
2889(,)X
2929(and)X
3065(contains)X
3352(a)X
3408(concentric)X
3764(circular)X
554 2954(hole)N
714(with)X
878(a)X
936(radius)X
1154(of)X
2 f
1243(inner)X
1 f
1412(.)X
1453(If)X
2 f
1528(inner)X
1 f
1718(is)X
1792(0,)X
1873(then)X
2032(no)X
2133(hole)X
2292(is)X
2366(generated.)X
2720(The)X
2866(disk)X
3020(is)X
3094(subdivided)X
3466(around)X
3710(the)X
2 f
3829(z)X
1 f
3881(axis)X
554 3050(into)N
702(slices)X
904(\(like)X
1075(pizza)X
1269(slices\),)X
1518(and)X
1658(also)X
1811(about)X
2014(the)X
2 f
2137(z)X
1 f
2193(axis)X
2347(into)X
2496(rings)X
2681(\(as)X
2800(speci\256ed)X
3110(by)X
2 f
3215(slices)X
1 f
3418(and)X
2 f
3559(loops)X
1 f
3732(,)X
3777(respec-)X
554 3146(tively\).)N
554 3280(With)N
736(respect)X
986(to)X
1070(orientation,)X
1459(the)X
1579(+)X
2 f
1624(z)X
1 f
1677(side)X
1828(of)X
1918(the)X
2039(disk)X
2195(is)X
2271(considered)X
2642(to)X
2727(be)X
2826("outside")X
3146(\(see)X
3 f
3299(fgluQuadricOrienta-)X
554 3376(tion)N
1 f
687(\).)X
775(This)X
938(means)X
1164(that)X
1305(if)X
1375(the)X
1494(orientation)X
1862(is)X
1936(set)X
2046(to)X
3 f
2129(GLU_OUTSIDE)X
1 f
2701(,)X
2742(then)X
2901(any)X
3037(normals)X
3315(generated)X
3648(point)X
3832(along)X
554 3472(the)N
672(+)X
2 f
717(z)X
1 f
768(axis.)X
937(Otherwise,)X
1307(they)X
1465(point)X
1649(along)X
1847(the)X
9 f
1965(-)X
2 f
2009(z)X
1 f
2060(axis.)X
554 3606(If)N
628(texturing)X
937(has)X
1064(been)X
1236(turned)X
1461(on)X
1561(\(with)X
3 f
1751(fgluQuadricTexture)X
1 f
2440(\),)X
2508(texture)X
2752(coordinates)X
3143(are)X
3263(generated)X
3597(linearly)X
3863(such)X
554 3702(that)N
696(where)X
915($)X
977(r)X
1026(=)X
1093("outer")X
1346($,)X
1428(the)X
1548(value)X
1744(at)X
1824(\()X
2 f
1851(r)X
1 f
1882(,)X
1924(0,)X
2006(0\))X
2095(is)X
2170(\(1,)X
2279(0.5\),)X
2448(at)X
2528(\(0,)X
2 f
2637(r)X
1 f
2668(,)X
2710(0\))X
2799(it)X
2865(is)X
2940(\(0.5,)X
3109(1\),)X
3218(at)X
3298(\()X
9 f
3325(-)X
2 f
3369(r)X
1 f
3400(,)X
3442(0,)X
3524(0\))X
3613(it)X
3679(is)X
3754(\(0,)X
3863(0.5\),)X
554 3798(and)N
690(at)X
768(\(0,)X
9 f
875(-)X
2 f
919(r)X
1 f
950(,)X
990(0\))X
1077(it)X
1141(is)X
1214(\(0.5,)X
1381(0\).)X
9 s
266 3932(S)N
268(SE)X
310(EE)X
356(E)X
432(A)X
434(AL)X
488(LS)X
534(SO)X
576(O)X
3 f
10 s
554 4028(fgluCylinder)N
1 f
989(,)X
3 f
1041(fgluNewQuadric)X
1 f
1610(,)X
3 f
1662(fgluPartialDisk)X
1 f
2186(,)X
3 f
2238(fgluQuadricOrientation)X
1 f
3055(,)X
3 f
3108(fgluQuadricTexture)X
1 f
3797(,)X
3 f
3850(fglu-)X
554 4124(Sphere)N
1 f
266 6144(Page)N
442(1)X
3577(July)X
3730(22,)X
3850(1997)X
10 f
0 6428(h)N
24(hhh)X
4176(h)X
4200(hhh)X

1 p
%%Trailer
xt

xs