-+-+-+-+-+-+-+-+ START OF PART 129 -+-+-+-+-+-+-+-+
X(functions)p 1572 820 294 2 v 1572 900 2 80 v 1586 874 a Fb(ptkf_arrow)p
X1864 900 V 1572 902 294 2 v 11 976 a Fq(SUBROUTINE)12 b Fp(ptkf_arr)o(ow)f
XFq(\(length,)g(width,)f(centre,)i(angle\))25 1064 y(IN)50 b(REAL)g
XFa(length)93 b Fq(length)10 b(of)h(arrow)m(.)25 1114 y(IN)50
Xb(REAL)g Fa(width)108 b Fq(width)10 b(of)h(arrow)m(.)25 1164
Xy(IN)50 b(REAL)g Fa(centre\(3\))d Fq(centre)12 b(of)f(arrow)m(.)25
X1214 y(IN)50 b(REAL)g Fa(angle)103 b Fq(rotation)9 b(of)i(arrow)g(in)g
X(degrees)h(anti-clockwise)f(about)g(arrow)g(pointing)e(along)h(x-axis..)0
X1283 y(This)17 b(function)e(draws)i(an)g(arrow)g(with)f(the)g(speci\256ed)i
X(length)e Fi(length)i Fq(and)f Fi(width)p Fq(,)i(rotated)d(through)f
XFi(angle)p Fq(,)20 b(centred)0 1333 y(at)11 b Fi(centre)p Fq(.)p
X1263 1430 603 2 v 1263 1509 2 80 v 1278 1483 a Fb(ptkf_changepostpr)o(iorit)
Vo
X(y)p 1864 1509 V 1263 1511 603 2 v 11 1585 a Fq(SUBROUTINE)h
XFp(ptkf_changepostpriority)e Fq(\(ws,)i(structid,)e(relpriority)m(,)g
X(relstruct,)h(error\))25 1674 y(IN)91 b(INTEGER)50 b Fa(ws)152
Xb Fq(workstation)10 b(identi\256er)n(.)25 1723 y(IN)91 b(INTEGER)50
Xb Fa(structid)79 b Fq(structure)11 b(identi\256er)n(.)25 1773
Xy(IN)91 b(INTEGER)50 b Fa(relpriority)d Fq(relative)11 b(priority)m(.)25
X1823 y(IN)91 b(INTEGER)50 b Fa(relstruct)67 b Fq(relative)11
Xb(structure)g(identi\256er)n(.)25 1873 y(OUT)50 b(INTEGER)g
XFa(error)119 b Fq(error)11 b(code.)0 1942 y(This)e(function)f(changes)i(the)
Vf
X(priority)e(of)j(structure)e Fi(structid)j Fq(to)e(immediately)g(higher)f(or
V)
Xh(lower)g(than)g(that)g(of)g Fi(relstruct)p Fq(,)0 1992 y(according)i(to)g
XFi(relpriority)p Fq(.)17 b(If)11 b Fi(structid)i Fq(does)f(not)e(exist,)h
XFi(error)i Fq(is)e(set)g(to)g(1.)k(Otherwise,)d(its)e(value)i(is)f(0.)p
X1456 2089 411 2 v 1456 2168 2 80 v 1470 2143 a Fb(ptkf_closestruct)p
X1864 2168 V 1456 2170 411 2 v 11 2244 a Fq(SUBROUTINE)h Fp(ptkf_closestruct)
Vg
XFq(\(\))0 2393 y(This)h(function)e(closes)j(the)f(currently)f(open)g
X(structure,)h(and)g(restores)h(the)e(open)h(structure)f(and)h(element)h
X(pointer)e(from)g(the)0 2443 y(structure)f(stack.)902 2956
Xy(186)p eop
X%%Page: 187 188
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1254 -19 613 2 v 1254 60 2 80 v 1268 35 a Fb(ptkf_computec)o
X(harh)o(eigh)o(t)p 1864 60 V 1254 62 613 2 v 11 136 a Fq(SUBROUTINE)12
Xb Fp(ptkf_computecharheight)f Fq(\(wsid,)g(str)n(,)h(box,)f(font,)g(charht\)
V)
X25 225 y(IN)91 b(INTEGER)193 b Fa(wsid)79 b Fq(workstation)10
Xb(identi\256er)n(.)25 275 y(IN)91 b(CHARACTER*\(*\))48 b Fa(str)110
Xb Fq(string.)25 324 y(IN)91 b(REAL)262 b Fa(box\(2\))48 b Fq(width)10
Xb(and)i(height)e(of)h(box.)25 374 y(IN)91 b(INTEGER)193 b Fa(font)90
Xb Fq(text)11 b(font.)25 424 y(OUT)50 b(REAL)262 b Fa(charht)50
Xb Fq(character)13 b(height.)0 493 y(This)c(function)f(computes)i(the)g
X(character)g(height)f(for)g(string)f Fi(str)p Fq(,)j(using)e(font)f
XFi(font)p Fq(,)j(in)e(order)g(for)g(it)g(to)g(\256t)g(into)g(the)g(rectangle
V)
X0 543 y(specifed)j(by)f Fi(box)p Fq(.)p 1310 640 557 2 v 1310
X719 2 80 v 1324 694 a Fb(ptkf_computecha)o(rsiz)o(e)p 1864
X719 V 1310 721 557 2 v 11 795 a Fq(SUBROUTINE)h Fp(ptkf_computecharsize)g
XFq(\(wsid,)f(str)n(,)h(box,)f(font,)g(charht,)g(charexp\))25
X884 y(IN)91 b(INTEGER)193 b Fa(wsid)105 b Fq(workstation)9
Xb(identi\256er)n(.)25 934 y(IN)91 b(CHARACTER*\(*\))48 b Fa(str)136
Xb Fq(string.)25 984 y(IN)91 b(REAL)262 b Fa(box\(2\))74 b Fq(width)10
Xb(and)h(height)f(of)h(box.)25 1033 y(IN)91 b(INTEGER)193 b
XFa(font)116 b Fq(text)10 b(font.)25 1083 y(OUT)50 b(REAL)262
Xb Fa(charht)76 b Fq(character)12 b(height.)25 1133 y(OUT)50
Xb(REAL)262 b Fa(charexp)48 b Fq(character)12 b(expansion.)0
X1202 y(This)j(function)e(computes)i(the)f(character)i(height)e(and)g
X(expansion)g(for)h(string)e Fi(str)p Fq(,)j(using)e(font)g
XFi(font)p Fq(,)i(in)e(order)h(for)f(it)g(to)0 1252 y(\256t)d(into)f(the)h
X(rectangle)h(specifed)f(by)g Fi(box)p Fq(.)p 1327 1349 540
X2 v 1327 1428 2 80 v 1341 1403 a Fb(ptkf_copycolourt)o(abl)o(e)p
X1864 1428 V 1327 1430 540 2 v 11 1504 a Fq(SUBROUTINE)h Fp
X(ptkf_copycolourtable)e Fq(\(sourcewsid,)i(destwsid\))25 1593
Xy(IN)50 b(INTEGER)g Fa(sourcewsid)d Fq(source)12 b(workstation)d
X(identi\256er)n(.)25 1643 y(IN)50 b(INTEGER)g Fa(destwsid)87
Xb Fq(destination)10 b(workstation)f(identi\256er)n(.)0 1718
Xy(This)i(function)f(copies)h(the)h(colour)e(table)h(from)g(workstation)f
XFi(sourcewsid)j Fq(to)e(workstation)e Fi(destwsid)p Fq(.)p
X1366 1815 500 2 v 1366 1894 2 80 v 1381 1869 a Fb(ptkf_copyedget)o(abl)o(e)p
X1864 1894 V 1366 1896 500 2 v 11 1970 a Fq(SUBROUTINE)j Fp
X(ptkf_copyedgetable)f Fq(\(sourcewsid,)g(destwsid\))25 2059
Xy(IN)50 b(INTEGER)g Fa(sourcewsid)d Fq(source)12 b(workstation)d
X(identi\256er)n(.)25 2109 y(IN)50 b(INTEGER)g Fa(destwsid)87
Xb Fq(destination)10 b(workstation)f(identi\256er)n(.)0 2184
Xy(This)i(function)f(copies)h(the)h(edge)f(bundle)g(table)g(from)g
X(workstation)e Fi(sourcewsid)14 b Fq(to)c(workstation)g Fi(destwsid)p
XFq(.)p 1479 2281 387 2 v 1479 2360 2 80 v 1493 2335 a Fb(ptkf_copyelem)p
X1864 2360 V 1479 2362 387 2 v 11 2436 a Fq(SUBROUTINE)i Fp(ptkf_copyelem)f
XFq(\(structid,)f(elemid\))25 2525 y(IN)50 b(INTEGER)g Fa(structid)d
XFq(structure)11 b(identi\256er)n(.)25 2575 y(IN)50 b(INTEGER)g
XFa(elemid)58 b Fq(element)12 b(number)n(.)0 2650 y(This)f(function)f(copies)
Vh
X(the)h(element)f(at)h(position)d Fi(elemid)j Fq(in)f(structure)g
XFi(structid)p Fq(,)i(into)d(the)h(currently)f(open)i(structure.)0
X2956 y(13th)22 b(May)m(,)12 b(1992)626 b(187)828 b(2.01)p eop
X%%Page: 188 189
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1347 -19 520 2 v 1347 60 2 80 v 1361 35 a Fb(ptkf_copyelem)o
X(rang)o(e)p 1864 60 V 1347 62 520 2 v 11 136 a Fq(SUBROUTINE)12
Xb Fp(ptkf_copyelemrange)f Fq(\(stid,)g(elem1,)h(elem2\))25
X225 y(IN)50 b(INTEGER)g Fa(stid)90 b Fq(structure)10 b(identi\256er)n(.)25
X275 y(IN)50 b(INTEGER)g Fa(elem1)f Fq(element)12 b(pointer)n(.)25
X324 y(IN)50 b(INTEGER)g Fa(elem2)f Fq(element)12 b(pointer)n(.)0
X393 y(This)f(function)f(copies)h(the)h(element)f(range)h Fi(elem1)g
XFq(to)f Fi(elem2)h Fq(in)f(structure)g Fi(stid)h Fq(into)e(the)h(currently)f
X(open)h(structure.)p 1326 489 540 2 v 1326 568 2 80 v 1341
X543 a Fb(ptkf_copyhiligh)o(t\256lte)o(r)p 1864 568 V 1326 570
X540 2 v 11 644 a Fq(SUBROUTINE)h Fp(ptkf_copyhilight\256lter)d
XFq(\(sourcewsid,)j(destwsid\))25 733 y(IN)50 b(INTEGER)g Fa(sourcewsid)d
XFq(source)12 b(workstation)d(identi\256er)n(.)25 783 y(IN)50
Xb(INTEGER)g Fa(destwsid)87 b Fq(destination)10 b(workstation)f(identi\256er)
Vn
X(.)0 858 y(This)i(function)f(copies)h(the)h(highlighti)o(ng)c(\256lter)j
X(from)g(workstation)e Fi(sourcewsid)14 b Fq(to)c(workstation)g
XFi(destwsid)p Fq(.)p 1343 953 523 2 v 1343 1032 2 80 v 1357
X1007 a Fb(ptkf_copyhlhsrmode)p 1864 1032 V 1343 1034 523 2
Xv 11 1108 a Fq(SUBROUTINE)i Fp(ptkf_copyhlhsrmode)f Fq(\(sourcewsid,)g
X(destwsid\))25 1197 y(IN)50 b(INTEGER)g Fa(sourcewsid)d Fq(source)12
Xb(workstation)d(identi\256er)n(.)25 1247 y(IN)50 b(INTEGER)g
XFa(destwsid)87 b Fq(destination)10 b(workstation)f(identi\256er)n(.)0
X1322 y(This)i(function)f(copies)h(the)h(HLHSR)f(mode)h(from)f(workstation)e
XFi(sourcewsid)k Fq(to)e(workstation)f Fi(destwsid)p Fq(.)p
X1416 1417 450 2 v 1416 1496 2 80 v 1430 1471 a Fb(ptkf_copyinttabl)o(e)p
X1864 1496 V 1416 1498 450 2 v 11 1572 a Fq(SUBROUTINE)i Fp(ptkf_copyinttable
V)
Xe Fq(\(sourcewsid,)h(destwsid\))25 1661 y(IN)50 b(INTEGER)g
XFa(sourcewsid)d Fq(source)12 b(workstation)d(identi\256er)n(.)25
X1711 y(IN)50 b(INTEGER)g Fa(destwsid)87 b Fq(destination)10
Xb(workstation)f(identi\256er)n(.)0 1786 y(This)i(function)f(copies)h(the)h
X(interior)d(bundle)i(table)g(from)g(workstation)e Fi(sourcewsid)k
XFq(to)e(workstation)f Fi(destwsid)p Fq(.)p 1366 1882 500 2
Xv 1366 1961 2 80 v 1380 1935 a Fb(ptkf_copyinvis\256lter)p
X1864 1961 V 1366 1963 500 2 v 11 2037 a Fq(SUBROUTINE)i Fp
X(ptkf_copyinvis\256lter)e Fq(\(sourcewsid,)h(destwsid\))25
X2126 y(IN)50 b(INTEGER)g Fa(sourcewsid)d Fq(source)12 b(workstation)d
X(identi\256er)n(.)25 2175 y(IN)50 b(INTEGER)g Fa(destwsid)87
Xb Fq(destination)10 b(workstation)f(identi\256er)n(.)0 2251
Xy(This)i(function)f(copies)h(the)h(invisibilt)o(y)c(\256lter)j(from)g
X(workstation)f Fi(sourcewsid)j Fq(to)e(workstation)e Fi(destwsid)p
XFq(.)p 1390 2346 477 2 v 1390 2425 2 80 v 1404 2400 a Fb(ptkf_copylinet)o
X(abl)o(e)p 1864 2425 V 1390 2427 477 2 v 11 2501 a Fq(SUBROUTINE)j
XFp(ptkf_copylinetable)e Fq(\(sourcewsid,)h(destwsid\))25 2590
Xy(IN)50 b(INTEGER)g Fa(sourcewsid)d Fq(source)12 b(workstation)d
X(identi\256er)n(.)25 2640 y(IN)50 b(INTEGER)g Fa(destwsid)87
Xb Fq(destination)10 b(workstation)f(identi\256er)n(.)0 2715
Xy(This)i(function)f(copies)h(the)h(polyline)d(bundle)i(table)g(from)g
X(workstation)e Fi(sourcewsid)k Fq(to)e(workstation)e Fi(destwsid)p
XFq(.)0 2956 y(13th)22 b(May)m(,)12 b(1992)626 b(188)828 b(2.01)p
Xeop
X%%Page: 189 190
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1310 -19 557 2 v 1310 60 2 80 v 1324 35 a Fb(ptkf_copymarkert)o
X(abl)o(e)p 1864 60 V 1310 62 557 2 v 11 136 a Fq(SUBROUTINE)12
Xb Fp(ptkf_copymarkertable)f Fq(\(sourcewsid,)g(destwsid\))25
X225 y(IN)50 b(INTEGER)g Fa(sourcewsid)d Fq(source)12 b(workstation)d
X(identi\256er)n(.)25 275 y(IN)50 b(INTEGER)g Fa(destwsid)87
Xb Fq(destination)10 b(workstation)f(identi\256er)n(.)0 350
Xy(This)i(function)f(copies)h(the)h(polymarker)e(bundle)h(table)g(from)g
X(workstation)e Fi(sourcewsid)14 b Fq(to)c(workstation)g Fi(destwsid)p
XFq(.)p 1406 444 460 2 v 1406 523 2 80 v 1420 498 a Fb(ptkf_copypattabl)o(e)p
X1864 523 V 1406 525 460 2 v 11 599 a Fq(SUBROUTINE)i Fp(ptkf_copypattable)e
XFq(\(sourcewsid,)h(destwsid\))25 688 y(IN)50 b(INTEGER)g Fa(sourcewsid)d
XFq(source)12 b(workstation)d(identi\256er)n(.)25 738 y(IN)50
Xb(INTEGER)g Fa(destwsid)87 b Fq(destination)10 b(workstation)f(identi\256er)
Vn
X(.)0 813 y(This)i(function)f(copies)h(the)h(view)f(table)g(from)g
X(workstation)e Fi(sourcewsid)14 b Fq(to)c(workstation)g Fi(destwsid)p
XFq(.)p 1307 907 560 2 v 1307 986 2 80 v 1321 961 a Fb(ptkf_copypostedstruc)o
X(t)p 1864 986 V 1307 988 560 2 v 11 1062 a Fq(SUBROUTINE)i
XFp(ptkf_copypostedstruct)g Fq(\(sourcewsid,)f(destwsid\))25
X1151 y(IN)50 b(INTEGER)g Fa(sourcewsid)d Fq(source)12 b(workstation)d
X(identi\256er)n(.)25 1201 y(IN)50 b(INTEGER)g Fa(destwsid)87
Xb Fq(destination)10 b(workstation)f(identi\256er)n(.)0 1276
Xy(This)i(function)f(posts)h(all)g(the)g(structures)g(already)g(posted)g(to)g
X(workstation)e Fi(sourcewsid)k Fq(to)e(workstation)e Fi(destwsid)p
XFq(.)p 1390 1370 477 2 v 1390 1449 2 80 v 1404 1424 a Fb(ptkf_copytextt)o
X(abl)o(e)p 1864 1449 V 1390 1451 477 2 v 11 1525 a Fq(SUBROUTINE)j
XFp(ptkf_copytexttable)e Fq(\(sourcewsid,)i(destwsid\))25 1614
Xy(IN)50 b(INTEGER)g Fa(sourcewsid)d Fq(source)12 b(workstation)d
X(identi\256er)n(.)25 1664 y(IN)50 b(INTEGER)g Fa(destwsid)87
Xb Fq(destination)10 b(workstation)f(identi\256er)n(.)0 1739
Xy(This)i(function)f(copies)h(the)h(text)e(bundle)h(table)g(from)g
X(workstation)e Fi(sourcewsid)k Fq(to)e(workstation)f Fi(destwsid)p
XFq(.)p 1363 1833 504 2 v 1363 1912 2 80 v 1377 1887 a Fb(ptkf_copyviewtabl)o
X(e)p 1864 1912 V 1363 1914 504 2 v 11 1988 a Fq(SUBROUTINE)i
XFp(ptkf_copyviewtable)e Fq(\(sourcewsid,)h(destwsid\))25 2077
Xy(IN)50 b(INTEGER)g Fa(sourcewsid)d Fq(source)12 b(workstation)d
X(identi\256er)n(.)25 2127 y(IN)50 b(INTEGER)g Fa(destwsid)87
Xb Fq(destination)10 b(workstation)f(identi\256er)n(.)0 2202
Xy(This)i(function)f(copies)h(the)h(pattern)e(bundle)h(table)g(from)g
X(workstation)e Fi(sourcewsid)k Fq(to)e(workstation)f Fi(destwsid)p
XFq(.)p 1373 2296 494 2 v 1373 2375 2 80 v 1387 2350 a Fb(ptkf_copywssttable)
Vp
X1864 2375 V 1373 2377 494 2 v 11 2451 a Fq(SUBROUTINE)i Fp
X(ptkf_copywssttable)e Fq(\(sourcewsid,)i(destwsid\))25 2540
Xy(IN)50 b(INTEGER)g Fa(sourcewsid)d Fq(source)12 b(workstation)d
X(identi\256er)n(.)25 2590 y(IN)50 b(INTEGER)g Fa(destwsid)87
Xb Fq(destination)10 b(workstation)f(identi\256er)n(.)0 2665
Xy(This)16 b(function)e(copies)i(the)g(workstation)e(colour)n(,)j(polyline)d
X(bundle,)i(polymarker)g(bundle,)g(interior)e(bundle,)j(edge)f(bun-)0
X2715 y(dle,)c(text)e(bundle,)h(pattern)g(bundle)f(and)h(view)h(tables)f(from
V)
Xg(workstation)e Fi(sourcewsid)k Fq(to)e(workstation)f Fi(destwsid)p
XFq(.)0 2956 y(13th)22 b(May)m(,)12 b(1992)626 b(189)828 b(2.01)p
Xeop
X%%Page: 190 191
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1383 -19 484 2 v 1383 60 2 80 v 1397 35 a Fb(ptkf_countchildre)o
X(n)p 1864 60 V 1383 62 484 2 v 0 136 a Fq(INTEGER)12 b(FUNCTION)f
XFp(ptkf_countchildr)o(en)h Fq(\(stid\))25 236 y(IN)50 b(INTEGER)g
XFa(stid)f Fq(structure)10 b(identi\256er)n(.)0 335 y(The)16
Xb(function)d(returns)h(the)h(number)g(of)f(structures)h(executed)g(by)g
X(structure)f Fi(stid)p Fq(.)27 b(This)14 b(is)h(the)g(number)g(of)f(direct)h
X(exe-)0 385 y(cute)d(elements)g(in)e(the)h(structure.)p 1277
X482 590 2 v 1277 561 2 80 v 1291 536 a Fb(ptkf_countuniqchi)o(ldre)o(n)p
X1864 561 V 1277 563 590 2 v 0 637 a Fq(INTEGER)h(FUNCTION)f
XFp(ptkf_countuniqchildr)o(en)h Fq(\(stid\))25 737 y(IN)50 b(INTEGER)g
XFa(stid)f Fq(structure)10 b(identi\256er)n(.)0 837 y(This)16
Xb(function)f(returns)h(the)g(number)g(of)g(unique)g(children)f(of)h
X(structure)g Fi(stid)p Fq(.)31 b(Thus,)18 b(if)e(a)h(structure)f(executed)h
X(struc-)0 886 y(tures)e(A,)g(B)g(and)g(C,)g(it)f(would)f(have)j(3)f(unique)f
X(children,)h(regardless)g(of)g(how)f(many)h(times)g(each)h(of)f(A,)g(B)g(and
V)
Xg(C)f(were)0 936 y(executed.)p 1522 1033 344 2 v 1522 1113
X2 80 v 1537 1087 a Fb(ptkf_delelem)p 1864 1113 V 1522 1115
X344 2 v 11 1189 a Fq(SUBROUTINE)e Fp(ptkf_delelem)f Fq(\(numelems\))25
X1288 y(IN)50 b(INTEGER)g Fa(numelems)e Fq(number)12 b(of)f(elements)h(to)e
X(delete.)0 1388 y(This)e(function)f(deletes)i(the)g Fi(numelems)h
XFq(elements)f(from)f(the)g(open)h(structure,)f(starting)g(at)g(the)h(element
V)
Xg(pointer)n(.)k(If)8 b Fi(numelems)0 1438 y Fq(is)j(0,)h(all)f(elements)h(up
V)
Xe(to)h(the)g(end)h(of)f(the)g(structure)g(are)h(deleted.)p
X1420 1535 447 2 v 1420 1614 2 80 v 1434 1588 a Fb(ptkf_delelem)o(typ)o(e)p
X1864 1614 V 1420 1616 447 2 v 11 1690 a Fq(SUBROUTINE)g Fp(ptkf_delelemtype)
Vf
XFq(\(stid,)f(lenlst,)h(eltypelst\))25 1779 y(IN)50 b(INTEGER)g
XFa(stid)160 b Fq(structure)11 b(identi\256er)n(.)25 1828 y(IN)50
Xb(INTEGER)g Fa(lenlst)132 b Fq(length)11 b(of)g(element)g(type)g(list.)25
X1878 y(IN)50 b(INTEGER)g Fa(eltypelst\(*\))c Fq(list)11 b(of)g(element)g
X(types)g(to)g(delete.)0 1947 y(This)g(function)f(deletes)i(every)f(element)h
X(in)f(structure)g Fi(stid)p Fq(,)h(whose)f(type)g(matches)i(one)e(of)g(the)g
+-+-+-+-+-+-+-+-  END  OF PART 129 +-+-+-+-+-+-+-+-