-+-+-+-+-+-+-+-+ START OF PART 130 -+-+-+-+-+-+-+-+
X(types)g(in)g Fi(eltypelst)1866 1769 y Fq(.)p 1323 2044 543
X2 v 1323 2123 2 80 v 1337 2098 a Fb(ptkf_drawcolourtabl)o(e)p
X1864 2123 V 1323 2125 543 2 v 11 2199 a Fq(SUBROUTINE)h Fp
X(ptkf_drawcolourtable)f Fq(\(stid,)f(llim,)h(ulim\))25 2288
Xy(IN)50 b(INTEGER)g Fa(stid)58 b Fq(structure)11 b(identi\256er)n(.)25
X2338 y(IN)50 b(INTEGER)g Fa(llim)61 b Fq(lower)11 b(index)g(value)g(of)g
X(colour)g(table)g(range.)25 2388 y(IN)50 b(INTEGER)g Fa(ulim)f
XFq(upper)11 b(limit)f(of)h(colour)g(table)g(range..)0 2457
Xy(This)g(function)f(draws)i(a)g(rectangular)f(array)h(of)f(boxes)g
X(representing)g(the)g(range)h Fi(llim)g Fq(to)f Fi(ulim)h Fq(of)f(the)h
X(workstation)d(colour)0 2507 y(table.)15 b(The)d(boxes)g(are)g(drawn)f(into)
Vf
X(structure)g Fi(stid)p Fq(.)0 2956 y(13th)22 b(May)m(,)12 b(1992)626
Xb(190)828 b(2.01)p eop
X%%Page: 191 192
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1463 -19 404 2 v 1463 60 2 80 v 1477 35 a Fb(ptkf_elemcoun)o(t)p
X1864 60 V 1463 62 404 2 v 0 136 a Fq(INTEGER)12 b(FUNCTION)f
XFp(ptkf_elemcount)g Fq(\(stid\))25 236 y(IN)50 b(INTEGER)g
XFa(stid)f Fq(structure)10 b(identi\256er)n(.)0 335 y(This)16
Xb(functions)f(counts)h(the)g(number)g(of)g(elements)h(in)e(structure)h
XFi(stid)p Fq(,)j(returning)14 b(the)i(number)g(of)g(elements,)j(or)d(-1)g(if
V)
X0 385 y(the)11 b(structure)g(does)g(not)g(exist.)p 1400 482
X467 2 v 1400 561 2 80 v 1414 536 a Fb(ptkf_\256ndelemtyp)o(e)p
X1864 561 V 1400 563 467 2 v 11 637 a Fq(SUBROUTINE)h Fp(ptkf_\256ndelemtype)
Vf
XFq(\(eltypelst,)f(lenlst,)h(srchdir)n(,)g(srchstat,)h(elptr)n(,)f(lstnum\))2
V5
X726 y(IN)91 b(INTEGER)50 b Fa(eltypelst\(*\))d Fq(list)10 b(of)h(element)h
X(types.)25 776 y(IN)91 b(INTEGER)50 b Fa(lenlst)133 b Fq(length)10
Xb(of)h(element)h(type)f(list.)25 826 y(IN)91 b(INTEGER)50 b
XFa(srchdir)109 b Fq(search)12 b(direction,)f(forwards)g(or)g(backwards.)25
X876 y(OUT)50 b(INTEGER)g Fa(srchstat)91 b Fq(search)12 b(success)h(or)e
X(failure.)25 925 y(OUT)50 b(INTEGER)g Fa(elptr)147 b Fq(found)10
Xb(element)i(pointer)n(.)25 975 y(OUT)50 b(INTEGER)g Fa(lstnum)112
Xb Fq(index)10 b(of)h(found)g(item)g(in)g(list.)0 1044 y(This)k(function)e
X(searches)k(the)e(currently)f(open)h(structure,)h(starting)d(at)i(the)g
X(current)g(element)g(pointer)f(and)h(proceeding)g(in)0 1094
Xy(direction)10 b Fi(srchdir)p Fq(,)j(for)e(the)g(\256rst)g(element)h(whose)f
X(type)g(matches)i(any)e(of)g(those)g(given)g(in)f Fi(contentlst)p
XFq(.)p 1503 1191 364 2 v 1503 1270 2 80 v 1517 1245 a Fb(ptkf_\256ndlabel)p
X1864 1270 V 1503 1272 364 2 v 0 1346 a Fq(LOGICAL)i(FUNCTION)f
XFp(ptkf_\256ndlabel)f Fq(\(label,)i(eltptr\))25 1435 y(IN)146
Xb(INTEGER)51 b Fa(label)91 b Fq(label)11 b(value.)25 1485 y(IN/OUT)49
Xb(INTEGER)i Fa(elemptr)d Fq(element)12 b(pointer)e(of)h(label)g(element.)0
X1560 y(This)16 b(function)e(searches)k(forwards)d(through)g(the)g(currently)
Vg
X(open)h(structure)f(from)h(the)g(current)f(editing)g(position)f(look-)0
X1610 y(ing)c(for)h(a)h(label)f(structure)g(element.)16 b(The)c(function)e
X(returns)g(TRUE)i(if)f Fi(label)h Fq(was)g(found,)f(otherwise)g(F)m(ALSE.)p
X1366 1707 500 2 v 1366 1786 2 80 v 1380 1761 a Fb(ptkf_\256ndnextpickid)p
X1864 1786 V 1366 1788 500 2 v 0 1862 a Fq(LOGICAL)h(FUNCTION)f
XFp(ptkf_\256ndnextpickid)g Fq(\(stid,)f(srchdir)n(,)i(eltptr)n(,)f(pickid\))
X25 1951 y(IN)91 b(INTEGER)50 b Fa(stid)100 b Fq(structure)11
Xb(identi\256er)n(.)25 2001 y(IN)91 b(INTEGER)50 b Fa(srchdir)e
XFq(search)12 b(direction.)25 2051 y(OUT)50 b(INTEGER)g Fa(eltptr)76
Xb Fq(element)12 b(pointer)e(of)h(pick)g(identi\256er)n(.)25
X2100 y(OUT)50 b(INTEGER)g Fa(pickid)64 b Fq(pick)11 b(identi\256er)f(value.)
V0
X2169 y(This)15 b(function)e(searches)k(structure)d Fi(stid)p
XFq(,)j(starting)c(at)i(element)g Fi(elptr)h Fq(and)f(proceeding)f(in)h
X(direction)e Fi(srchdir)p Fq(,)18 b(look-)0 2219 y(ing)11 b(for)h(a)g(pick)g
X(identi\256er)f(structure)h(element.)18 b(The)13 b(function)d(returns)i(TRUE
V)
Xg(if)g(a)h(pick)e(identi\256er)g(was)i(found,)f(otherwise)0
X2269 y(F)m(ALSE.)0 2956 y(13th)22 b(May)m(,)12 b(1992)626 b(191)828
Xb(2.01)p eop
X%%Page: 192 193
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1483 -19 384 2 v 1483 60 2 80 v 1497 35 a Fb(ptkf_framebox)p
X1864 60 V 1483 62 384 2 v 11 136 a Fq(SUBROUTINE)12 b Fp(ptkf_framebox)e
XFq(\(boxcentre,)20 b(boxsize,)f(framesize,)j(boxcolour)n(,)c(edgecolour)n(,)
X562 186 y(tlcolour)n(,)11 b(brcolour\))25 236 y(IN)50 b(REAL)119
Xb Fa(boxcentre\(3)o(\))47 b Fq(centre)12 b(of)f(box.)25 286
Xy(IN)50 b(REAL)119 b Fa(boxsize\(2\))82 b Fq(height)10 b(and)h(width)f(box.)
X25 336 y(IN)50 b(REAL)119 b Fa(framesize\(2\))49 b Fq(height)10
Xb(and)h(width)f(of)h(frame.)25 386 y(IN)50 b(INTEGER)g Fa(boxcolour)92
Xb Fq(box)10 b(interior)g(colour)h(index.)25 436 y(IN)50 b(INTEGER)g
XFa(edgecolour)70 b Fq(box)10 b(edge)i(colour)f(index.)25 485
Xy(IN)50 b(INTEGER)g Fa(tlcolour)132 b Fq(frame)12 b(top-left)e(colour)g
X(index.)25 535 y(IN)50 b(INTEGER)g Fa(brcolour)118 b Fq(frame)12
Xb(bottom-right)c(colour)j(index.)0 604 y(This)g(function)f(draws)i(a)f(box)g
X(in)g(the)g(open)g(structure)g(with)f(a)i(frame)g(to)f(give)g(a)g(3D)h(ef)o
X(fect.)p 1420 701 447 2 v 1420 780 2 80 v 1434 755 a Fb(ptkf_getelem)o(typ)o
X(e)p 1864 780 V 1420 782 447 2 v 11 856 a Fq(SUBROUTINE)g Fp
X(ptkf_getelemtype)f Fq(\(elemstr)n(,)h(eltype\))25 945 y(IN)91
Xb(CHARACTER*\(*\))48 b Fa(elemstr)h Fq(string)10 b(giving)f(element)j(type.)
X25 995 y(OUT)50 b(INTEGER)193 b Fa(eltype)70 b Fq(element)12
Xb(type.)0 1070 y(This)e(function)e(converts)i(the)g(string)e
XFi(elemstr)j Fq(into)e(its)g(corresponding)g(element)h(type.)15
Xb(For)9 b(example)i(the)f(element)g(type)g(for)0 1120 y("polyline3",)f(would
V)
Xi(be)g(PEPL3.)p 1290 1217 577 2 v 1290 1296 2 80 v 1304 1271
Xa Fb(ptkf_getelemt)o(ypen)o(am)o(e)p 1864 1296 V 1290 1298
X577 2 v 11 1372 a Fq(SUBROUTINE)h Fp(ptkf_getelemtypename)f
XFq(\(eltype,)g(size,)h(elemstr)n(,)g(totalsize\))25 1461 y(IN)91
Xb(INTEGER)193 b Fa(eltype)84 b Fq(element)11 b(type.)25 1511
Xy(IN)91 b(INTEGER)193 b Fa(size)116 b Fq(size)12 b(of)f(buf)o(fer)g
X(allocated)g(by)g(application.)25 1561 y(OUT)50 b(CHARACTER*\(*\))e
XFa(elemstr)63 b Fq(string)10 b(giving)f(element)j(type.)25
X1611 y(OUT)50 b(INTEGER)193 b Fa(totalsize)48 b Fq(length)10
Xb(of)h(string.)0 1679 y(This)c(function)f(converts)i(element)g(type)f
XFi(eltype)i Fq(into)d(the)h(corresponding)f(character)j(string,)e(which)g(is
V)
Xh(returned)f(in)g Fi(elemstr)p Fq(.)0 1729 y(For)k(example,)i(the)e(string)f
X(corresponding)g(to)g(PEPL3)i(would)e(be)i("polyline3".)p 1410
X1826 457 2 v 1410 1906 2 80 v 1424 1880 a Fb(ptkf_getexec)o(utei)o(d)p
X1864 1906 V 1410 1908 457 2 v 0 1982 a Fq(LOGICAL)g(FUNCTION)f
XFp(ptkf_getexecuteid)h Fq(\(stid,)e(elptr)n(,)i(execid\))25
X2070 y(IN)91 b(INTEGER)50 b Fa(stid)96 b Fq(structure)11 b(identi\256er)n(.)
X25 2120 y(IN)91 b(INTEGER)50 b Fa(elptr)82 b Fq(element)12
Xb(pointer)e(value.)25 2170 y(OUT)50 b(INTEGER)g Fa(execid)e
XFq(execute)12 b(structure)f(identi\256er)n(.)0 2239 y(This)16
Xb(function)f(inquires)g(the)g(execute)i(element)g(identi\256er)e(at)h(the)g
X(element)h(position)d(speci\256ed)j(by)e Fi(elptr)i Fq(in)f(structure)0
X2289 y Fi(stid)p Fq(.)g(The)c(result)f(of)g(the)g(function)f(is)h(TRUE)h(if)
Ve
X(the)i(element)f(was)h(an)g(execute)g(element,)g(otherwise)f(F)m(ALSE..)0
X2956 y(13th)22 b(May)m(,)12 b(1992)626 b(192)828 b(2.01)p eop
X%%Page: 193 194
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1489 -19 377 2 v 1489 60 2 80 v 1503 35 a Fb(ptkf_getpickid)p
X1864 60 V 1489 62 377 2 v 0 136 a Fq(LOGICAL)12 b(FUNCTION)f
XFp(ptkf_getpickid)g Fq(\(stid,)f(elptr)n(,)h(pickid\))25 225
Xy(IN)91 b(INTEGER)50 b Fa(stid)84 b Fq(structure)11 b(identi\256er)n(.)25
X275 y(IN)91 b(INTEGER)50 b Fa(elptr)70 b Fq(element)12 b(pointer)e(value.)25
X324 y(OUT)50 b(INTEGER)g Fa(pickid)e Fq(pick)11 b(identi\256er)n(.)0
X393 y(This)16 b(function)e(inquires)h(the)h(pick)f(identi\256er)g(at)h(the)g
X(element)h(position)d(speci\256ed)i(by)g Fi(elptr)h Fq(in)e(structure)g
XFi(stid)p Fq(.)31 b(The)0 443 y(result)11 b(of)g(the)g(function)f(is)h(TRUE)
Vg
X(if)g(the)g(element)h(was)g(a)g(pick)f(identi\256er)n(,)g(otherwise)g(F)m
X(ALSE.)p 1187 540 680 2 v 1187 619 2 80 v 1201 594 a Fb(ptkf_getprimiti)o
X(vet)o(ypen)o(am)o(e)p 1864 619 V 1187 621 680 2 v 11 695 a
XFq(SUBROUTINE)h Fp(ptkf_getprimitivetypename)d Fq(\(attr)n(,)j(size,)g
X(attrstr)n(,)f(totalsize\))25 784 y(IN)91 b(INTEGER)193 b Fa(attr)128
Xb Fq(primitive)9 b(type.)25 834 y(IN)91 b(INTEGER)193 b Fa(size)116
Xb Fq(size)12 b(of)f(buf)o(fer)g(allocated)g(by)g(application.)25
X884 y(OUT)50 b(CHARACTER*\(*\))e Fa(attrstr)88 b Fq(string)10
Xb(giving)f(primitive)h(type.)25 934 y(OUT)50 b(INTEGER)193
Xb Fa(totalsize)48 b Fq(length)10 b(of)h(string.)0 1003 y(The)e(function)e
X(converts)i(the)f(primitive)f(type)h Fi(attr)h Fq(to)f(its)g(corresponding)f
X(character)j(string,)e(which)g(is)h(returned)f(in)g Fi(artrstr)p
XFq(.)0 1052 y(For)j(example,)i(PPLBND)e(would)f(give)h("polyline".)p
X1615 1150 251 2 v 1615 1229 2 80 v 1630 1203 a Fb(ptkf_grid)p
X1864 1229 V 1615 1231 251 2 v 11 1305 a Fq(SUBROUTINE)h Fp(ptkf_grid)f
XFq(\(stid\))25 1404 y(IN)50 b(INTEGER)g Fa(stid)f Fq(grid)10
Xb(structure)h(identi\256er)n(.)0 1504 y(This)g(functions)f(draws)i(a)g(grid)
Ve
X(of)h(lines)g(on)g(`5B0,1`5D,)g(into)f(structure)h Fi(stid)p Fq(.)p
X1217 1601 650 2 v 1217 1680 2 80 v 1231 1655 a Fb(ptkf_inqmaxdevic)o(ec)o
X(oords)p 1864 1680 V 1217 1682 650 2 v 11 1756 a Fq(SUBROUTINE)h
XFp(ptkf_inqmaxdevicecoords)f Fq(\(wsid,)g(maxdevx,)h(maxdevy\))25
X1845 y(IN)91 b(INTEGER)50 b Fa(wsid)120 b Fq(workstation)10
Xb(identi\256er)n(.)25 1895 y(OUT)50 b(REAL)119 b Fa(maxdevx)48
Xb Fq(maximum)12 b(device)g(coords)f(along)g(x)g(axis.)25 1945
Xy(OUT)50 b(REAL)119 b Fa(maxdevy)48 b Fq(maximum)12 b(device)g(coords)f
X(along)g(y)g(axis.)0 2014 y(This)g(function)f(returns)h(the)g(the)g(maximum)
Vh
X(device)g(coordinates)e(for)h Fk(x)h Fq(and)g Fk(y)f Fq(for)g(workstation)f
XFi(wsid)p Fq(.)p 1187 2111 680 2 v 1187 2190 2 80 v 1201 2165
Xa Fb(ptkf_inqmaxdevic)o(ec)o(oords3)p 1864 2190 V 1187 2192
X680 2 v 11 2266 a Fq(SUBROUTINE)i Fp(ptkf_inqmaxdevicecoords3)f
XFq(\(wsid,)g(maxdevx,)h(maxdevy\))25 2355 y(IN)91 b(INTEGER)50
Xb Fa(wsid)120 b Fq(workstation)10 b(identi\256er)n(.)25 2405
Xy(OUT)50 b(REAL)119 b Fa(maxdevx)48 b Fq(maximum)12 b(device)g(coords)f
X(along)g(x)g(axis.)25 2454 y(OUT)50 b(REAL)119 b Fa(maxdevy)48
Xb Fq(maximum)12 b(device)g(coords)f(along)g(y)g(axis.)25 2504
Xy(OUT)50 b(REAL)119 b Fa(maxdevz)48 b Fq(maximum)12 b(device)g(coords)f
X(along)g(z)g(axis.)0 2573 y(This)g(function)f(returns)h(the)g(the)g(maximum)
Vh
X(device)g(coordinates)e(for)h Fk(x)p Fq(,)i Fk(y)e Fq(and)h
XFk(z)f Fq(for)g(workstation)f Fi(wsid)p Fq(.)0 2956 y(13th)22
Xb(May)m(,)12 b(1992)626 b(193)828 b(2.01)p eop
X%%Page: 194 195
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1356 -19 510 2 v 1356 60 2 80 v 1370 35 a Fb
X(ptkf_inqpostpriority)p 1864 60 V 1356 62 510 2 v 11 136 a
XFq(SUBROUTINE)12 b Fp(ptkf_inqpostpriority)e Fq(\(wsid,)h(structid,)f
X(priority)m(,)g(err\))25 225 y(IN)91 b(INTEGER)50 b Fa(wsid)93
Xb Fq(workstation)9 b(identi\256er)n(.)25 275 y(IN)91 b(INTEGER)50
Xb Fa(structid)e Fq(structure)11 b(identi\256er)n(.)25 324 y(IN)91
Xb(REAL)119 b Fa(priority)56 b Fq(priority)9 b(value.)25 374
Xy(OUT)50 b(INTEGER)g Fa(err)120 b Fq(error)11 b(indicator)n(.)0
X443 y(This)k(function)e(returns)i(the)g(priority)d(of)j(posted)f(structure)h
XFi(structid)p Fq(.)28 b(If)14 b Fi(structid)j Fq(does)e(not)f(exist,)i
XFi(error)g Fq(is)f(set)g(to)0 493 y(1.)g(Otherwise,)d(its)e(value)i(is)f(0.)
Vp
X1360 588 507 2 v 1360 667 2 80 v 1374 642 a Fb(ptkf_inqstructnet)o(ids)p
X1864 667 V 1360 669 507 2 v 11 743 a Fq(SUBROUTINE)h Fp(ptkf_inqstructnetids
V)
Xf Fq(\(root,)g(num,)g(stids,)g(totalnum\))25 832 y(IN)91 b(INTEGER)50
Xb Fa(root)118 b Fq(structure)10 b(network)h(identifer)n(.)25
X882 y(IN)91 b(INTEGER)50 b Fa(size)116 b Fq(number)11 b(of)g(integers)g
X(allocated)g(in)g(integer)f(list.)25 932 y(OUT)50 b(INTEGER)g
XFa(stids\(*\))68 b Fq(list)10 b(of)h(structure)f(identi\256ers.)25
X982 y(OUT)50 b(INTEGER)g Fa(totalsize)e Fq(actual)11 b(number)g(of)g
X(integers)g(in)g(integer)g(list.)0 1051 y(This)g(function)f(returns)h(the)g
X(list)f(of)h(unique)f(structure)h(identi\256ers)g(in)f(the)h(structure)g
X(network)f(whose)i(root)e(is)h Fi(root)p Fq(.)p 1463 1146 404
X2 v 1463 1225 2 80 v 1477 1200 a Fb(ptkf_openstruct)p 1864
X1225 V 1463 1227 404 2 v 11 1301 a Fq(SUBROUTINE)h Fp(ptkf_openstruct)g
XFq(\(structid\))25 1401 y(IN)50 b(INTEGER)g Fa(structid)d Fq(structure)11
Xb(identi\256er)n(.)0 1500 y(This)d(function)f(stores)h(the)h(currently)e
X(open)h(structure)g(and)g(element)h(pointer)e(on)h(a)h(stack)g(and)f(opens)g
X(the)h(structure)e Fi(structid)p Fq(.)p 1433 1595 434 2 v 1433
X1674 2 80 v 1447 1649 a Fb(ptkf_postrelativ)o(e)p 1864 1674
XV 1433 1676 434 2 v 11 1750 a Fq(SUBROUTINE)12 b Fp(ptkf_postr)o(elative)e
XFq(\(ws,)i(structid,)f(relpriority)m(,)e(relstruct,)i(error\))25
X1839 y(IN)91 b(INTEGER)50 b Fa(ws)152 b Fq(workstation)10 b(identi\256er)n(.
V)
X25 1889 y(IN)91 b(INTEGER)50 b Fa(structid)79 b Fq(structure)11
Xb(identi\256er)n(.)25 1939 y(IN)91 b(INTEGER)50 b Fa(relpriority)d
XFq(relative)11 b(priority)m(.)25 1989 y(IN)91 b(INTEGER)50
Xb Fa(relstruct)67 b Fq(relative)11 b(structure)g(identi\256er)n(.)25
X2039 y(OUT)50 b(INTEGER)g Fa(error)119 b Fq(error)11 b(code.)0
X2107 y(This)f(function)f(posts)g(structure)h Fi(structid)i
XFq(at)e(a)h(priority)c(higher)j(or)g(lower)f(than)h(that)g(of)g(structure)f
XFi(relative)20 b(structure)0 2157 y(identifier)p Fq(,)15 b(according)e(to)f
XFi(relative)19 b(priority)p Fq(.)i(If)12 b Fi(relative)20 b(structure)f
X(identifier)c Fq(does)e(not)e(exist,)i Fi(error)0 2207 y Fq(is)e(set)h(to)e
X(1.)16 b(Otherwise,)11 b(its)g(value)g(is)g(0.)p 1479 2302
X387 2 v 1479 2381 2 80 v 1493 2356 a Fb(ptkf_poststruct)p 1864
X2381 V 1479 2383 387 2 v 11 2457 a Fq(SUBROUTINE)h Fp(ptkf_poststruct)f
XFq(\(wsid,)g(stid,)g(priority\))25 2546 y(IN)50 b(INTEGER)g
XFa(wsid)85 b Fq(workstation)9 b(identi\256er)n(.)25 2596 y(IN)50
Xb(INTEGER)g Fa(stid)100 b Fq(structure)10 b(identi\256er)n(.)25
X2646 y(IN)50 b(REAL)119 b Fa(priority)48 b Fq(priority)8 b(with)j(which)g(to
V)
Xf(post)h(structure.)0 2715 y(This)g(function)f(posts)h(structure)f
XFi(stid)j Fq(to)d(workstation)g Fi(wsid)p Fq(,)i(but)f(only)f(if)h(the)g
X(structure)f(exists.)0 2956 y(13th)22 b(May)m(,)12 b(1992)626
Xb(194)828 b(2.01)p eop
X%%Page: 195 196
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1503 -19 364 2 v 1503 60 2 80 v 1517 35 a Fb(ptkf_read\257oat)p
+-+-+-+-+-+-+-+-  END  OF PART 130 +-+-+-+-+-+-+-+-