K279390@pavo.concordia.ca (ERIC) (09/23/90)
Hmmm. REGIS graphics is something I've been hunting for quite a while. Haven't found much, though. Could anyone send/post/email a document about how the REGIS codes actually work? It would be INCREDIBLY much appreciated. ( - by ME of course....) I'm trying to write a device driver for the PC that will display graphics using REGIS (I communicate frequently with this silly VAX) and the actualy codes remain a mystery. DEC themselves were MOST un-helpful. Thanks in advance.
bernie@umbc3.UMBC.EDU (Bernard J. Duffy) (09/28/90)
In article <4497@pavo.concordia.ca> K279390@pavo.concordia.ca (ERIC) writes: >Hmmm. REGIS graphics is something I've been hunting for quite >a while. Haven't found much, though. Could anyone send/post/email >a document about how the REGIS codes actually work? It would be >INCREDIBLY much appreciated. ( - by ME of course....) I'm trying ... > Thanks in advance. Eric, DEC has 2 significant sources of REGIS documentation: 1) The VT240 Pocket Programmer Guide It usually comes with the VT240 terminal documentation. It's short on explainations, but covers most of the commands' syntax. 2) VT330/VT340 Programmer Reference Manual: Vol. 1 Text Programming Order number = EK-VT3XX-TP001 Vol. 2 Graphics Programming Order number = EK-VT3XX-GP001 The last one is what you probably want. To Lang (ling?... don't remember the spelling, but he was asking for a sample/demo REGIS program) Enclosed is a cute little demo that draws a destroyer, shoots at it, makes it explode via color plane switches (turns red, back to gray...), makes it disappear, and lastly says "The End". This program is 169 lines long and replace "<esc>" with the actual Escape character (ASCII 27). <esc>[2J<esc>Pp written by JOHN THORP 5/23/1984 clear screen s(e) S(M0(AH0L0S0)) S(M1(AH0L0S0)) S(M2(AH0L0S0)) S(M3(AH0L0S0)) w(i2) bow p[1,240] w(s 1) p[50,300] v[1,240]v[50,240] fore deck p[1,300] w(s 1) p[50,240] v[85,242]v[95,250]v[170,255]v[190,255] fore gun v[196,245]v[206,235]v[255,235]v[258,245]v[270,245] cabin v[270,210]v[280,205]v[290,205]v[295,195]v[315,205]v[315,185]v[320,180] v[360,180]v[380,170]v[390,150] stack v[392,148]v[392,100]v[425,100]v[425,235]v[450,235] antenna v[450,200]p[450,235] second stack v[460,225]v[470,225]v[475,205]v[485,205]v[485,165]v[505,165] v[508,205]v[518,205]v[518,195]v[524,195]v[524,200]v[528,200] v[530,200]v[530,195] aft deck v[535,195]v[535,230]v[540,230]v[545,225]v[550,225]v[555,235] v[570,235]v[570,245]v[576,245]v[576,235]v[615,235]v[625,245] v[625,255]v[635,250]v[635,260]v[695,260] stern p[1,260] w(s1) p[695,260] v[735,260]v[695,300] radome P[340,180]C[330,180] put on guns w(s0) p[201,240]v[140,235] p[620,240]v[660,236] put on antennas and radar p[425,100]v[485,165] P[402,100]V[402,90] P[400,100]V[400,90] W(S 1) C[405,90] W(S 0) p[420,100]v[420,70] draw ocean w(i1)p[1,300]w(s1)p[0,500]v[900,500] make marker macro w(s0) p[400,235] @.@:G w(i3) c[+10,+0] p[-10]v[+20] p[-10,-10]v[,+20]p[,-10] s(t20) w(i2) c[+10,+0] p[-10]v[+20] p[-10,-10]v[,+20]p[,-10] @; s(M0(AH0L50s67)) s(M1(AH0L35s50)) s(M2(AH0L29s1)) s(M3(AH130L50s80)) move sight @gp[-5]@gp[-5]@gp[-5]@gp[-5]@gp[-5]@gp[-5]@gp[-5]@gp[-5] @gp[-5]@gp[-5]@gp[-5]@gp[-5]@g target locked on w(i3) c[+10,+0] p[-10]v[+20] p[-10,-10]v[,+20]p[,-10] P[20,200]t"TARGET LOCKED ON" s(t100) @:r p[0,470] v[245,300] v[340,235] @; @:l p[780,470] v[464,300] v[340,235] @; @r@lw(i 0) p[340,235]v[464,300]w(i 1)v[780,470] w(i 0) p[340,235]v[245,300]w(i 1)v[0,470]w(i3) @r@lw(i 0) p[340,235]v[464,300]w(i 1)v[780,470] w(i 0) p[340,235]v[245,300]w(i 1)v[0,470]w(i3) @r@lw(i 0) p[340,235]v[464,300]w(i 1)v[780,470] w(i 0) p[340,235]v[245,300]w(i 1)v[0,470]w(i3) @r@l flash sky s(M0(AH120L50s67)) s(M0(AH0L50s67)) s(M0(AH120L50s67)) s(M0(AH0L50s67)) s(M0(AH120L50s67)) s(M0(AH0L50s67)) s(M0(AH120L50s67)) s(M0(AH0L50s67)) s(M0(AH120L50s67)) s(M0(AH0L50s67)) s(M0(AH120L50s67)) s(M0(AH0L50s67)) s(M0(AH120L50s67)) s(M0(AH0L50s67)) s(M0(AH120L50s67)) s(M0(AH0L50s67)) s(M2(AH0L50s67)) w(i 0) P[20,200]t"TARGET LOCKED ON" p[340,235]v[464,300]w(i 1)v[780,470] w(i 0) p[340,235]v[245,300]w(i 1)v[0,470] p[340,235] s(t100) s(t100) s(e) w(i3) p[330,20]t(i-45)"THE END" s(e) w(i3) p[330,20]t(i-45)"THE END"7448000 <esc>\ <esc>[1;1f ************************* end of file_ship.plt ********* Enjoy ... -- Bernie Duffy Systems Programmer II | Bitnet : BERNIE@UMBC2 Academic Computing Services - L005e | Internet : BERNIE@UMBC2.UMBC.EDU Univ. of Maryland Baltimore County | UUCP : ...!uunet!umbc3!bernie Baltimore, MD 21228 (U.S.A.) | W: (301) 455-3231 H: (301) 744-2954