home *** CD-ROM | disk | FTP | other *** search
Wrap
.IN 10 .RM 70 .HE /╟╥┴╞╨┴╦/BY ═ARK ╥. ╥INFRET/╥ICH ╚ELMS/ .FO //╓ERSION 1.00/PAGE #/ .TI -5 ─┼╙├╥╔╨╘╔╧╬ .BR ╘HE PURPOSE OF ╟╥┴╞╨┴╦ IS TO PROVIDE A COLLECTION OF GRAPHICS COMMANDS FOR THE ├64 AND THE ├-╨OWER COMPILER. ╘HE PACKAGE WAS WRITTEN BY ═ARK ╥. ╥INFRET. ╘HIS DOCUMENTATION WAS WRITTEN BY ╥ICH ╚ELMS. ═ARK'S ID ON THE ├-╨OWER ┬┬╙ IS ═┴╥╦ ╥╔╬╞╥┼╘. ╥ICH'S ID IS ╥╔├╚ ╚┼╠═╙. .NF .TI -5 ╓┼╥╙╔╧╬╙ .BR 1.00 12/14/85 .NE 6 .TI -5 ╞╔╠┼╙ ╟╥┴╞╨┴╦0.├ SYSTEM VARIABLES ╟╥┴╞╨┴╦1.├ MAIN ROUTINES ╟╥┴╞╨┴╦2.├ ├╔╥├╠┼ AND ┴╥├ ROUTINES ╟╥┴╞╨┴╦.╚ STANDARD INCLUDE SOURCE .TI -5 ╠╔╬╦ING ┴ ╨╥╧╟╥┴═ .FI ╫HEN LINKING A PROGRAM LOAD ╠╔╬╦. ╘HEN ANSWER WITH YOUR PROGRAM OBJECT. ╘HEN ADD THE LIST: .NF ╟╥┴╞╨┴╦0.╧ ╟╥┴╞╨┴╦1.╧ ╟╥┴╞╨┴╦2.╧ (IF CIRCLE OR ARC USED) ═┴╘╚.╠ (YOU NEED ├╧╙.╧┬╩ AND ╙╔╬.╧┬╩ WITH THIS) ^ (SYSTEM LIST) .TI -5 ╙├╥┼┼╬ ╠┴┘╧╒╘ ¬úúúúúúúúúúúúúúúúúúúúúúúÑ ¬ (0,0) Ñ ¬ Ñ ¬ Ñ ¬ Ñ ¬ Ñ ¬ Ñ ¬ ═ULTI-├OLOR (159,199) Ñ ¬ ╚I-╥ES (319,199) Ñ úúúúúúúúúúúúúúúúúúúúúúú .NE 59 .TI -5 ├╧══┴╬─╙ .NE 12 ┴╥├(XORIGIN,YORIGIN,XRAD,YRAD,START,END,ANGL,INCR,PEN); UNSIGNED XORIGIN = X COORDINATE YORIGIN = Y COORDINATE XRAD = X RADIUS YRAD = Y RADIUS START = START IN DEGREES END = END IN DEGREES FLOAT ANGL = DEGREE OF ROTATION (NOT IMPLIMENTED) UNSIGNED INCR = INCRIMENT PEN = (0-3) PEN TO DRAW WITH ╬╧╘┼: ╙TART IS AT 3 O'CLOCK FOR 0 DEGREES. .NE 2 ┬═╞╔╠╠(VALUE); UNSIGNED VALUE = VALUE TO FILL SCREEN WITH .NE 2 ├╞╔╠╠(); ╬╧╘┼: ╞ILL SCREEN WITH DEFAULT COLOURS .NE 5 ├╔╥├╠┼(XORIGIN,YORIGIN,RADIUS,PEN); UNSIGNED XORIGIN = X COORDINATE YORIGIN = Y COORDINATE RADIUS = RADIUS PEN = (0-3) PEN TO DRAW WITH .NE 8 ├╧╠╧╥╙(BORDER,BACKGRD,PEN1,PEN2,PEN3); INT BORDER = BORDER COLOUR BACKGRN = BACKGROUND PEN1 = PEN 1 PEN2 = PEN 2 PEN3 = PEN 3 ╬╧╘┼: ├OLOURS < 0 CAUSE NO CHANGE .NE 5 ─╥┴╫├╚┴╥(X,Y,C,PEN); UNSIGNED X = X COORDINATE Y = Y COORDINATE C = CHARACTER TO PRINT PEN = (0-3) PEN TO DRAW WITH .NE 6 ─╥┴╫╘┼╪╘(X,Y,S,ANGLE,PEN); UNSIGNED X = X COORDINATE Y = Y COORDINATE CHAR *S = CHARACTERS TO PRINT FLOAT ANGLE = ANGLE TO ROTATE UNSIGNED PEN = (0-3) PEN TO DRAW WITH .NE 2 ╟╔╬╔╘(); ╬╧╘┼: ╔NITIALIZE GRAPHICS PACKAGE .NE 6 ╟╥┴╨╚╔├╙(MODE,CLEAR); UNSIGNED MODE = 0 TEXTMODE 1 HI-RES 2 MULTI-COLOR CLEAR = 0 NO CLEAR X CLEAR .NE 6 ╠╔╬┼(X1,Y1,X2,Y2,PEN); UNSIGNED X1 = X COORDINATE Y1 = Y COORDINATE X2 = X COORDINATE Y2 = Y COORDINATE PEN = (0-3) PEN TO DRAW WITH .NE 4 ╨╙┼╘(XCORD,YCORD,PEN); UNSIGNED XCORD = X COORDINATE YCORD = Y COORDINATE PEN = (0-3) PEN TO DRAW WITH