Path: utzoo!attcan!uunet!snorkelwacker!usc!zaphod.mps.ohio-state.edu!uakari.primate.wisc.edu!aplcen!haven!umbc3!bernie
From: bernie@umbc3.UMBC.EDU (Bernard J. Duffy)
Newsgroups: comp.graphics
Subject: Re: More info requested on REGIS graphics....
Message-ID: <4033@umbc3.UMBC.EDU>
Date: 27 Sep 90 22:24:34 GMT
References: <4497@pavo.concordia.ca>
Reply-To: bernie@umbc3.umbc.edu.UMBC.EDU (Bernard J. Duffy)
Organization: University of Maryland, Baltimore County
Lines: 210

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