-+-+-+-+-+-+-+-+ START OF PART 127 -+-+-+-+-+-+-+-+
XFq(.)18 b Fi(rotation)12 b Fq(is)g(expressed)g(in)e(degrees.)p
X1546 2081 321 2 v 1546 2160 2 80 v 1560 2134 a Fb(ptkf_rotate3)p
X1864 2160 V 1546 2162 321 2 v 11 2236 a Fq(SUBROUTINE)i Fp(ptkf_r)o(otate3)f
XFq(\(rotation,)e(axis,)j(operation,)f(matrix\))25 2325 y(IN)91
Xb(REAL)119 b Fa(rotation)110 b Fq(angle)11 b(in)g(degrees.)25
X2374 y(IN)91 b(INTEGER)50 b Fa(axis)166 b Fq(x,)11 b(y)g(or)g(z)h(axis.)25
X2424 y(IN)91 b(INTEGER)50 b Fa(operation)80 b Fq(concatenation)11
Xb(operation.)25 2474 y(OUT)50 b(REAL)119 b Fa(matrix\(4,)9
Xb(4\))50 b Fq(4x4)10 b(matrix.)0 2543 y(This)h(function)f(computes)i(a)f
X(matrix)g(to)g(perform)g(the)g(speci\256ed)h(3D)f(rotation)f(and)h
X(concatenates)i(this)d(matrix)h(with)f Fi(matrix)0 2593 y Fq(on)h(the)g
X(basis)h(of)e Fi(operation)p Fq(.)18 b Fi(rotation)12 b Fq(is)g(expressed)g
X(in)e(degrees.)0 2956 y(13th)22 b(May)m(,)12 b(1992)626 b(175)828
Xb(2.01)p eop
X%%Page: 176 177
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1526 -19 341 2 v 1526 60 2 80 v 1540 35 a Fb(ptkf_rotatecs)p
X1864 60 V 1526 62 341 2 v 11 136 a Fq(SUBROUTINE)12 b Fp(ptkf_r)o(otatecs)g
XFq(\(costheta,)f(sinetheta,)h(axis,)f(operation,)g(matrix\))25
X225 y(IN)91 b(REAL)119 b Fa(costheta)94 b Fq(cosine)11 b(of)g(angle.)25
X275 y(IN)91 b(REAL)119 b Fa(sinetheta)84 b Fq(sine)11 b(of)g(angle.)25
X324 y(IN)91 b(INTEGER)50 b Fa(axis)166 b Fq(x,)11 b(y)g(or)g(z)h(axis.)25
X374 y(IN)91 b(INTEGER)50 b Fa(operation)80 b Fq(concatenation)11
Xb(operation.)25 424 y(OUT)50 b(REAL)119 b Fa(matrix\(3,)9 b(3\))50
Xb Fq(3x3)10 b(matrix.)0 493 y(This)h(function)f(computes)i(a)f(matrix)g(to)g
X(perform)g(the)g(speci\256ed)h(2D)f(rotation)f(and)h(concatenates)i(this)d
X(matrix)h(with)f Fi(matrix)0 543 y Fq(on)i(the)g(basis)h(of)f
XFi(operation)p Fq(.)21 b(This)12 b(form)g(assumes)i(that)e(the)g(rotation)f
X(is)h(speci\256ed)h(using)f(the)g(cos)p Fl(\()p Fk(theta)p
XFl(\))g Fq(and)g(sin)o Fl(\()p Fk(theta)p Fl(\))0 593 y Fq(terms.)k(Note)11
Xb(that)g(no)g(check)h(is)f(made)h(to)f(ensure)h(that)e(the)i(sum)f(of)g(the)
Vg
X(squares)h(of)f(these)h(terms)g(is)f(1.)p 1496 690 371 2 v
X1496 769 2 80 v 1510 744 a Fb(ptkf_rotatecs3)p 1864 769 V 1496
X771 371 2 v 11 845 a Fq(SUBROUTINE)h Fp(ptkf_r)o(otatecs3)f
XFq(\(costheta,)h(sinetheta,)f(axis,)h(operation,)f(matrix\))25
X934 y(IN)91 b(REAL)119 b Fa(costheta)94 b Fq(cosine)11 b(of)g(angle.)25
X984 y(IN)91 b(REAL)119 b Fa(sinetheta)84 b Fq(sine)11 b(of)g(angle.)25
X1033 y(IN)91 b(INTEGER)50 b Fa(axis)166 b Fq(x,)11 b(y)g(or)g(z)h(axis.)25
X1083 y(IN)91 b(INTEGER)50 b Fa(operation)80 b Fq(concatenation)11
Xb(operation.)25 1133 y(OUT)50 b(REAL)119 b Fa(matrix\(4,)9
Xb(4\))50 b Fq(4x4)10 b(matrix.)0 1202 y(This)h(function)f(computes)i(a)f
X(matrix)g(to)g(perform)g(the)g(speci\256ed)h(3D)f(rotation)f(and)h
X(concatenates)i(this)d(matrix)h(with)f Fi(matrix)0 1252 y Fq(on)i(the)g
X(basis)h(of)f Fi(operation)p Fq(.)21 b(This)12 b(form)g(assumes)i(that)e(the
V)
Xg(rotation)f(is)h(speci\256ed)h(using)f(the)g(cos)p Fl(\()p
XFk(theta)p Fl(\))g Fq(and)g(sin)o Fl(\()p Fk(theta)p Fl(\))0
X1302 y Fq(terms.)k(Note)11 b(that)g(no)g(check)h(is)f(made)h(to)f(ensure)h
X(that)e(the)i(sum)f(of)g(the)g(squares)h(of)f(these)h(terms)g(is)f(1.)p
X1486 1399 381 2 v 1486 1478 2 80 v 1500 1452 a Fb(ptkf_rotatelin)o(e)p
X1864 1478 V 1486 1480 381 2 v 11 1554 a Fq(SUBROUTINE)h Fp(ptkf_r)o
X(otateline)f Fq(\(p1,)g(p2,)g(theta,)g(operation,)g(matrix,)g(error\))25
X1643 y(IN)91 b(REAL)119 b Fa(p1\(2\))146 b Fq(2D)11 b(point.)25
X1692 y(IN)91 b(REAL)119 b Fa(p2\(2\))146 b Fq(2D)11 b(point.)25
X1742 y(IN)91 b(REAL)119 b Fa(theta)150 b Fq(angle)11 b(in)g(degrees.)25
X1792 y(IN)91 b(INTEGER)50 b Fa(operation)80 b Fq(concatenation)11
Xb(operation.)25 1842 y(OUT)50 b(REAL)119 b Fa(matrix\(3,)9
Xb(3\))50 b Fq(3x3)10 b(matrix.)25 1892 y(OUT)50 b(INTEGER)g
XFa(error)154 b Fq(error)11 b(code.)0 1961 y(This)k(function)f(computes)h(a)h
X(matrix)e(to)h(perform)g(a)h(2D)f(rotation)e(of)i Fi(theta)h
XFq(degrees)g(about)e(the)h(line)g(connecting)f Fi(p1)i Fq(to)0
X2010 y Fi(p2)p Fq(,)d(and)g(concatenates)g(this)f(matrix)g(with)f
XFi(matrix)j Fq(on)e(the)g(basis)g(of)g Fi(operation)p Fq(.)21
Xb(If)12 b(the)g(parameters)i(are)f(invalid,)e Fi(error)0 2060
Xy Fq(is)g(set)h(to)e(-1.)16 b(Otherwise,)11 b(its)g(value)g(is)g
XFi(ptkcpcok)p Fq(.)0 2956 y(13th)22 b(May)m(,)12 b(1992)626
Xb(176)828 b(2.01)p eop
X%%Page: 177 178
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1456 -19 411 2 v 1456 60 2 80 v 1470 35 a Fb(ptkf_rotateline)o(3
V)
Xp 1864 60 V 1456 62 411 2 v 11 136 a Fq(SUBROUTINE)12 b Fp(ptkf_r)o
X(otateline3)e Fq(\(p1,)h(p2,)h(theta,)f(operation,)g(matrix,)g(error\))25
X225 y(IN)91 b(REAL)119 b Fa(p1\(3\))146 b Fq(3D)11 b(point.)25
X275 y(IN)91 b(REAL)119 b Fa(p2\(3\))146 b Fq(3D)11 b(point.)25
X324 y(IN)91 b(REAL)119 b Fa(theta)150 b Fq(angle)11 b(in)g(degrees.)25
X374 y(IN)91 b(INTEGER)50 b Fa(operation)80 b Fq(concatenation)11
Xb(operation.)25 424 y(OUT)50 b(REAL)119 b Fa(matrix\(4,)9 b(4\))50
Xb Fq(4x4)10 b(matrix.)25 474 y(OUT)50 b(INTEGER)g Fa(error)154
Xb Fq(error)11 b(code.)0 543 y(This)k(function)f(computes)h(a)h(matrix)e(to)h
X(perform)g(a)h(3D)f(rotation)e(of)i Fi(theta)h Fq(degrees)g(about)e(the)h
X(line)g(connecting)f Fi(p1)i Fq(to)0 593 y Fi(p2)p Fq(,)d(and)g(concatenates
V)
Xg(this)f(matrix)g(with)f Fi(matrix)j Fq(on)e(the)g(basis)g(of)g
XFi(operation)p Fq(.)21 b(If)12 b(the)g(parameters)i(are)f(invalid,)e
XFi(error)0 642 y Fq(is)g(set)h(to)e(-1.)16 b(Otherwise,)11
Xb(its)g(value)g(is)g Fi(ptkcpcok)p Fq(.)p 1516 740 351 2 v
X1516 819 2 80 v 1530 793 a Fb(ptkf_rotatevv)p 1864 819 V 1516
X821 351 2 v 11 895 a Fq(SUBROUTINE)h Fp(ptkf_r)o(otatevv)e
XFq(\(v1,)i(v2,)f(operation,)f(matrix,)i(error\))25 984 y(IN)91
Xb(REAL)119 b Fa(v1\(2\))148 b Fq(2D)11 b(vector)n(.)25 1033
Xy(IN)91 b(REAL)119 b Fa(v2\(2\))148 b Fq(2D)11 b(vector)n(.)25
X1083 y(IN)91 b(INTEGER)50 b Fa(operation)80 b Fq(concatenation)11
Xb(operation.)25 1133 y(OUT)50 b(REAL)119 b Fa(matrix\(3,)9
Xb(3\))50 b Fq(3x3)10 b(matrix.)25 1183 y(OUT)50 b(INTEGER)g
XFa(error)154 b Fq(error)11 b(code.)0 1252 y(This)g(function)f(computes)i(a)g
X(matrix)f(to)g(perform)h(the)f(rotation)f(\(about)g(the)i(origin\))d(of)j
X(the)f(3D)g(vector)h Fi(v1)g Fq(to)f(the)g(3D)g(vector)0 1302
Xy Fi(v2)p Fq(,)h(and)f(concatenates)i(this)d(matrix)g(with)h
XFi(matrix)h Fq(on)f(the)g(basis)g(of)g Fi(operation)i Fq(\(`5B12)o(`5D,)e(pa
Vges)h
X(55\26159\).)i(If)d(the)g(parameters)0 1351 y(are)h(invalid,)e
XFi(error)i Fq(is)g(set)f(to)g(-1.)k(Otherwise,)c(its)g(value)g(is)g
XFi(ptkcpcok)p Fq(.)p 1486 1448 381 2 v 1486 1528 2 80 v 1500
X1502 a Fb(ptkf_rotatevv3)p 1864 1528 V 1486 1530 381 2 v 11
X1604 a Fq(SUBROUTINE)h Fp(ptkf_r)o(otatevv3)e Fq(\(v1,)h(v2,)h(operation,)e
X(matrix,)h(error\))25 1692 y(IN)91 b(REAL)119 b Fa(v1\(3\))148
Xb Fq(3D)11 b(vector)n(.)25 1742 y(IN)91 b(REAL)119 b Fa(v2\(3\))148
Xb Fq(3D)11 b(vector)n(.)25 1792 y(IN)91 b(INTEGER)50 b Fa(operation)80
Xb Fq(concatenation)11 b(operation.)25 1842 y(OUT)50 b(REAL)119
Xb Fa(matrix\(4,)9 b(4\))50 b Fq(4x4)10 b(matrix.)25 1892 y(OUT)50
Xb(INTEGER)g Fa(error)154 b Fq(error)11 b(code.)0 1961 y(This)g(function)f
X(computes)i(a)g(matrix)f(to)g(perform)h(the)f(rotation)f(\(about)g(the)i
X(origin\))d(of)j(the)f(3D)g(vector)h Fi(v1)g Fq(to)f(the)g(3D)g(vector)0
X2010 y Fi(v2)p Fq(,)h(and)f(concatenates)i(this)d(matrix)g(with)h
XFi(matrix)h Fq(on)f(the)g(basis)g(of)g Fi(operation)i Fq(\(`5B12)o(`5D,)e(pa
Vges)h
X(55\26159\).)i(If)d(the)g(parameters)0 2060 y(are)h(invalid,)e
XFi(error)i Fq(is)g(set)f(to)g(-1.)k(Otherwise,)c(its)g(value)g(is)g
XFi(ptkcpcok)p Fq(.)p 1592 2157 274 2 v 1592 2237 2 80 v 1606
X2211 a Fb(ptkf_scale)p 1864 2237 V 1592 2239 274 2 v 11 2313
Xa Fq(SUBROUTINE)h Fp(ptkf_scale)f Fq(\(scale,)i(operation,)d(matrix\))25
X2401 y(IN)91 b(REAL)119 b Fa(scale\(2\))102 b Fq(scale)12 b(vector)n(.)25
X2451 y(IN)91 b(INTEGER)50 b Fa(operation)80 b Fq(concatenation)11
Xb(operation.)25 2501 y(OUT)50 b(REAL)119 b Fa(matrix\(3,)9
Xb(3\))50 b Fq(3x3)10 b(matrix.)0 2570 y(This)k(function)f(computes)h(a)h
X(matrix)f(to)f(perform)h(the)g(speci\256ed)h(2D)f(scale)h(and)g(concatenates
V)
Xg(this)e(matrix)h(with)f Fi(matrix)0 2620 y Fq(on)e(the)g(basis)h(of)e
XFi(operation)p Fq(.)0 2956 y(13th)22 b(May)m(,)12 b(1992)626
Xb(177)828 b(2.01)p eop
X%%Page: 178 179
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1562 -19 304 2 v 1562 60 2 80 v 1576 35 a Fb(ptkf_scale3)p
X1864 60 V 1562 62 304 2 v 11 136 a Fq(SUBROUTINE)12 b Fp(ptkf_scale3)f
XFq(\(scale,)h(operation,)f(matrix\))25 225 y(IN)91 b(REAL)119
Xb Fa(scale\(3\))102 b Fq(scale)12 b(vector)n(.)25 275 y(IN)91
Xb(INTEGER)50 b Fa(operation)80 b Fq(concatenation)11 b(operation.)25
X324 y(OUT)50 b(REAL)119 b Fa(matrix\(4,)9 b(4\))50 b Fq(4x4)10
Xb(matrix.)0 393 y(This)k(function)f(computes)i(a)f(matrix)g(to)g(perform)g
X(the)g(speci\256ed)h(3D)f(scale)i(and)e(concatenates)h(this)f(with)f
XFi(matrix)i Fq(on)f(the)0 443 y(basis)d(of)g Fi(operation)p
XFq(.)p 1562 540 V 1562 619 2 80 v 1576 594 a Fb(ptkf_scalev)p
X1864 619 V 1562 621 304 2 v 11 695 a Fq(SUBROUTINE)h Fp(ptkf_scalev)f
XFq(\(vec,)h(scale,)h(svec\))25 784 y(IN)91 b(REAL)50 b Fa(vec\(2\))66
Xb Fq(2D)11 b(vector)n(.)25 834 y(IN)91 b(REAL)50 b Fa(scale)82
Xb Fq(scale)12 b(factor)n(.)25 884 y(OUT)50 b(REAL)g Fa(svec\(2\))e
XFq(2D)11 b(vector)n(.)0 953 y(This)g(function)f(multiplies)f(the)j(2D)f
X(vector)g Fi(vec)h Fq(by)f(the)g(scalar)h Fi(scale)g Fq(and)g(returns)e(the)
Vi
X(result)e(in)h Fi(svec)p Fq(.)p 1532 1050 334 2 v 1532 1129
X2 80 v 1547 1104 a Fb(ptkf_scalev3)p 1864 1129 V 1532 1131
X334 2 v 11 1205 a Fq(SUBROUTINE)h Fp(ptkf_scalev3)f Fq(\(vec,)h(scale,)h
X(svec\))25 1294 y(IN)91 b(REAL)50 b Fa(vec\(3\))66 b Fq(3D)11
Xb(vector)n(.)25 1344 y(IN)91 b(REAL)50 b Fa(scale)82 b Fq(scale)12
Xb(factor)n(.)25 1394 y(OUT)50 b(REAL)g Fa(svec\(3\))e Fq(3D)11
Xb(vector)n(.)0 1462 y(This)g(function)f(multiplies)f(the)j(3D)f(vector)g
XFi(vec)h Fq(by)f(the)g(scalar)h Fi(scale)g Fq(and)g(returns)e(the)i(result)e
X(in)h Fi(svec)p Fq(.)p 1586 1560 281 2 v 1586 1639 2 80 v 1600
X1613 a Fb(ptkf_shear)p 1864 1639 V 1586 1641 281 2 v 11 1715
Xa Fq(SUBROUTINE)h Fp(ptkf_shear)g Fq(\(shearaxis,)g(sheardir)n(,)f
X(shearfactor)n(,)i(operation,)e(matrix\))25 1804 y(IN)91 b(INTEGER)50
Xb Fa(shearaxis)76 b Fq(x)11 b(or)g(y)g(axis.)25 1853 y(IN)91
Xb(INTEGER)50 b Fa(sheardir)100 b Fq(x)11 b(or)g(y)g(direction.)25
X1903 y(IN)91 b(REAL)119 b Fa(shearfactor)50 b Fq(shear)12 b(factor)n(.)25
X1953 y(IN)91 b(INTEGER)50 b Fa(operation)80 b Fq(concatenation)11
Xb(operation.)25 2003 y(OUT)50 b(REAL)119 b Fa(matrix\(3,)9
Xb(3\))50 b Fq(3x3)10 b(matrix.)0 2072 y(This)h(function)e(computes)i(a)g
X(matrix)f(to)g(perform)g(the)h(speci\256ed)g(2D)g(shear)g(and)g(concatenates
V)
Xg(this)f(matrix)g(with)g Fi(matrix)i Fq(on)0 2122 y(the)g(basis)h(of)f
XFi(operation)p Fq(.)21 b(The)13 b(shear)h(is)e(speci\256ed)h(as)g(an)g
X(amount)f Fi(shearfactor)j Fq(about)d(axis)g Fi(shearaxis)j
XFq(in)d(direction)0 2171 y Fi(sheardir)p Fq(.)0 2956 y(13th)22
Xb(May)m(,)12 b(1992)626 b(178)828 b(2.01)p eop
X%%Page: 179 180
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1556 -19 311 2 v 1556 60 2 80 v 1570 35 a Fb(ptkf_shear3)p
X1864 60 V 1556 62 311 2 v 11 136 a Fq(SUBROUTINE)12 b Fp(ptkf_shear3)f
XFq(\(shearaxis,)h(sheardir)n(,)g(shearfactor)n(,)h(operation,)d(matrix\))25
X225 y(IN)91 b(INTEGER)50 b Fa(shearaxis)76 b Fq(x,)11 b(y)g(or)g(z)h(axis.)2
V5
X275 y(IN)91 b(INTEGER)50 b Fa(sheardir)100 b Fq(x,)11 b(y)g(or)g(z)h
X(direction.)25 324 y(IN)91 b(REAL)119 b Fa(shearfactor)50 b
XFq(shear)12 b(factor)n(.)25 374 y(IN)91 b(INTEGER)50 b Fa(operation)80
Xb Fq(concatenation)11 b(operation.)25 424 y(OUT)50 b(REAL)119
Xb Fa(matrix\(4,)9 b(4\))50 b Fq(4x4)10 b(matrix.)0 493 y(This)h(function)e
X(computes)i(a)g(matrix)f(to)g(perform)g(the)h(speci\256ed)g(3D)g(shear)g(and
V)
Xg(concatenates)g(this)f(matrix)g(with)g Fi(matrix)i Fq(on)0
X543 y(the)f(basis)h(of)f Fi(operation)p Fq(.)17 b(The)12 b(shear)g(is)f
X(speci\256ed)h(as)g(an)f(amount)g Fi(f)h Fq(about)f(axis)g
XFi(i)g Fq(in)g(direction)f Fi(j)p Fq(.)p 1605 640 261 2 v 1605
X719 2 80 v 1620 694 a Fb(ptkf_shift)p 1864 719 V 1605 721 261
X2 v 11 795 a Fq(SUBROUTINE)i Fp(ptkf_shift)e Fq(\(shift,)h(operation,)f
X(matrix\))25 884 y(IN)91 b(REAL)119 b Fa(shift\(2\))h Fq(shift)10
Xb(vector)n(.)25 934 y(IN)91 b(INTEGER)50 b Fa(operation)80
Xb Fq(concatenation)11 b(operation.)25 984 y(OUT)50 b(REAL)119
Xb Fa(matrix\(3,)9 b(3\))50 b Fq(3x3)10 b(matrix.)0 1052 y(This)15
Xb(function)e(computes)i(a)g(matrix)f(to)h(perform)f(the)h(speci\256ed)g(2D)g
X(shift)f(and)g(concatenates)i(this)e(matrix)g(with)g Fi(matrix)0
X1102 y Fq(on)d(the)g(basis)h(of)e Fi(operation)p Fq(.)p 1576
X1199 291 2 v 1576 1279 2 80 v 1590 1253 a Fb(ptkf_shift3)p
X1864 1279 V 1576 1281 291 2 v 11 1355 a Fq(SUBROUTINE)i Fp(ptkf_shift3)e
XFq(\(shift,)g(operation,)h(matrix\))25 1443 y(IN)91 b(REAL)119
Xb Fa(shift\(3\))h Fq(shift)10 b(vector)n(.)25 1493 y(IN)91
Xb(INTEGER)50 b Fa(operation)80 b Fq(concatenation)11 b(operation.)25
X1543 y(OUT)50 b(REAL)119 b Fa(matrix\(4,)9 b(4\))50 b Fq(4x4)10
Xb(matrix.)0 1612 y(This)15 b(function)e(computes)i(a)g(matrix)f(to)h(perform
V)
Xf(the)h(speci\256ed)g(3D)g(shift)f(and)g(concatenates)i(this)e(matrix)g(with
V)
Xg Fi(matrix)0 1662 y Fq(on)d(the)g(basis)h(of)e Fi(operation)p
XFq(.)p 1433 1759 434 2 v 1433 1838 2 80 v 1447 1813 a Fb(ptkf_stackmatri)o(x
V)
Xp 1864 1838 V 1433 1840 434 2 v 11 1914 a Fq(SUBROUTINE)i Fp
X(ptkf_stackmatrix)e Fq(\(matrix\))25 2014 y(IN)50 b(REAL)g
XFa(matrix\(3,)9 b(3\))49 b Fq(3x3)11 b(matrix.)0 2113 y(This)g(function)f
X(pushes)h(the)h(3)d Fl(\264)g Fq(3)i(matrix)g Fi(matrix)h Fq(onto)e(the)h
X(transformation)f(stack.)p 1403 2210 464 2 v 1403 2290 2 80
Xv 1417 2264 a Fb(ptkf_stackmatri)o(x3)p 1864 2290 V 1403 2292
X464 2 v 11 2366 a Fq(SUBROUTINE)i Fp(ptkf_stackmatrix3)e Fq(\(matrix\))25
X2465 y(IN)50 b(REAL)g Fa(matrix\(4,)9 b(4\))49 b Fq(4x4)11
Xb(matrix.)0 2565 y(This)g(function)f(pushes)h(the)h(4)d Fl(\264)g
XFq(4)i(matrix)g Fi(matrix)h Fq(onto)e(the)h(transformation)f(stack.)0
X2956 y(13th)22 b(May)m(,)12 b(1992)626 b(179)828 b(2.01)p eop
X%%Page: 180 181
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1599 -19 268 2 v 1599 60 2 80 v 1613 35 a Fb(ptkf_subv)p
X1864 60 V 1599 62 268 2 v 11 136 a Fq(SUBROUTINE)12 b Fp(ptkf_subv)f
XFq(\(p1,)g(p2,)g(p3\))25 225 y(IN)91 b(REAL)50 b Fa(p1\(2\))e
XFq(2D)12 b(vector)n(.)25 274 y(IN)91 b(REAL)50 b Fa(p2\(2\))e
XFq(2D)12 b(vector)n(.)25 324 y(OUT)50 b(REAL)g Fa(p3\(2\))e
XFq(2D)12 b(vector)n(.)0 393 y(This)f(function)f(evaluates)i(the)f(2D)g
+-+-+-+-+-+-+-+-  END  OF PART 127 +-+-+-+-+-+-+-+-