-+-+-+-+-+-+-+-+ START OF PART 133 -+-+-+-+-+-+-+-+
Xf(given)g(colour)g(name)i(in)e(the)0 1431 y Fi("colourindex")14
Xb Fq(hashtable.)h(The)d(colour)e(representation)h(is)g(set)h(in)e(the)i
X(workstation)d(colour)h(table)i(if)e(necessary)m(.)p 1285 1528
X582 2 v 1285 1608 2 80 v 1299 1582 a Fb(ptkf_setr)o(gbcolourn)o(am)o(e)p
X1864 1608 V 1285 1610 582 2 v 11 1684 a Fq(SUBROUTINE)i Fp
X(ptkf_setrgbcolourname)f Fq(\(colourname,)h(r)o(gb\))25 1772
Xy(IN)50 b(CHARACTER*\(*\))e Fa(colourname)f Fq(colour)10 b(name.)25
X1822 y(IN)50 b(REAL)262 b Fa(rgb\(3\))138 b Fq(RGB)11 b(colour)f(value.)0
X1897 y(This)15 b(function)f(sets)i(a)g(colour)f(representation)f(in)h(CNS)g
X(using)g(the)g(colour)g(name)h(and)g(RGB)f(value.)28 b(The)16
Xb(colour)e(name)0 1947 y(must)f(be)g(dif)o(ferent)f(to)g(the)h(names)h
X(provided)d(by)i(the)g(CNS.)g(This)f(function)g(enables)h(be)g(additional)e
X(names)j(for)f(colours)f(to)0 1997 y(be)g(speci\256ed)g(in)e(addition)g(to)g
X(those)i(provided)e(by)g(CNS.)p 1403 2094 464 2 v 1403 2173
X2 80 v 1417 2148 a Fb(ptkf_settextcol)o(our)p 1864 2173 V 1403
X2175 464 2 v 11 2249 a Fq(SUBROUTINE)i Fp(ptkf_settextcolour)f
XFq(\(wsid,)g(colourname\))25 2338 y(IN)50 b(INTEGER)193 b Fa(wsid)163
Xb Fq(workstation)9 b(identi\256er)n(.)25 2388 y(IN)50 b(CHARACTER*\(*\))e
XFa(colourname)f Fq(colour)10 b(name.)0 2463 y(This)k(function)f(sets)i(the)f
X(text)g(colour)f(index)h(to)g(be)g(that)g(speci\256ed)h(by)f(the)g(given)g
X(colour)g(name)h(in)f(the)g Fi("colourindex")0 2513 y Fq(hashtable.)h(The)d
X(colour)f(representation)f(is)i(set)f(in)g(the)g(workstation)e(colour)i
X(table)g(if)g(necessary)m(.)0 2956 y(13th)22 b(May)m(,)12 b(1992)626
Xb(205)828 b(2.01)p eop
X%%Page: 206 207
Xbop 0 349 a Fj(Chapter)24 b(31)0 585 y Fs(Miscellaneous)k(functions)p
X1569 800 298 2 v 1569 879 2 80 v 1583 854 a Fb(ptkf_fclose)p
X1864 879 V 1569 881 298 2 v 0 956 a Fq(INTEGER)12 b(FUNCTION)f
XFp(ptkf_fclose)g Fq(\(\256leptr\))25 1055 y(IN)50 b(INTEGER)g
XFa(\256leptr)e Fq(\256le)11 b(pointer)n(.)0 1155 y(This)g(function)f(may)i
X(be)f(used)h(to)f(close)g(a)h(\256le)g(using)e(the)h(\256le)h(pointer)e
X(obtained)g(from)h Fi(ptkf_fopen)p Fq(.)p 1576 1252 291 2 v
X1576 1331 2 80 v 1590 1306 a Fb(ptkf_fopen)p 1864 1331 V 1576
X1333 291 2 v 0 1407 a Fq(INTEGER)h(FUNCTION)f Fp(ptkf_fopen)g
XFq(\(\256lename,)i(type\))25 1496 y(IN)50 b(CHARACTER*\(*\))e
XFa(\256lename)g Fq(name)12 b(of)f(\256le)h(to)f(open.)25 1546
Xy(IN)50 b(CHARACTER*\(*\))e Fa(type)115 b Fq(type)11 b(string)f(for)h
X(reading)g(or)g(writing.)0 1621 y(This)k(function)e(may)i(be)g(used)g(to)f
X(open)h(a)g(\256le)g(and)g(obtain)e(the)i(\256le)g(pointer)e(to)h(the)h(open
V)
Xg(\256le.)25 b(The)16 b(pointer)d(is)i(returned)0 1671 y(as)d(the)f(result)g
X(of)g(the)g(function.)p 1340 1768 527 2 v 1340 1847 2 80 v
X1354 1822 a Fb(ptkf_inqcurelem)o(typ)o(e)p 1864 1847 V 1340
X1849 527 2 v 11 1923 a Fq(SUBROUTINE)h Fp(ptkf_inqcur)o(elemtype)g
XFq(\(error)n(,)f(eltype\))25 2012 y(OUT)50 b(INTEGER)g Fa(error)68
Xb Fq(error)11 b(indicator)n(.)25 2062 y(OUT)50 b(INTEGER)g
XFa(eltype)e Fq(element)12 b(type.)0 2137 y(This)f(function)f(may)i(be)f(used
V)
Xh(to)f(obtain)f(the)h(current)g(element)h(type)f(and)g(works)g(for)g(both)f
X(SunPHIGS)h(and)g(DEC)h(PHIGS.)902 2956 y(206)p eop
X%%Page: 207 208
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1416 -19 450 2 v 1416 60 2 80 v 1430 35 a Fb(ptkf_inqelemtyp)o(e
V)
Xp 1864 60 V 1416 62 450 2 v 11 136 a Fq(SUBROUTINE)12 b Fp(ptkf_inqelemtype)
Ve
XFq(\(stid,)h(elemid,)h(error)n(,)g(eltype\))25 225 y(IN)91
Xb(INTEGER)50 b Fa(stid)98 b Fq(structure)11 b(identi\256er)n(.)25
X275 y(IN)91 b(INTEGER)50 b Fa(elemid)f Fq(element)12 b(number)n(.)25
X324 y(OUT)50 b(INTEGER)g Fa(error)78 b Fq(error)11 b(indicator)n(.)25
X374 y(OUT)50 b(INTEGER)g Fa(eltype)58 b Fq(element)12 b(type.)0
X443 y(This)g(function)f(may)i(be)g(used)g(to)f(obtain)f(the)h(element)h(type
V)
Xf(of)g(element)h Fi(elemid)h Fq(in)e(structure)g Fi(stid)h
XFq(and)f(works)g(for)g(both)0 493 y(SunPHIGS)f(and)g(DEC)h(PHIGS.)0
X2956 y(13th)22 b(May)m(,)12 b(1992)626 b(207)828 b(2.01)p eop
X%%Page: 208 209
Xbop 0 349 a Fj(Chapter)24 b(32)0 585 y Fs(Phinter)29 b(functions)p
X1456 800 411 2 v 1456 879 2 80 v 1470 854 a Fb(ptkf_callphinte)o(r)p
X1864 879 V 1456 881 411 2 v 11 955 a Fq(SUBROUTINE)12 b Fp(ptkf_callphinter)
Ve
XFq(\(\))25 1044 y(IN)91 b(INTEGER)50 b Fa(stid)98 b Fq(structure)11
Xb(identi\256er)n(.)25 1094 y(IN)91 b(INTEGER)50 b Fa(elemid)f
XFq(element)12 b(number)n(.)25 1144 y(IN)91 b(INTEGER)50 b Fa(termid)55
Xb Fq(terminal)11 b(window)f(identi\256er)n(.)25 1193 y(OUT)50
Xb(INTEGER)g Fa(error)78 b Fq(error)11 b(code.)0 1262 y(This)k(function)f
X(writes)h(the)h(contents)f(of)g(an)h(element)g(in)e(a)j(terminal)d(window)m
X(.)28 b(If)15 b(the)g(element)h(is)f(an)h(output)e(primitive)0
X1312 y(then)c(it)g(is)g(inserted)g(into)f(the)i(currently)e(open)h(structure
V)
Xg(at)h(the)f(current)g(editing)f(position)g(and)h(the)h(function)d(returns)i
X(TRUE,)0 1362 y(otherwise)h(F)m(ALSE.)p 1542 1459 324 2 v 1542
X1538 2 80 v 1556 1513 a Fb(ptkf_phinter)p 1864 1538 V 1542
X1540 324 2 v 11 1614 a Fq(SUBROUTINE)h Fp(ptkf_phinter)f Fq(\(input,)f
X(outputscript,)f(informscript\))25 1703 y(IN)91 b(INTEGER)50
Xb Fa(input)70 b Fq(\256le)12 b(pointer)e(for)h(input)e(script.)25
X1753 y(OUT)50 b(INTEGER)g Fa(output)e Fq(\256le)12 b(pointer)e(for)h(output)
Ve
X(script.)25 1803 y(OUT)50 b(INTEGER)g Fa(inform)f Fq(\256le)12
Xb(pointer)e(for)h(information)e(such)j(as)g(results)e(of)h(inquiry)f(calls..
V)
X0 1872 y(This)16 b(function)e(reads)j(a)g(PHIGS)f(script)f(from)h(a)h(\256le
V)
Xf(or)g(from)g(standard)f(input.)28 b(If)16 b Fi(stdin)h Fq(is)f(passed)h(as)
Vg
X(the)f(input)e(\256le)0 1921 y(pointer)d(then)g(phinter)g(becomes)i
X(interactive)e(and)h(prompts)f(are)h(given)g(for)f(function)f(parameters.)19
Xb(The)12 b(other)f(\256le)h(pointers)0 1971 y(are)g(used)g(for)e(writing)g
X(an)h(output)f(script)h(and)g(for)g(writing)e(data)j(which)e(results)h(from)
Vg
X(inquiry)f(calls)h(and)h(so)f(on.)p 1493 2068 374 2 v 1493
X2148 2 80 v 1507 2122 a Fb(ptkf_readelem)p 1864 2148 V 1493
X2150 374 2 v 11 2224 a Fq(SUBROUTINE)h Fp(ptkf_r)o(eadelem)g
XFq(\(ws,)f(echoarea,)j(eltype\))25 2312 y(IN)50 b(INTEGER)g
XFa(wsid)180 b Fq(workstation)9 b(identi\256er)n(.)25 2362 y(IN)50
Xb(REAL)119 b Fa(echo)9 b(area\(4\))48 b Fq(echo)11 b(area)i(for)e(string)f
X(device.)25 2412 y(IN)50 b(INTEGER)g Fa(eltype)155 b Fq(element)12
Xb(type)e(to)h(read)h(in.)0 2481 y(This)i(function)e(reads)i(the)g(contents)f
X(of)g(a)i(PHIGS)f(element)g(from)f(the)h(PHIGS)g(string)e(device)i(\(number)
Vg
X(1\).)22 b(Prompts)13 b(are)0 2531 y(given)f(for)h(the)f(required)h(data)g
X(depending)f(on)g(the)h(element)g(type.)20 b(An)13 b(element)g(with)f(the)g
X(input)g(data)h(is)f(inserted)h(into)e(the)0 2581 y(currently)f(open)h
X(structure)g(at)g(the)h(current)f(editing)e(position.)902 2956
Xy(208)p eop
X%%Page: 209 210
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1307 -19 560 2 v 1307 60 2 80 v 1321 35 a Fb(ptkf_readphinte)o
X(rscrip)o(t)p 1864 60 V 1307 62 560 2 v 0 136 a Fq(LOGICAL)12
Xb(FUNCTION)f Fp(ptkf_r)o(eadphinterscript)i Fq(\(scriptname,)e(output,)f
X(inform\))25 225 y(IN)91 b(CHARACTER*\(*\))48 b Fa(scriptname)g
XFq(script)10 b(\256lename.)25 275 y(OUT)50 b(INTEGER)193 b
XFa(output)123 b Fq(output)9 b(script)i(\256le)g(pointer)n(.)25
X324 y(OUT)50 b(INTEGER)193 b Fa(inform)124 b Fq(information)9
Xb(script)i(\256le)g(pointer)n(.)0 393 y(This)k(function)e(reads)i(a)h(PHIGS)
Vf
X(script)f(from)g(the)h(\256le)g(speci\256ed)g(by)g Fi(scriptname)p
XFq(.)27 b(The)16 b(\256le)f(is)f(automatically)g(opened)0 443
Xy(and)d(closed)h(and)f(the)g(function)f(returns)h(TRUE)h(if)e(a)i(PHIGS)g
X(script)e(has)i(been)g(successfully)f(read.)p 1483 538 384
X2 v 1483 618 2 80 v 1497 592 a Fb(ptkf_strphinter)p 1864 618
XV 1483 620 384 2 v 11 694 a Fq(SUBROUTINE)h Fp(ptkf_strphinter)g
XFq(\(wsid,)f(echoarea,)i(outputterminal,)c(informterminal\))25
X782 y(IN)50 b(INTEGER)g Fa(wsid)202 b Fq(workstation)10 b(identi\256er)n(.)2
V5
X832 y(IN)50 b(REAL)119 b Fa(echo)9 b(area\(4\))70 b Fq(echo)12
Xb(area)h(for)d(string)g(device.)25 882 y(IN)50 b(INTEGER)g
XFa(outputterminal)c Fq(terminal)11 b(window)f(identi\256er)g(for)h(writing)f
X(output)f(script)i(to.)25 932 y(IN)50 b(INTEGER)g Fa(informterminal)d
XFq(terminal)11 b(window)f(identi\256er)g(for)h(writing)f(information)f(data.
V)
X0 1001 y(This)15 b(function)f(redirects)i(the)f(input)f(of)h(phinter)f(to)h
X(the)g(PHIGS)h(string)e(device)i(\(number)f(1\).)27 b(Strphinter)14
Xb(is)h(always)h(in-)0 1051 y(teractive)e(and)f(output)f(is)h(directed)g(to)g
X(terminal)g(windows)g(instead)g(of)g(\256les)h(so)g(that)f(it)f(may)i(be)g
X(displayed)f(in)g(the)g(PHIGS)0 1100 y(workstation)c(window)m(.)p
X1396 1196 470 2 v 1396 1275 2 80 v 1410 1249 a Fb(ptkf_writeallstruc)o(t)p
X1864 1275 V 1396 1277 470 2 v 11 1351 a Fq(SUBROUTINE)j Fp
X(ptkf_writeallstruct)e Fq(\(\256leptr\))25 1450 y(OUT)50 b(INTEGER)g
XFa(\256leptr)e Fq(pointer)10 b(to)h(\256le.)0 1550 y(This)k(function)e
X(writes)h(the)g(contents)g(of)h(all)f(the)g(structures)g(in)g(the)h(PHIGS)f
X(CSS)h(to)f(a)h(\256le.)26 b(The)15 b(structures)f(are)i(written)0
X1600 y(in)11 b(the)g(PHIGS)g(script)g(format)g(so)g(that)g(they)g(may)h(be)f
X(read)h(in)f(again)g(using)g Fi(ptk_phinter)p Fq(.)p 1456 1695
X411 2 v 1456 1774 2 80 v 1470 1749 a Fb(ptkf_writestruct)p
X1864 1774 V 1456 1776 411 2 v 11 1850 a Fq(SUBROUTINE)h Fp(ptkf_writestruct)
Vg
XFq(\(\256leptr)n(,)f(num,)g(stids\))25 1939 y(OUT)50 b(INTEGER)g
XFa(\256leptr)72 b Fq(pointer)10 b(to)h(\256le.)25 1989 y(IN)91
Xb(INTEGER)50 b Fa(num)91 b Fq(number)11 b(of)g(structures.)25
X2039 y(IN)91 b(INTEGER)50 b Fa(stids\(*\))e Fq(structure)11
Xb(identi\256er)f(list.)0 2107 y(This)i(function)g(writes)g(the)g(contents)g
X(of)g(a)i(list)d(of)h(structures)g(to)g(a)h(\256le.)20 b(The)13
Xb(structures)f(are)i(written)d(in)h(the)g(PHIGS)h(script)0
X2157 y(format)e(so)g(that)g(they)g(may)h(be)f(read)h(in)f(again)g(using)g
XFi(ptk_phinter)p Fq(.)p 1383 2253 484 2 v 1383 2332 2 80 v
X1397 2306 a Fb(ptkf_writestructne)o(t)p 1864 2332 V 1383 2334
X484 2 v 11 2408 a Fq(SUBROUTINE)h Fp(ptkf_writestructnet)g
XFq(\(\256leptr)n(,)f(num,)h(stids\))25 2496 y(OUT)50 b(INTEGER)g
XFa(\256leptr)72 b Fq(pointer)10 b(to)h(\256le.)25 2546 y(IN)91
Xb(INTEGER)50 b Fa(num)91 b Fq(number)11 b(of)g(structures.)25
X2596 y(IN)91 b(INTEGER)50 b Fa(stids\(*\))e Fq(structure)11
Xb(network)f(identi\256er)g(list.)0 2665 y(This)17 b(function)e(writes)h(the)
Vh
X(contents)f(of)h(a)g(list)f(of)g(structure)g(networks)h(to)f(a)h(\256le.)32
Xb(The)18 b(structures)e(are)i(written)d(in)h(the)0 2715 y(PHIGS)11
Xb(script)g(format)g(so)g(that)g(they)g(may)h(be)f(read)h(in)f(again)g(using)
Vg
XFi(ptk_phinter)p Fq(.)0 2956 y(13th)22 b(May)m(,)12 b(1992)626
Xb(209)828 b(2.01)p eop
X%%Page: 210 211
Xbop 0 349 a Fj(Chapter)24 b(33)0 585 y Fs(Structur)n(e)30 b(content)f
X(functions)p 1144 800 723 2 v 1144 879 2 80 v 1158 854 a Fb
X(ptkf_inqstructcont)o(ent)o(ele)o(mpt)o(r)p 1864 879 V 1144
X881 723 2 v 11 956 a Fq(SUBROUTINE)12 b Fp(ptkf_inqstructcontentelemptr)g
XFq(\(contentstid,)e(elemptr)n(,)i(err\))25 1044 y(IN)91 b(INTEGER)50
Xb Fa(contentstid)d Fq(content)10 b(structure)h(identi\256er)n(.)25
X1094 y(OUT)50 b(INTEGER)g Fa(elemptr)102 b Fq(element)12 b(pointer)n(.)25
X1144 y(OUT)50 b(INTEGER)g Fa(err)177 b Fq(error)11 b(indicator)n(.)0
X1213 y(This)f(function)f(may)h(be)h(used)f(to)g(obtain)f(the)h(element)g
X(number)g(pointed)f(to)h(by)f(the)h(element)h(arrow)f(in)f(the)h(structure)g
X(content)0 1263 y(diagram.)p 1194 1360 673 2 v 1194 1439 2
X80 v 1208 1414 a Fb(ptkf_inqstructcont)o(ent)o(rang)o(e)p 1864
X1439 V 1194 1441 673 2 v 11 1515 a Fq(SUBROUTINE)i Fp
X(ptkf_inqstructcontentrange)g Fq(\(contentstid,)e(\256rstel,)h(lastel,)h
X(err\))25 1604 y(IN)91 b(INTEGER)50 b Fa(contentstid)d Fq(content)10
Xb(structure)h(identi\256er)n(.)25 1654 y(OUT)50 b(INTEGER)g
XFa(\256rstel)135 b Fq(element)12 b(pointer)n(.)25 1703 y(OUT)50
Xb(INTEGER)g Fa(lastel)137 b Fq(element)12 b(pointer)n(.)25
X1753 y(OUT)50 b(INTEGER)g Fa(err)177 b Fq(error)11 b(indicator)n(.)0
X1822 y(This)g(function)f(may)i(be)f(used)h(to)f(obtain)f(the)h(element)h
X(range)f(which)g(appears)i(in)d(the)h(structure)g(content)g(diagram.)p
X1154 1919 713 2 v 1154 1998 2 80 v 1168 1973 a Fb(ptkf_setstructcont)o(ent)o
X(ele)o(mpt)o(r)p 1864 1998 V 1154 2000 713 2 v 11 2074 a Fq(SUBROUTINE)h
XFp(ptkf_setstructcontentelemptr)h Fq(\(contentstid,)c(elemptr\))25
X2163 y(IN)50 b(INTEGER)g Fa(contentstid)c Fq(content)11 b(structure)g
X(identi\256er)n(.)25 2213 y(IN)50 b(INTEGER)g Fa(elemptr)101
Xb Fq(element)12 b(pointer)n(.)0 2288 y(This)f(function)f(draws)i(an)f(arrow)
Vg
X(pointing)e(the)i(element)h Fi(elemptr)h Fq(in)d(the)i(structure)e(content)h
X(diagram.)902 2956 y(210)p eop
X%%Page: 211 212
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1403 -19 464 2 v 1403 60 2 80 v 1417 35 a Fb(ptkf_structconten)o
X(t)p 1864 60 V 1403 62 464 2 v 11 136 a Fq(SUBROUTINE)12 b
XFp(ptkf_structcontent)g Fq(\(wsid,)f(stid,)g(\256rstel,)g(lastel,)g(elemptr)
Vn
X(,)h(font,)f(error\))25 225 y(IN)91 b(INTEGER)50 b Fa(wsid)97
Xb Fq(workstation)9 b(identi\256er)n(.)25 275 y(IN)91 b(INTEGER)50
Xb Fa(stid)112 b Fq(structure)10 b(identi\256er)n(.)25 324 y(IN)91
Xb(INTEGER)50 b Fa(\256rstel)82 b Fq(\256rst)11 b(element)h(in)e(range.)25
X374 y(IN)91 b(INTEGER)50 b Fa(lastel)84 b Fq(last)11 b(element)h(in)e(range.
V)
X25 424 y(IN)91 b(INTEGER)50 b Fa(elemptr)f Fq(element)12 b(pointer)n(.)25
X474 y(IN)91 b(INTEGER)50 b Fa(font)108 b Fq(text)11 b(font.)25
X524 y(OUT)50 b(INTEGER)g Fa(error)92 b Fq(error)11 b(code.)0
X593 y(This)f(function)f(inserts)g(a)i(diagram)f(of)g(the)g(contents)g(of)g
X(the)g(structure)f Fi(stid)i Fq(in)f(the)g(currently)f(open)h(structure)f(at
V)
Xi(the)f(current)0 642 y(editing)e(position.)13 b(The)d(diagram)g(consists)f
X(of)h(a)g(table)f(of)h(elements)g(represented)g(by)f(rectangles)h(and)g
X(labelled)f(with)g(element)0 692 y(type)h(and)h(number)n(.)k(The)c(table)f
X(has)h(a)g(heading)f(with)g(the)g(format:)k Fi("structure)20
Xb(N)e("name")h(\(M)f(elements\)")13 b Fq(where)e(N)f(is)0 742
Xy(the)i(structure)f(identi\256er)n(,)h(name)h(is)f(the)g(structure)g(name)h
X(extracted)f(from)g(the)g("structureid")e(hashtable)i(and)g(M)h(is)e(the)h
X(total)0 792 y(number)f(of)g(elements)h(in)f(the)g(structure.)0
X2956 y(13th)22 b(May)m(,)12 b(1992)627 b(21)n(1)829 b(2.01)p
Xeop
X%%Page: 212 213
Xbop 0 349 a Fj(Chapter)24 b(34)0 585 y Fs(T)-10 b(opology)27
Xb(Functions)0 855 y Fr(34.1)59 b(Data)17 b(types)0 1027 y Fi(C)h(topology)i
X(types)126 1126 y(INTEGER*4)56 b(PTKEBOXTOPOLOGY)126 1176 y(PARAMETER)20
+-+-+-+-+-+-+-+-  END  OF PART 133 +-+-+-+-+-+-+-+-