-+-+-+-+-+-+-+-+ START OF PART 132 -+-+-+-+-+-+-+-+ X(view)0 443 y(index.)p 1403 540 464 2 v 1403 619 2 80 v 1417 X594 a Fb(ptkf_inqtslinteri)o(or)p 1864 619 V 1403 621 464 2 Xv 11 695 a Fq(SUBROUTINE)c Fp(ptkf_inqtslinterior)e Fq(\(intind,)f(intstyle, V) Xh(intstyleind,)g(intcolour\))25 784 y(OUT)50 b(INTEGER)g Fa(intind)121 Xb Fq(interior)10 b(index.)25 834 y(OUT)50 b(INTEGER)g Fa(intstyle)95 Xb Fq(interior)10 b(style.)25 884 y(OUT)50 b(REAL)119 b Fa(intstyleind)47 Xb Fq(interior)10 b(style)h(index.)25 934 y(OUT)50 b(INTEGER)g XFa(intcolour)71 b Fq(interior)10 b(colour)n(.)0 1003 y(This)h(function)f(may V) Xi(be)f(used)h(to)f(obtain)f(the)h(current)g(TSL)h(interior)e(attributes.)p X1489 1100 377 2 v 1489 1179 2 80 v 1503 1154 a Fb(ptkf_inqtslline)p X1864 1179 V 1489 1181 377 2 v 11 1255 a Fq(SUBROUTINE)i Fp(ptkf_inqtslline)d XFq(\(lineind,)h(linetype,)h(linewidth,)f(linecolour\))25 1344 Xy(OUT)50 b(INTEGER)g Fa(lineind)97 b Fq(line)11 b(index.)25 X1394 y(OUT)50 b(INTEGER)g Fa(linetype)77 b Fq(line)11 b(type.)25 X1443 y(OUT)50 b(REAL)119 b Fa(linewidth)62 b Fq(line)11 b(width.)25 X1493 y(OUT)50 b(INTEGER)g Fa(linecolour)d Fq(line)11 b(colour)n(.)0 X1562 y(This)g(function)f(may)i(be)f(used)h(to)f(obtain)f(the)h(current)g(TSL V) Xh(line)f(attributes.)p 1410 1659 457 2 v 1410 1738 2 80 v 1424 X1713 a Fb(ptkf_inqtslmarke)o(r)p 1864 1738 V 1410 1740 457 X2 v 11 1814 a Fq(SUBROUTINE)h Fp(ptkf_inqtslmarker)f Fq(\(markerind,)g X(markertype,)h(markersize,)h(markercolour\))25 1903 y(OUT)50 Xb(INTEGER)g Fa(markerind)97 b Fq(marker)12 b(index.)25 1953 Xy(OUT)50 b(INTEGER)g Fa(markertype)77 b Fq(marker)12 b(type.)25 X2003 y(OUT)50 b(REAL)119 b Fa(markersize)81 b Fq(marker)12 Xb(size.)25 2053 y(OUT)50 b(INTEGER)g Fa(markercolour)d Fq(marker)12 Xb(colour)n(.)0 2122 y(This)f(function)f(may)i(be)f(used)h(to)f(obtain)f(the) Vh X(current)g(TSL)h(marker)g(attributes.)p 1383 2219 484 2 v 1383 X2298 2 80 v 1397 2272 a Fb(ptkf_inqtslnamese)o(t)p 1864 2298 XV 1383 2300 484 2 v 11 2374 a Fq(SUBROUTINE)g Fp(ptkf_inqtslnameset)e XFq(\(num,)i(nameset,)g(totalnum\))25 2463 y(IN)91 b(INTEGER)50 Xb Fa(size)159 b Fq(length)10 b(of)h(nameset)h(integer)f(list.)25 X2512 y(OUT)50 b(INTEGER)g Fa(nameset\(*\))e Fq(current)11 b(nameset.)25 X2562 y(OUT)50 b(INTEGER)g Fa(totalsize)91 b Fq(actual)11 b(length)f(of)h X(nameset)i(integer)e(list.)0 2631 y(This)g(function)f(may)i(be)f(used)h(to)f X(obtain)f(the)h(current)g(TSL)h(nameset.)0 2956 y(13th)22 b(May)m(,)12 Xb(1992)626 b(200)828 b(2.01)p eop X%%Page: 201 202 Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235 Xb(PTK/100)p 1413 -19 454 2 v 1413 60 2 80 v 1427 35 a Fb(ptkf_inqtslpatte)o X(rn)p 1864 60 V 1413 62 454 2 v 11 136 a Fq(SUBROUTINE)12 b XFp(ptkf_inqtslpattern)e Fq(\(size,)i(refpt,)g(refvec\))25 225 Xy(OUT)50 b(REAL)g Fa(size\(2\))121 b Fq(pattern)11 b(size.)25 X275 y(OUT)50 b(REAL)g Fa(refpt\(3\))113 b Fq(pattern)11 b(reference)i(point. V) X25 324 y(OUT)50 b(REAL)g Fa(refvec\(3,)8 b(2\))49 b Fq(pattern)11 Xb(reference)i(vectors.)0 393 y(This)e(function)f(may)i(be)f(used)h(to)f X(obtain)f(the)h(current)g(TSL)h(pattern)f(attributes.)p 1489 X491 377 2 v 1489 570 2 80 v 1503 544 a Fb(ptkf_inqtsltext)p X1864 570 V 1489 572 377 2 v 11 646 a Fq(SUBROUTINE)h Fp(ptkf_inqtsltext)e XFq(\(textind,)27 b(textfont,)h(textprec,)h(textpath,)g(textalign,)f(text-)55 V8 X695 y(colour\))25 746 y(OUT)50 b(INTEGER)g Fa(textind)97 b XFq(text)11 b(index.)25 796 y(OUT)50 b(INTEGER)g Fa(textfont)85 Xb Fq(text)11 b(font.)25 846 y(OUT)50 b(INTEGER)g Fa(textprec)75 Xb Fq(text)11 b(precision.)25 895 y(OUT)50 b(INTEGER)g Fa(textpath)75 Xb Fq(text)11 b(path.)25 945 y(OUT)50 b(INTEGER)g Fa(textalign)69 Xb Fq(text)11 b(alignment.)25 995 y(OUT)50 b(INTEGER)g Fa(textcolour)d XFq(text)11 b(colour)n(.)0 1064 y(This)g(function)f(may)i(be)f(used)h(to)f X(obtain)f(the)h(current)g(TSL)h(text)f(attributes.)p 1532 1161 X334 2 v 1532 1240 2 80 v 1547 1215 a Fb(ptkf_stacktsl)p 1864 X1240 V 1532 1242 334 2 v 11 1316 a Fq(SUBROUTINE)h Fp(ptkf_stacktsl)e XFq(\(\))0 1465 y(This)h(function)f(puts)h(the)g(current)g(TSL)h(value)f(on)g X(the)g(TSL)i(stack.)p 1333 1562 533 2 v 1333 1642 2 80 v 1347 X1616 a Fb(ptkf_tsltraverserang)o(e)p 1864 1642 V 1333 1644 X533 2 v 11 1718 a Fq(SUBROUTINE)f Fp(ptkf_tsltraverserange)g XFq(\(startstid,)e(startelemid,)h(stopstid,)f(stopelemid,)h(descend\))25 X1806 y(IN)50 b(INTEGER)k Fa(startstid)97 b Fq(start)11 b(structure)f X(identi\256er)n(.)25 1856 y(IN)50 b(INTEGER)k Fa(startelemid)48 Xb Fq(start)11 b(element)h(number)n(.)25 1906 y(IN)50 b(INTEGER)k XFa(stopstid)99 b Fq(stop)10 b(structure)h(identi\256er)n(.)25 X1956 y(IN)50 b(INTEGER)k Fa(stopelemid)c Fq(stop)10 b(element)i(number)n(.)2 V5 X2006 y(IN)50 b(LOGICAL)f Fa(descend)87 b Fq(\257ag)12 b(to)e(indicate)h X(traversal.)0 2075 y(This)i(function)e(makes)j(TSL)f(traverse)g(between)g X(two)f(points)g(in)g(a)h(structure)f(network.)19 b(If)12 b XFi(descend)i Fq(is)f(set)f(to)h(TRUE)g(then)0 2124 y(any)g(EXECUTE)i X(STRUCTURE)f(elements)g(which)e(occur)i(between)g(the)f(two)g(points)f(are)i X(followed,)f(otherwise)g(they)f(are)0 2174 y(ignored.)p 1473 X2271 394 2 v 1473 2350 2 80 v 1487 2325 a Fb(ptkf_unstacktsl)p X1864 2350 V 1473 2352 394 2 v 11 2426 a Fq(SUBROUTINE)g Fp(ptkf_unstacktsl)f XFq(\(\))0 2576 y(This)g(function)f(gets)h(the)g(topmost)g(TSL)h(value)f(from V) Xg(the)g(TSL)i(stack.)0 2956 y(13th)22 b(May)m(,)12 b(1992)626 Xb(201)828 b(2.01)p eop X%%Page: 202 203 Xbop 0 349 a Fj(Chapter)24 b(30)0 585 y Fs(Colour)j(functions)p X1516 800 351 2 v 1516 879 2 80 v 1530 854 a Fb(ptkf_cnstohsl)p X1864 879 V 1516 881 351 2 v 0 956 a Fq(LOGICAL)12 b(FUNCTION)f XFp(ptkf_cnstohsl)g Fq(\(colourname,)g(hsl\))25 1044 y(IN)50 Xb(CHARACTER*\(*\))e Fa(colourname)f Fq(colour)10 b(description.)25 X1094 y(IN)50 b(Pcobundl)10 b(*)181 b Fa(hsl)188 b Fq(HSL)12 Xb(triplet.)0 1169 y(This)k(function)f(converts)h(a)h(CNS)f(colour)g(name)h X(to)f(the)g(equivalent)g(HSL)g(value,)i(returning)d(TRUE)i(if)f(the)g X(conversion)0 1219 y(was)c(successful,)g(and)g(F)m(ALSE)g(if)f(not.)p X1503 1316 364 2 v 1503 1395 2 80 v 1517 1370 a Fb(ptkf_cnstohsv)p X1864 1395 V 1503 1397 364 2 v 0 1471 a Fq(LOGICAL)h(FUNCTION)f XFp(ptkf_cnstohsv)g Fq(\(colourname,)h(hsv\))25 1560 y(IN)50 Xb(CHARACTER*\(*\))e Fa(colourname)f Fq(colour)10 b(description.)25 X1610 y(IN)50 b(REAL)262 b Fa(hsv\(3\))134 b Fq(HSV)11 b(triplet.)0 X1685 y(This)g(function)f(Converts)g(colour)h(name)h(to)f(HSV)-5 Xb(.)11 b(Returns)g(TRUE)h(if)e(ok,)i(F)m(ALSE)g(if)f(not)f(ok.)p X1507 1782 360 2 v 1507 1861 2 80 v 1521 1836 a Fb(ptkf_cnstor)o(gb)p X1864 1861 V 1507 1863 360 2 v 0 1937 a Fq(LOGICAL)i(FUNCTION)f XFp(ptkf_cnstorgb)g Fq(\(colourname,)h(r)o(gb\))25 2026 y(IN)50 Xb(CHARACTER*\(*\))e Fa(colourname)f Fq(colour)10 b(description.)25 X2076 y(IN)50 b(REAL)262 b Fa(rgb\(3\))138 b Fq(RGB)11 b(triplet.)0 X2151 y(This)16 b(function)e(converts)i(a)g(CNS)g(colour)f(name)i(to)f(the)f X(equivalent)g(RGB)h(value,)h(returning)d(TRUE)j(if)e(the)h(conversion)0 X2201 y(was)c(successful,)g(and)g(F)m(ALSE)g(if)f(not.)902 2956 Xy(202)p eop X%%Page: 203 204 Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235 Xb(PTK/100)p 1517 -19 350 2 v 1517 60 2 80 v 1531 35 a Fb(ptkf_hsltor)o(gb)p X1864 60 V 1517 62 350 2 v 11 136 a Fq(SUBROUTINE)12 b Fp(ptkf_hsltorgb)e XFq(\(hsl,)h(r)o(gb\))25 225 y(IN)50 b(REAL)g Fa(hsl\(3\))k XFq(HSL)11 b(triplet.)25 275 y(IN)50 b(REAL)g Fa(rgb\(3\))e XFq(RGB)10 b(triplet.)0 350 y(This)h(function)f(converts)h(from)g(the)h(HSL)f X(double-ended)g(hexcone)h(model)f(to)g(the)g(RGB)g(model.)k(Given)c(HSL,)h X(the)g(equiva-)0 400 y(lent)f(RGB)g(parameters)i(are)g(computed.)k(All)11 Xb(parameters)i(are)f(assumed)h(to)f(be)g(in)f(the)h(range)g(0.0)f(to)h(1.0.) X17 b(The)12 b(algorithm)e(is)0 449 y(adapted)i(from)f(`5B13)o(`5D.)p X1504 547 363 2 v 1504 626 2 80 v 1518 600 a Fb(ptkf_hsvtor)o(gb)p X1864 626 V 1504 628 363 2 v 11 702 a Fq(SUBROUTINE)h Fp(ptkf_hsvtorgb)f XFq(\(hsv)m(,)g(r)o(gb\))25 791 y(IN)50 b(REAL)g Fa(hvs\(3\))e XFq(HSV)11 b(triplet.)25 840 y(IN)50 b(REAL)g Fa(rgb\(3\))i XFq(RGB)10 b(triplet.)0 915 y(This)h(function)f(converts)h(a)h(HSV)f(triplet) Vf X(to)h(a)g(RGB)g(triplet.)j(The)e(algorithm)e(is)h(adapted)g(from)h(`5B14)o(` V5D.)p X1366 1013 500 2 v 1366 1092 2 80 v 1381 1066 a Fb(ptkf_inqcnsdefaul)o(ts)p X1864 1092 V 1366 1094 500 2 v 11 1168 a Fq(SUBROUTINE)g Fp X(ptkf_inqcnsdefaults)f Fq(\(lightness,)f(saturation\))25 1257 Xy(OUT)50 b(INTEGER)g Fa(lightness)63 b Fq(default)11 b(lightness)f(for)h X(colours.)25 1306 y(OUT)50 b(INTEGER)g Fa(saturation)d Fq(default)11 Xb(saturation)f(for)h(colours.)0 1382 y(This)g(function)f(inquires)g(the)h X(default)g(values)g(of)g(lightness)f(and)i(saturation)e(used)h(in)g(the)g X(Colour)f(Naming)h(Scheme.)p 1517 1479 350 2 v 1517 1558 2 X80 v 1531 1532 a Fb(ptkf_r)o(gbtohsl)p 1864 1558 V 1517 1560 X350 2 v 11 1634 a Fq(SUBROUTINE)h Fp(ptkf_rgbtohsl)e Fq(\(r)o(gb,)i(hsl\))25 X1723 y(IN)50 b(REAL)g Fa(rgb\(3\))e Fq(RGB)10 b(triplet.)25 X1772 y(IN)50 b(REAL)g Fa(hsl\(3\))k Fq(HSL)11 b(triplet.)0 X1848 y(This)g(function)f(converts)h(an)h(RGB)e(triplet)g(to)h(a)h(HSL)f X(triplet.)j(The)e(algorithm)e(is)h(adapted)h(from)f(`5B14)o(`5D.)p X1504 1945 363 2 v 1504 2024 2 80 v 1518 1998 a Fb(ptkf_r)o(gbtohsv)p X1864 2024 V 1504 2026 363 2 v 11 2100 a Fq(SUBROUTINE)h Fp(ptkf_rgbtohsv)f XFq(\(r)o(gb,)g(hsv\))25 2189 y(IN)50 b(REAL)g Fa(rgb\(3\))i XFq(RGB)10 b(triplet.)25 2238 y(IN)50 b(REAL)g Fa(hsv\(3\))e XFq(HSV)11 b(triplet.)0 2314 y(This)g(function)f(converts)h(an)h(RGB)e(value) Vi X(to)e(a)i(HSV)g(value.)j(The)d(algorithm)e(is)h(adapted)h(from)f(`5B14)o(`5D V.)0 X2956 y(13th)22 b(May)m(,)12 b(1992)626 b(203)828 b(2.01)p eop X%%Page: 204 205 Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235 Xb(PTK/100)p 1210 -19 656 2 v 1210 60 2 80 v 1225 35 a Fb(ptkf_setbackgroun)o X(dcol)o(our)p 1864 60 V 1210 62 656 2 v 11 136 a Fq(SUBROUTINE)12 Xb Fp(ptkf_setbackgr)o(oundcolour)g Fq(\(wsid,)f(colourname\))25 X225 y(IN)50 b(INTEGER)193 b Fa(wsid)163 b Fq(workstation)9 Xb(identi\256er)n(.)25 275 y(IN)50 b(CHARACTER*\(*\))e Fa(colourname)f XFq(colour)10 b(name.)0 350 y(This)k(function)f(sets)h(the)g(colour)g X(representation)f(of)h(the)g(zeroth)g(entry)g(in)g(the)g(colour)f(table)h(of V) Xg(workstation)e Fi(wsid)p Fq(,)k(to)e(be)0 400 y(that)d(speci\256ed)h(by)f XFi(colourname)i Fq(in)d(the)i(CNS.)p 1134 497 733 2 v 1134 X576 2 80 v 1148 551 a Fb(ptkf_setbackgroundc)o(olouri)o(nd)p X1864 576 V 1134 578 733 2 v 11 652 a Fq(SUBROUTINE)g Fp(ptkf_setbackgr)o X(oundcolourind)g Fq(\(wsid,)f(index\))25 741 y(IN)50 b(INTEGER)g XFa(wsid)63 b Fq(workstation)9 b(identi\256er)n(.)25 791 y(IN)50 Xb(INTEGER)g Fa(index)e Fq(colour)10 b(index.)0 866 y(This)k(function)f(sets) Vh X(the)g(colour)g(representation)f(of)h(the)g(zeroth)g(entry)g(in)g(the)g X(colour)f(table)h(of)g(workstation)e Fi(wsid)p Fq(,)k(to)e(be)0 X915 y(same)f(as)f(the)f(entry)g Fi(index)h Fq(in)f(the)g(colour)f(table.)p X1376 1013 490 2 v 1376 1092 2 80 v 1390 1066 a Fb(ptkf_setcnsdefaults)p X1864 1092 V 1376 1094 490 2 v 11 1168 a Fq(SUBROUTINE)i Fp X(ptkf_setcnsdefaults)f Fq(\(lightness,)g(saturation\))25 1257 Xy(IN)50 b(INTEGER)g Fa(lightness)63 b Fq(default)10 b(lightness)g(for)h X(colours.)25 1306 y(IN)50 b(INTEGER)g Fa(saturation)d Fq(default)10 Xb(saturation)g(for)h(colours.)0 1382 y(This)k(function)e(sets)i(default)g X(values)g(for)f(lightness)g(and)h(saturation)e(for)i(the)g(Colour)e(Naming)i X(Scheme.)27 b(If)15 b(lightness)f(or)0 1431 y(saturation)c(is)h(missing)g X(when)g(a)h(colour)e(name)j(is)e(subsequently)f(speci\256ed,)i(the)g(default V) Xe(is)h(used.)p 1416 1528 450 2 v 1416 1608 2 80 v 1430 1582 Xa Fb(ptkf_setcolourrep)p 1864 1608 V 1416 1610 450 2 v 11 1684 Xa Fq(SUBROUTINE)h Fp(ptkf_setcolourr)o(ep)g Fq(\(wsid,)f(colourname\))25 X1772 y(IN)50 b(INTEGER)193 b Fa(wsid)163 b Fq(workstation)9 Xb(identi\256er)n(.)25 1822 y(IN)50 b(CHARACTER*\(*\))e Fa(colourname)f XFq(colour)10 b(name.)0 1897 y(This)16 b(function)f(sets)h(a)h(colour)f X(representation)f(in)h(the)g(colour)f(table)h(of)g(workstation)f XFi(wsid)p Fq(,)j(using)e Fi(colourname)p Fq(.)32 b(The)0 1947 Xy(hashstrings)10 b(table)h(PHIGS)h(T)m(oolkit"colourin)o(dex")d(is)i(used)g X(to)g(derive)g(the)g(index)g(to)g(the)g(colour)f(table.)p 1380 X2044 487 2 v 1380 2123 2 80 v 1394 2098 a Fb(ptkf_setedgecol)o(our)p X1864 2123 V 1380 2125 487 2 v 11 2199 a Fq(SUBROUTINE)i Fp X(ptkf_setedgecolour)g Fq(\(wsid,)f(colourname\))25 2288 y(IN)50 Xb(INTEGER)193 b Fa(wsid)163 b Fq(workstation)9 b(identi\256er)n(.)25 X2338 y(IN)50 b(CHARACTER*\(*\))e Fa(colourname)f Fq(colour)10 Xb(name.)0 2413 y(This)j(function)f(sets)i(the)f(edge)h(colour)f(index)g(to)g X(be)g(that)g(speci\256ed)h(by)g(the)f(given)g(colour)f(name)j(in)e(the)g XFi("colourindex")0 2463 y Fq(hashtable.)i(The)d(colour)f(representation)f(is V) Xi(set)f(in)g(the)g(workstation)e(colour)i(table)g(if)g(necessary)m(.)0 X2956 y(13th)22 b(May)m(,)12 b(1992)626 b(204)828 b(2.01)p eop X%%Page: 205 206 Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235 Xb(PTK/100)p 1429 -19 437 2 v 1429 60 2 80 v 1444 35 a Fb(ptkf_setintcol)o X(our)p 1864 60 V 1429 62 437 2 v 11 136 a Fq(SUBROUTINE)12 Xb Fp(ptkf_setintcolour)f Fq(\(wsid,)g(colourname\))25 225 y(IN)50 Xb(INTEGER)193 b Fa(wsid)163 b Fq(workstation)9 b(identi\256er)n(.)25 X275 y(IN)50 b(CHARACTER*\(*\))e Fa(colourname)f Fq(colour)10 Xb(name.)0 350 y(This)h(function)e(sets)j(the)f(interior)e(colour)h(index)h X(to)f(be)h(that)g(speci\256ed)g(by)g(the)g(given)f(colour)h(name)h(in)e(the) Vh XFi("colourindex")0 400 y Fq(hashtable.)k(The)d(colour)f(representation)f(is) Vi X(set)f(in)g(the)g(workstation)e(colour)i(table)g(if)g(necessary)m(.)p X1403 497 464 2 v 1403 576 2 80 v 1417 551 a Fb(ptkf_setlinecol)o(our)p X1864 576 V 1403 578 464 2 v 11 652 a Fq(SUBROUTINE)h Fp(ptkf_setlinecolour)f XFq(\(wsid,)g(colourname\))25 741 y(IN)50 b(INTEGER)193 b Fa(wsid)163 Xb Fq(workstation)9 b(identi\256er)n(.)25 791 y(IN)50 b(CHARACTER*\(*\))e XFa(colourname)f Fq(colour)10 b(name.)0 866 y(This)g(function)f(sets)i(the)f X(polyline)e(colour)h(index)h(to)g(be)g(that)g(speci\256ed)h(by)f(the)g(given V) Xf(colour)h(name)h(in)f(the)g Fi("colourindex")0 915 y Fq(hashtable.)15 Xb(The)d(colour)f(representation)f(is)i(set)f(in)g(the)g(workstation)e(colour V) Xi(table)g(if)g(necessary)m(.)p 1323 1013 543 2 v 1323 1092 X2 80 v 1337 1066 a Fb(ptkf_setmarkercol)o(our)p 1864 1092 V X1323 1094 543 2 v 11 1168 a Fq(SUBROUTINE)h Fp(ptkf_setmarker)o(colour)g XFq(\(wsid,)f(colourname\))25 1257 y(IN)50 b(INTEGER)193 b Fa(wsid)163 Xb Fq(workstation)9 b(identi\256er)n(.)25 1306 y(IN)50 b(CHARACTER*\(*\))e XFa(colourname)f Fq(colour)10 b(name.)0 1382 y(This)24 b(function)e(sets)i X(the)g(polymarker)f(colour)g(index)g(to)g(be)i(that)e(speci\256ed)h(by)g(the V) +-+-+-+-+-+-+-+- END OF PART 132 +-+-+-+-+-+-+-+-