|
|
1.1 ! root 1: ! 2: ! 3: ! 4: GPACK(2) Icon Program Library GPACK(2) ! 5: ! 6: ! 7: ! 8: NNNNAAAAMMMMEEEE ! 9: gpack - graphics package for the Chromatics CG 3999 ! 10: ! 11: SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS ! 12: bbbbcccckkkkggggrrrrnnnndddd((((ccccoooollllrrrr)))) set background color ! 13: ____cccchhhhaaaarrrr(((()))) switch to character mode ! 14: cccclllliiiipppp((((mmmmooooddddeeee)))) turn clip mode OOOONNNN/OOOOFFFFFFFF ! 15: cccclllliiiippppppppeeeedddd((((oooobbbbjjjjeeeecccctttt)))) clip an object to window size (internal) ! 16: ccccoooolllloooorrrr((((ccccoooollllrrrr)))) set foreground color ! 17: ccccuuuurrrrccccoooollll((((ccccoooollllrrrr)))) set cursor color ! 18: ddddrrrraaaawwww((((oooobbbbjjjjeeeecccctttt)))) display object ! 19: eeeennnnaaaabbbblllleeee((((ccccoooollllrrrr)))) enable particular color guns ! 20: eeeerrrraaaasssseeee(((()))) clear the screen ! 21: ____ffffiiiillllllll(((()))) turn on fill mode ! 22: ggggiiiinnnniiiitttt(((()))) initialize graphics package ! 23: mmmmooooddddeeee((((nnnneeeewwwwmmmmooooddddeeee)))) set plot submode (internal) ! 24: mmmmoooovvvvccccuuuurrrr((((xxxx,,,,yyyy)))) position cursor (internal) ! 25: ____nnnnooooffffiiiillllllll(((()))) turn off fill mode ! 26: ____nnnnoooorrrroooollllllll(((()))) turn off roll mode ! 27: ____nnnnuuuummmmbbbbeeeerrrr((((nnnn)))) output number (nnnn) (internal) ! 28: ____ppppllllooootttt(((()))) switch to plot mode ! 29: ____ppppooooiiiinnnntttt((((xxxx,,,,yyyy)))) output point (xxxx,yyyy) (internal) ! 30: ____rrrreeeessssttttoooorrrreeee(((()))) reset terminal windows ! 31: ____rrrroooollllllll(((()))) turn on roll mode ! 32: sssseeeettttssssccccaaaalllleeee((((xxxxmmmmiiiinnnn,,,,yyyymmmmiiiinnnn,,,,xxxxmmmmaaaaxxxx,,,,yyyymmmmaaaaxxxx,,,,ccccoooollllmmmmiiiinnnn,,,,rrrroooowwwwmmmmiiiinnnn,,,,ccccoooollllmmmmaaaaxxxx,,,,rrrroooowwwwmmmmaaaaxxxx)))) ! 33: scaling ! 34: ssssccccaaaalllleeee((((pppptttt)))) scale a point ! 35: ____ssssccccaaaalllleeee((((mmmmooooddddeeee)))) turn OOOONNNN/OOOOFFFFFFFF scaling ! 36: tttteeeexxxxtttt((((xxxx,,,,yyyy,,,,ssss)))) output string ssss at point (xxxx,yyyy) ! 37: wwwwiiiinnnnddddoooowwww((((wwww)))) switch to window wwww (1 to 4) ! 38: wwwwssssiiiizzzzeeee((((xxxxmmmmiiiinnnn,,,,yyyymmmmiiiinnnn,,,,xxxxmmmmaaaaxxxx,,,,yyyymmmmaaaaxxxx)))) ! 39: set window size ! 40: xxxxffffiiiitttt((((xxxx)))) scale x-coordinate (internal) ! 41: ____xxxxyyyyddddeeeellll((((xxxxddddeeeellllttttaaaa,,,,yyyyddddeeeellllttttaaaa))))output incremental motion (internal) ! 42: yyyyffffiiiitttt((((yyyy)))) scale y-coordinate (internal) ! 43: ! 44: _G_p_a_c_k is a package designed to interface to the Chromatics ! 45: CG 3999 Color Graphics Terminal. The user must be familiar ! 46: with the Chromatics terminal and its capabilities. _G_p_a_c_k ! 47: maintains information on the state of each hardware window ! 48: and avoids the transmission of redundant commands. The fol- ! 49: lowing objects, defined as records, are known to _g_p_a_c_k: ! 50: ! 51: ppppooooiiiinnnntttt((((xxxx,,,,yyyy)))) ! 52: ddddooootttt((((xxxx,,,,yyyy)))) ! 53: lllliiiinnnneeee((((aaaa,,,,bbbb)))) ! 54: bbbbooooxxxx((((aaaa,,,,bbbb)))) ! 55: cccciiiirrrrcccclllleeee((((cccceeeennnntttteeeerrrr,,,,rrrraaaaddddiiiiuuuussss)))) ! 56: aaaarrrrcccc((((cccceeeennnntttteeeerrrr,,,,rrrraaaaddddiiiiuuuussss,,,,ssssttttaaaarrrrtttt,,,,ssssttttoooopppp)))) ! 57: ppppooooiiiinnnnttttssss((((ppppttttssss)))) a collection of points. ! 58: lllliiiinnnneeeessss((((ppppttttssss)))) a collection of points, joined by vectors ! 59: ppppoooollllyyyyggggoooonnnn((((ppppttttssss)))) a collection of points, joined and closed by vectors ! 60: ! 61: ! 62: ! 63: Version 5.9 The University of Arizona - 8/12/84 1 ! 64: ! 65: ! 66: ! 67: ! 68: ! 69: ! 70: GPACK(2) Icon Program Library GPACK(2) ! 71: ! 72: ! 73: ! 74: iiiinnnnccccddddoooottttssss((((ssssttttaaaarrrrtttt,,,,mmmmoooottttiiiioooonnnnssss))))start point and list of motions ! 75: mmmmoooottttiiiioooonnnn((((xxxxddddeeeellll,,,,yyyyddddeeeellll))))an incremental motion ! 76: ! 77: The procedure ddddrrrraaaawwww can display any of these objects, with or ! 78: without scaling. Additionally, ddddrrrraaaawwww accepts a co-expression ! 79: that generates these objects. ! 80: ! 81: Two record types are used internally: ! 82: ! 83: wwwwiiiinnnndddd((((ppppmmmmooooddddeeee,,,,ssssmmmmooooddddeeee,,,,ccccmmmmooooddddeeee,,,,ffffmmmmooooddddeeee,,,,rrrrmmmmooooddddeeee,,,,ppppssssuuuubbbbmmmmooooddddeeee,,,,ffffcccc,,,,bbbbcccc,,,,lllloooowwwweeeerrrrlllleeeefffftttt,,,,uuuuppppppppeeeerrrrrrrriiiigggghhhhtttt)))) ! 84: ssssccccaaaalllliiiinnnngggg((((xxxxssssllllooooppppeeee,,,,xxxxiiiinnnntttteeeerrrr,,,,yyyyssssllllooooppppeeee,,,,yyyyiiiinnnntttteeeerrrr)))) ! 85: ! 86: where ! 87: ! 88: ppppmmmmooooddddeeee is OOOONNNN if window is in plot mode. ! 89: ssssmmmmooooddddeeee is OOOONNNN if scaling is active. ! 90: ccccmmmmooooddddeeee is OOOONNNN if clipping is active. ! 91: ffffmmmmooooddddeeee is OOOONNNN if fill is active. ! 92: rrrrmmmmooooddddeeee is OOOONNNN if roll is active. ! 93: ppppssssuuuubbbbmmmmooooddddeeee is the plot submode. ! 94: ffffcccc is the foreground color. ! 95: bbbbcccc is the background color. ! 96: lllloooowwwweeeerrrrlllleeeefffftttt,,,, uuuuppppppppeeeerrrrrrrriiiigggghhhhtttt are the window bounds. ! 97: xxxxssssllllooooppppeeee,,,, xxxxiiiinnnntttteeeerrrr are the x-coordinate scaling constants ! 98: yyyyssssllllooooppppeeee,,,, yyyyiiiinnnntttteeeerrrr are the y-coordinate scaling constants ! 99: ! 100: The defaults for all windows are: ! 101: ! 102: wwwwiiiinnnndddd((((OOOOFFFFFFFF,,,,OOOOFFFFFFFF,,,,OOOOFFFFFFFF,,,,OOOOFFFFFFFF,,,,OOOONNNN,,,,"""""""",,,,NNNNOOOOCCCCOOOOLLLLOOOORRRR,,,,NNNNOOOOCCCCOOOOLLLLOOOORRRR,,,,ppppooooiiiinnnntttt((((0000,,,,0000)))),,,,ppppooooiiiinnnntttt((((XXXXMMMMAAAAXXXX,,,,YYYYMMMMAAAAXXXX)))))))) ! 103: ssssccccaaaalllliiiinnnngggg((((1111,,,,0000,,,,1111,,,,0000)))) ! 104: ! 105: ! 106: The following values are predefined globals, and should not ! 107: be reassigned: ! 108: MMMMOOOODDDDEEEE,,,, EEEESSSSCCCC used internally ! 109: OOOONNNN,,,, OOOOFFFFFFFF mode settings ! 110: XXXXMMMMAAAAXXXX,,,, YYYYMMMMAAAAXXXX maximum screen addresses ! 111: DDDDOOOOTTTT,,,,VVVVEEEECCCCTTTTOOOORRRR,,,,RRRREEEECCCCTTTTAAAANNNNGGGGLLLLEEEE,,,,CCCCIIIIRRRRCCCCLLLLEEEE,,,,AAAARRRRCCCC,,,,CCCCOOOONNNNCCCCVVVVEEEECCCCTTTT,,,,IIIINNNNCCCCDDDDOOOOTTTT ! 112: plot submodes ! 113: BBBBLLLLAAAACCCCKKKK,,,,BBBBLLLLUUUUEEEE,,,,GGGGRRRREEEEEEEENNNN,,,,CCCCYYYYAAAANNNN,,,,RRRREEEEDDDD,,,,MMMMAAAAGGGGEEEENNNNTTTTAAAA,,,,YYYYEEEELLLLLLLLOOOOWWWW,,,,WWWWHHHHIIIITTTTEEEE,,,,BBBBLLLLIIIINNNNKKKK ! 114: colors ! 115: ! 116: The following globals are used internally: ! 117: ____wwwwnnnnoooo current window (1 to 4), initially 1 ! 118: wwwwiiiinnnnddddoooowwww list of window attributes ! 119: wwwwssssccccaaaalllleeee list of window scaling factors ! 120: ! 121: The procedure _g_i_n_i_t() must be called to initialize global ! 122: constants and set window attributes at the start of any pro- ! 123: gram using _g_p_a_c_k. Procedures that are marked `internal' are ! 124: intended primarily for internal use by _g_p_a_c_k. Some pro- ! 125: cedures are generators that reverse their effects. ! 126: ! 127: ! 128: ! 129: Version 5.9 The University of Arizona - 8/12/84 2 ! 130: ! 131: ! 132: ! 133: ! 134: ! 135: ! 136: GPACK(2) Icon Program Library GPACK(2) ! 137: ! 138: ! 139: ! 140: SSSSEEEEEEEE AAAALLLLSSSSOOOO ! 141: worm(6) ! 142: ! 143: DDDDEEEEFFFFIIIICCCCIIIIEEEENNNNCCCCIIIIEEEESSSS ! 144: Object clipping has not been implemented. rrrraaaaddddiiiiuuuussss is not ! 145: scaled for cccciiiirrrrcccclllleeee and aaaarrrrcccc. ! 146: ! 147: AAAAUUUUTTTTHHHHOOOORRRR ! 148: Stephen B. Wampler ! 149: ! 150: ! 151: ! 152: ! 153: ! 154: ! 155: ! 156: ! 157: ! 158: ! 159: ! 160: ! 161: ! 162: ! 163: ! 164: ! 165: ! 166: ! 167: ! 168: ! 169: ! 170: ! 171: ! 172: ! 173: ! 174: ! 175: ! 176: ! 177: ! 178: ! 179: ! 180: ! 181: ! 182: ! 183: ! 184: ! 185: ! 186: ! 187: ! 188: ! 189: ! 190: ! 191: ! 192: ! 193: ! 194: ! 195: Version 5.9 The University of Arizona - 8/12/84 3 ! 196: ! 197: ! 198:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.