-+-+-+-+-+-+-+-+ START OF PART 134 -+-+-+-+-+-+-+-+
Xb(\(PTKEBOXTOPOLOGY)g(=)f(0\))126 1226 y(INTEGER*4)56 b(PTKESTRUCTTOPOLOGY)
X126 1276 y(PARAMETER)20 b(\(PTKESTRUCTTOPOLOGY)h(=)d(1\))126
X1325 y(INTEGER*4)56 b(PTKESTRUCTNETTOPOLOGY)126 1375 y(PARAMETER)20
Xb(\(PTKESTRUCTNETTOPOLOGY)h(=)e(2\))0 1475 y(C)f(topology)i(nodes)126
X1575 y(INTEGER*4)56 b(PTKESINGLE)126 1624 y(PARAMETER)20 b(\(PTKESINGLE)g(=)
Ve
X(0\))126 1674 y(INTEGER*4)56 b(PTKEGROUP)126 1724 y(PARAMETER)20
Xb(\(PTKEGROUP)f(=)g(1\))0 1893 y Fr(34.2)59 b(Functions)p 1356
X1984 510 2 v 1356 2063 2 80 v 1371 2038 a Fb(ptkf_create)o(topol)o(ogy)p
X1864 2063 V 1356 2065 510 2 v 11 2139 a Fq(SUBROUTINE)12 b
XFp(ptkf_cr)o(eatetopology)e Fq(\(topid,)g(root,)h(error\))25
X2228 y(IN)91 b(INTEGER)50 b Fa(topid)f Fq(topology)9 b(identi\256er)n(.)25
X2278 y(IN)91 b(INTEGER)50 b Fa(root)65 b Fq(structure)10 b(network)h
X(identi\256er)n(.)25 2328 y(OUT)50 b(INTEGER)g Fa(error)h Fq(error)11
Xb(code.)0 2396 y(This)k(function)f(creates)i(a)g(diagram)g(of)e(the)i
X(structure)e(network)g(speci\256ed)i(by)f Fi(root)p Fq(.)28
Xb(The)16 b(diagram)g(is)f(a)g(PHIGS)h(struc-)0 2446 y(ture)c(which)g(uses)i
X(boxes)e(connected)h(by)f(lines)g(to)g(represent)h(structures)f(and)h
X(EXECUTE)h(STRUCTURE)f(elements.)20 b(The)0 2496 y(error)11
Xb(code)h(=)g(1)f(if)g(the)g(root)f(structure)h(does)g(not)g(exist.)902
X2956 y(212)p eop
X%%Page: 213 214
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1426 -19 441 2 v 1426 60 2 80 v 1440 35 a Fb(ptkf_deltopology)p
X1864 60 V 1426 62 441 2 v 0 136 a Fq(LOGICAL)12 b(FUNCTION)f
XFp(ptkf_deltopology)e Fq(\(topid\))25 236 y(IN)50 b(INTEGER)g
XFa(topid)e Fq(topology)9 b(identi\256er)n(.)0 335 y(This)h(function)g
X(deletes)h(a)g(topology)d(diagram)j(from)f(the)g(PHIGS)h(T)m(oolkit)e
X(topology)f(store.)15 b(The)d(function)d(returns)h(TRUE)h(if)0
X385 y(a)h(topology)d(is)i(deleted,)h(otherwise)e(F)m(ALSE.)p
X1326 482 540 2 v 1326 561 2 80 v 1341 536 a Fb(ptkf_inqnodepositi)o(on)p
X1864 561 V 1326 563 540 2 v 11 637 a Fq(SUBROUTINE)i Fp(ptkf_inqnodeposition
V)
Xd Fq(\(topid,)h(structid,)h(nodept,)g(err\))25 726 y(IN)91
Xb(INTEGER)50 b Fa(topid)123 b Fq(topology)9 b(identi\256er)n(.)25
X776 y(IN)91 b(INTEGER)50 b Fa(structid)85 b Fq(structure)11
Xb(identi\256er)n(.)25 826 y(OUT)50 b(REAL)119 b Fa(nodept\(2\))47
Xb Fq(node)11 b(position.)25 876 y(OUT)50 b(INTEGER)g Fa(err)157
Xb Fq(error)11 b(indicator)n(.)0 945 y(This)k(function)e(may)i(be)h(used)f(to
V)
Xf(obtain)g(the)g(position)f(of)h(a)i(topology)c(node)j(in)f(a)i(topology)c
X(diagram.)26 b(The)16 b(position)c(is)0 994 y(returned)e(in)g(the)h(range)g
X(`5B0,)g(1`5D.)k(The)d(node)e(is)h(speci\256ed)g(using)f(the)h(structure)f
X(identi\256er)g(of)g(the)h(structure)f(that)g(it)g(represents.)p
X1230 1091 636 2 v 1230 1171 2 80 v 1244 1145 a Fb(ptkf_inqpostedtopologi)o
X(es)p 1864 1171 V 1230 1173 636 2 v 11 1247 a Fq(SUBROUTINE)i
XFp(ptkf_inqpostedtopologies)d Fq(\(wsid,)i(num,)h(topids,)e(totalnum,)h
X(err\))25 1335 y(IN)91 b(INTEGER)50 b Fa(wsid)111 b Fq(workstation)9
Xb(identi\256er)n(.)25 1385 y(IN)91 b(INTEGER)50 b Fa(size)118
Xb Fq(size)12 b(of)f(buf)o(fer)n(.)25 1435 y(OUT)50 b(INTEGER)g
XFa(topids\(*\))e Fq(list)10 b(of)h(posted)g(topologies.)25
X1485 y(OUT)50 b(INTEGER)g Fa(totalsize)g Fq(length)10 b(of)h(posted)g
X(topologies)e(list.)25 1535 y(OUT)50 b(INTEGER)g Fa(err)138
Xb Fq(error)11 b(indicator)n(.)0 1604 y(This)k(function)f(may)i(be)g(used)g
X(to)f(obtain)f(a)i(list)e(of)h(all)h(the)f(topology)e(diagrams)j(which)f(are
V)
Xh(posted)f(to)g(the)g(workstation)0 1653 y Fi(wsid)p Fq(.)p
X1320 1751 547 2 v 1320 1830 2 80 v 1334 1804 a Fb(ptkf_inqtopologyat)o(trs)p
X1864 1830 V 1320 1832 547 2 v 11 1906 a Fq(SUBROUTINE)d Fp
X(ptkf_inqtopologyattrs)d Fq(\(topid,)g(txfont,)g(linecol,)g(textcol,)h
X(edgecol,)h(intcol,)f(htedgecol,)685 1956 y(htintcol,)f(err\))25
X2006 y(IN)91 b(INTEGER)50 b Fa(topid)125 b Fq(topology)9 b(identi\256er)n(.)
X25 2056 y(OUT)50 b(INTEGER)g Fa(txfont)115 b Fq(label)11 b(text)g(font.)25
X2106 y(OUT)50 b(INTEGER)g Fa(linecol)101 b Fq(polyline)10 b(colour)g(index.)
X25 2155 y(OUT)50 b(INTEGER)g Fa(textcol)99 b Fq(text)11 b(colour)f(index.)25
X2205 y(OUT)50 b(INTEGER)g Fa(edgecol)77 b Fq(edge)12 b(colour)e(index.)25
X2255 y(OUT)50 b(INTEGER)g Fa(intcol)119 b Fq(interior)10 b(colour)g(index.)2
V5
X2305 y(OUT)50 b(INTEGER)g Fa(htedgecol)d Fq(highlight)9 b(edge)i(colour)g
X(index.)25 2355 y(OUT)50 b(INTEGER)g Fa(htintcol)89 b Fq(highlight)9
Xb(interior)g(colour)i(index.)25 2405 y(OUT)50 b(INTEGER)g Fa(err)159
Xb Fq(error)11 b(indicator)n(.)0 2473 y(This)g(function)f(may)i(be)f(used)h
X(to)f(obtain)f(the)h(text)g(font)f(and)h(colour)g(attribute)f(values)h(of)g
X(a)h(topology)d(diagram.)0 2956 y(13th)22 b(May)m(,)12 b(1992)626
Xb(213)828 b(2.01)p eop
X%%Page: 214 215
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1091 -19 776 2 v 1091 60 2 80 v 1105 35 a Fb(ptkf_inqtopologyhi)
Vo
X(ghli)o(ghtnod)o(e)p 1864 60 V 1091 62 776 2 v 11 136 a Fq(SUBROUTINE)12
Xb Fp(ptkf_inqtopologyhighl)o(ig)o(htnode)d Fq(\(topid,)h(topnodestid,)g
X(err\))25 225 y(IN)91 b(INTEGER)50 b Fa(topid)155 b Fq(topology)9
Xb(identi\256er)n(.)25 275 y(OUT)50 b(INTEGER)g Fa(topnodestid)d
XFq(topology)9 b(node)i(structure)f(identi\256er)n(.)25 324
Xy(OUT)50 b(INTEGER)g Fa(err)189 b Fq(error)11 b(indicator)n(.)0
X393 y(This)g(function)f(may)i(be)f(used)h(to)f(obtain)f(the)h(structure)g
X(identi\256er)f(of)h(the)g(currently)f(highlighted)f(topology)g(node.)p
X1353 491 514 2 v 1353 570 2 80 v 1367 544 a Fb(ptkf_inqtopologyids)p
X1864 570 V 1353 572 514 2 v 11 646 a Fq(SUBROUTINE)j Fp(ptkf_inqtopologyids)
Vc
XFq(\(num,)k(topids,)e(totalnum,)h(err\))25 735 y(IN)91 b(INTEGER)50
Xb Fa(size)118 b Fq(size)12 b(of)f(buf)o(fer)n(.)25 784 y(OUT)50
Xb(INTEGER)g Fa(topids\(*\))e Fq(list)10 b(of)h(topology)e(identi\256ers.)25
X834 y(OUT)50 b(INTEGER)g Fa(totalsize)g Fq(length)10 b(of)h(topology)e
X(identi\256ers)h(list.)25 884 y(OUT)50 b(INTEGER)g Fa(err)138
Xb Fq(error)11 b(indicator)n(.)0 953 y(This)g(function)f(may)i(be)f(used)h(to
V)
Xf(obtain)f(a)i(list)e(of)h(all)g(the)g(topology)e(diagrams)j(in)e(the)h
X(PHIGS)h(T)m(oolkit)e(topology)f(store.)p 1293 1050 573 2 v
X1293 1129 2 80 v 1307 1104 a Fb(ptkf_inqtopologynam)o(e)p 1864
X1129 V 1293 1131 573 2 v 11 1205 a Fq(SUBROUTINE)j Fp(ptkf_inqtopologyname)c
XFq(\(topid,)i(topname,)i(err\))25 1294 y(IN)91 b(INTEGER)50
Xb Fa(topid)60 b Fq(topology)9 b(identi\256er)n(.)25 1344 y(OUT)50
Xb(INTEGER)g Fa(name)f Fq(topology)9 b(name)k(for)e(nameset)h(\256lters.)25
X1394 y(OUT)50 b(INTEGER)g Fa(err)94 b Fq(error)12 b(indicator)n(.)0
X1462 y(This)j(function)f(may)h(be)h(used)f(to)f(obtain)g(the)h(topology)e
X(name)j(for)f(use)g(in)g(the)g(pick)f(\256lter)n(.)27 b(When)15
Xb(a)h(topology)c(name)k(is)0 1512 y(added)c(to)e(the)h(pick)g(\256lter)g
X(only)f(the)h(topology)f(nodes)h(are)h(pickable.)p 1243 1609
X623 2 v 1243 1689 2 80 v 1258 1663 a Fb(ptkf_inqtopologystr)o(ucti)o(d)p
X1864 1689 V 1243 1691 623 2 v 11 1765 a Fq(SUBROUTINE)g Fp
X(ptkf_inqtopologystructid)d Fq(\(topid,)h(topstid,)g(err\))25
X1853 y(IN)91 b(INTEGER)50 b Fa(topid)76 b Fq(topology)9 b(identi\256er)n(.)2
V5
X1903 y(IN)91 b(INTEGER)50 b Fa(topstid)e Fq(topology)9 b(structure)i
X(identi\256er)n(.)25 1953 y(OUT)50 b(INTEGER)g Fa(err)110 b
XFq(error)11 b(indicator)n(.)0 2022 y(This)16 b(function)f(may)i(be)f(used)h
X(to)f(obtain)f(the)h(structure)f(identi\256er)h(of)g(the)g(topology)e
X(diagram)i Fi(topid)p Fq(.)32 b(In)16 b(the)g(case)i(of)0 2072
Xy(the)12 b(BOX)h(topology)d(type)i(the)g(diagram)h(is)f(a)i(single)d(PHIGS)i
X(structure)f(but)g(for)g(STRUCT)g(and)h(STRUCTNET)g(type)g(dia-)0
X2122 y(grams)f(it)e(is)h(a)h(structure)f(network.)p 1320 2219
X547 2 v 1320 2298 2 80 v 1334 2272 a Fb(ptkf_inqtopologytyp)o(e)p
X1864 2298 V 1320 2300 547 2 v 11 2374 a Fq(SUBROUTINE)h Fp
X(ptkf_inqtopologytype)d Fq(\(topid,)h(toptype,)g(err\))25 2463
Xy(IN)91 b(INTEGER)50 b Fa(topid)88 b Fq(topology)9 b(identi\256er)n(.)25
X2512 y(OUT)50 b(INTEGER)g Fa(toptype)e Fq(topology)9 b(type.)25
X2562 y(OUT)50 b(INTEGER)g Fa(err)122 b Fq(error)11 b(indicator)n(.)0
X2631 y(This)f(function)f(may)i(be)g(used)g(to)f(obtain)f(the)i(type)f(of)g(a
V)
Xh(topology)d(diagram.)15 b(The)d(possible)d(types)i(are)g(BOX,)f(STRUCT)h
X(and)0 2681 y(STRUCTNET)m(,)i(with)d(BOX)h(as)h(the)f(default.)0
X2956 y(13th)22 b(May)m(,)12 b(1992)626 b(214)828 b(2.01)p eop
X%%Page: 215 216
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1400 -19 467 2 v 1400 60 2 80 v 1414 35 a Fb(ptkf_posttopology)p
X1864 60 V 1400 62 467 2 v 11 136 a Fq(SUBROUTINE)12 b Fp(ptkf_posttopology)d
XFq(\(wsid,)i(topid,)f(priority\))25 225 y(IN)50 b(INTEGER)g
XFa(wsid)85 b Fq(workstation)9 b(identi\256er)n(.)25 275 y(IN)50
Xb(INTEGER)g Fa(topid)78 b Fq(topology)9 b(identi\256er)n(.)25
X324 y(IN)50 b(REAL)119 b Fa(priority)48 b Fq(display)10 b(priority)m(.)0
X393 y(This)h(function)f(posts)h(a)h(topology)d(diagram)i(structure)g(to)f
X(the)i(workstation)d Fi(wsid)p Fq(.)p 1187 491 680 2 v 1187
X570 2 80 v 1201 544 a Fb(ptkf_restoretopologyl)o(ayou)o(t)p
X1864 570 V 1187 572 680 2 v 11 646 a Fq(SUBROUTINE)j Fp(ptkf_r)o(estor)o
X(etopologylayout)e Fq(\(\256leptr)n(,)h(topid\))25 735 y(OUT)50
Xb(INTEGER)g Fa(\256leptr)e Fq(pointer)10 b(to)h(\256le.)25
X784 y(IN)91 b(INTEGER)50 b Fa(topid)58 b Fq(topology)9 b(identi\256er)n(.)0
X859 y(This)i(function)e(reads)i(a)h(topology)c(layout)i(from)g(a)h(text)f
X(\256le.)16 b(The)11 b(layout)f(is)g(used)h(to)f(reposition)f(the)i(nodes)g
X(of)f(the)h(topology)0 909 y(diagram)g Fi(topid)i Fq(but)d(will)g(only)g
X(really)h(make)i(sense)f(if)f(the)g(layout)f(was)i(stored)f(originally)e
X(from)i(the)g(same)i(topology)m(.)p 1336 1006 530 2 v 1336
X1086 2 80 v 1351 1060 a Fb(ptkf_setnodepositi)o(on)p 1864 1086
XV 1336 1088 530 2 v 11 1162 a Fq(SUBROUTINE)f Fp(ptkf_setnodeposition)e
XFq(\(topid,)g(structid,)g(nodept,)h(nodetype\))25 1250 y(IN)50
Xb(INTEGER)g Fa(topid)123 b Fq(topology)9 b(identi\256er)n(.)25
X1300 y(IN)50 b(INTEGER)g Fa(structid)85 b Fq(structure)10 b(identi\256er)n(.
V)
X25 1350 y(IN)50 b(REAL)119 b Fa(nodept\(2\))47 b Fq(node)11
Xb(position.)25 1400 y(IN)50 b(INTEGER)g Fa(nodetype)j Fq(type)11
Xb(of)g(node.)0 1469 y(This)k(function)e(sets)j(the)f(position)e(of)h(a)i
X(topology)d(node)i(or)f(group)g(of)h(nodes.)27 b(The)15 b(position)e(is)i
X(given)g(in)f(the)h(range)g(`5B0,)0 1519 y(1`5D.)23 b(The)15 b(node)e(is)h
X(speci\256ed)h(using)e(the)g(structure)h(identi\256er)e(of)i(the)g(structure
V)
Xf(that)g(it)g(represents.)24 b(If)14 b(nodetype)f(is)h(set)g(to)0
X1568 y(GROUP)d(then)g(all)g(descendent)h(nodes)f(of)g Fi(structid)i
XFq(are)f(moved)f(relative)g(to)g(it.)p 1330 1665 537 2 v 1330
X1745 2 80 v 1344 1719 a Fb(ptkf_settopologyat)o(trs)p 1864
X1745 V 1330 1747 537 2 v 11 1821 a Fq(SUBROUTINE)h Fp(ptkf_settopologyattrs)
Vd
XFq(\(topid,)g(txfont,)g(linecol,)h(textcol,)g(edgecol,)h(intcol,)e
X(htedgecol,)675 1870 y(htintcol\))25 1921 y(IN)50 b(INTEGER)g
XFa(topid)125 b Fq(topology)9 b(identi\256er)n(.)25 1971 y(IN)50
Xb(INTEGER)g Fa(txfont)115 b Fq(label)11 b(text)f(font.)25 2021
Xy(IN)50 b(INTEGER)g Fa(linecol)101 b Fq(polyline)9 b(colour)i(index.)25
X2070 y(IN)50 b(INTEGER)g Fa(textcol)99 b Fq(text)10 b(colour)h(index.)25
X2120 y(IN)50 b(INTEGER)g Fa(edgecol)77 b Fq(edge)11 b(colour)g(index.)25
X2170 y(IN)50 b(INTEGER)g Fa(intcol)119 b Fq(interior)9 b(colour)i(index.)25
X2220 y(IN)50 b(INTEGER)g Fa(htedgecol)d Fq(highlight)8 b(edge)k(colour)e
X(index.)25 2270 y(IN)50 b(INTEGER)g Fa(htintcol)89 b Fq(highlight)8
Xb(interior)i(colour)g(index.)0 2339 y(This)16 b(function)f(sets)i(the)f(text
V)
Xg(font)f(and)i(colour)e(attribute)g(values)i(of)f(a)h(topology)d(diagram.)31
Xb(The)17 b(text)e(font)h(applies)g(to)0 2388 y(the)11 b(structure)g(names)h
X(which)f(are)h(extracted)g(from)f(the)h(\310)-15 b(structureid)1011
X2378 y(\310)1008 2388 y(hashtable.)14 b(The)e(highlight)c(colour)j(indicies)
Vf
X(are)i(used)g(to)0 2438 y(highlight)c(a)k(single)f(topology)e(node)i(in)g
X(the)g(function)f Fi(ptk_settopologyhighlight)q(node)p Fq(.)0
X2956 y(13th)22 b(May)m(,)12 b(1992)626 b(215)828 b(2.01)p eop
X%%Page: 216 217
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1101 -19 766 2 v 1101 60 2 80 v 1115 35 a Fb(ptkf_settopologyhi)
Vo
X(ghli)o(ghtnod)o(e)p 1864 60 V 1101 62 766 2 v 11 136 a Fq(SUBROUTINE)12
Xb Fp(ptkf_settopologyhighli)o(ghtnode)d Fq(\(topid,)h(topnodestid\))25
X225 y(IN)50 b(INTEGER)g Fa(topid)154 b Fq(topology)9 b(identi\256er)n(.)25
X275 y(IN)50 b(INTEGER)g Fa(topnodestid)c Fq(topology)9 b(node)i(structure)g
X(identi\256er)n(.)0 350 y(This)g(function)f(highlights)f(a)j(single)f
X(topology)e(node)i(by)g(setting)f(the)i(colour)e(attribute)g(values)i(of)f
X(the)g(edge)h(and)g(interior)e(of)0 400 y(the)h(node)g(box.)k(This)c
X(function)f(only)g(works)h(for)g(BOX)g(topology)e(types.)p
X1330 497 537 2 v 1330 576 2 80 v 1344 551 a Fb(ptkf_settopologytyp)o(e)p
X1864 576 V 1330 578 537 2 v 11 652 a Fq(SUBROUTINE)j Fp(ptkf_settopologytype
V)
Xd Fq(\(topid,)h(toptype\))25 741 y(IN)50 b(INTEGER)g Fa(topid)87
Xb Fq(topology)9 b(identi\256er)n(.)25 791 y(IN)50 b(INTEGER)g
XFa(toptype)d Fq(topology)9 b(type.)0 866 y(This)16 b(function)f(sets)i(the)f
X(type)f(of)h(a)h(topology)d(diagram)j(to)e(BOX,)i(STRUCT)f(or)g(STRUCTNET)m
X(.)i(The)f(BOX)f(topology)0 915 y(type)11 b(is)g(the)g(default)f(and)h(the)g
X(STRUCT)h(and)f(STRUCTNET)h(types)f(insert)f(parts)h(of)g(the)g(actual)g
X(structures)g(into)f(the)h(nodes.)0 965 y(As)d(a)h(result)f(these)g(topology
V)
Xe(types)i(do)g(not)f(work)g(well)h(for)g(networks)f(containing)g(SET)i(VIEW)
Vf
X(INDEX)h(and)f(SET)h(GLOBAL)0 1015 y(TRANSFORMA)-5 b(TION)12
Xb(elements.)p 1234 1112 633 2 v 1234 1191 2 80 v 1248 1166
Xa Fb(ptkf_storetopologyl)o(ayou)o(t)p 1864 1191 V 1234 1193
X633 2 v 11 1267 a Fq(SUBROUTINE)g Fp(ptkf_stor)o(etopologylayout)c
XFq(\(\256leptr)n(,)k(topid\))25 1356 y(OUT)50 b(INTEGER)g Fa(\256leptr)e
XFq(pointer)10 b(to)h(\256le.)25 1406 y(IN)91 b(INTEGER)50 b
XFa(topid)58 b Fq(topology)9 b(identi\256er)n(.)0 1481 y(This)j(function)e
X(saves)i(a)h(topology)c(layout)i(in)g(a)h(text)f(\256le.)17
Xb(The)12 b(layout)f(refers)h(to)f(the)h(positions)d(of)j(all)f(the)h
X(topology)d(nodes.)0 1531 y(The)j(format)f(of)g(the)g(stored)g(layout)f(is:)
X15 b(C)c(**)g Fi(start)h(\(for)19 b(each)f(node)h(in)f(topology)i(diagram\))
X13 b(x)18 b(y)11 b(end)p 1406 1628 460 2 v 1406 1707 2 80 v
X1420 1682 a Fb(ptkf_tidytopology)p 1864 1707 V 1406 1709 460
X2 v 11 1783 a Fq(SUBROUTINE)h Fp(ptkf_tidytopology)c Fq(\(wsid,)17
Xb(topid,)f(nodetype,)h(pickdev)m(,)h(pickpet,)f(pldr)n(,)f(pdatrec,)613
X1833 y(locdev)m(,)c(locpet,)f(lldr)n(,)g(ldatrec\))25 1885
+-+-+-+-+-+-+-+-  END  OF PART 134 +-+-+-+-+-+-+-+-