244 lines
18 KiB
Plaintext
244 lines
18 KiB
Plaintext
{{
|
|
|
|
Hive-Computer-Projekt
|
|
|
|
Name : Vektron VGA-Vektorgrafik-Engine
|
|
Chip : Bellatrix-Code (bios)
|
|
Version : 0
|
|
Dateien :
|
|
|
|
23.10.2008 - idee und frame
|
|
|
|
}}
|
|
|
|
CON
|
|
|
|
_CLKMODE = XTAL1 + PLL16X
|
|
_XINFREQ = 5_000_000
|
|
|
|
'signaldefinitionen regnatix
|
|
|
|
#0, D0,D1,D2,D3,D4,D5,D6,D7 'datenbus
|
|
#8, BEL_VGABASE 'vga-signale (8pin)
|
|
#16, BEL_KEYBC,BEL_KEYBD 'keyboard-signale
|
|
#18, BEL_MOUSEC,BEL_MOUSED 'maus-signale
|
|
#20, BEL_VIDBASE 'video-signale(3pin)
|
|
#23, BEL_SELECT 'belatrix-auswahlsignal
|
|
#24, HBEAT 'front-led
|
|
BUSCLK 'bustakt
|
|
BUS_WR '/wr - schreibsignal
|
|
BUS_HS ' '/hs - quittungssignal
|
|
|
|
|
|
VGA_BASPORT = 8 'vga startport
|
|
KEYB_DPORT = BEL_KEYBD 'tastatur datenport
|
|
KEYB_CPORT = BEL_KEYBC 'tastatur taktport
|
|
|
|
DB_WAIT = %00000001_00000000_00000000_00000000 'dira-wert f?r wait-status am bus
|
|
DB_IN = %00001001_00000000_00000000_00000000 'dira-wert f?r datenbuseingabe
|
|
DB_OUT = %00001001_00000000_00000000_11111111 'dira-wert f?r datenbusausgabe
|
|
CNT_HBEAT = 5_000_0000 'blinkgeschw. front-led
|
|
|
|
'512x384
|
|
|
|
tiles = vec#tiles
|
|
|
|
OBJ
|
|
|
|
vec : "vectron-1-asm"
|
|
key : "vectron-1-keyb"
|
|
|
|
PUB MainLoop|h,i,deg,x,y,char,j,k,n
|
|
|
|
vec.start
|
|
key.start(keyb_dport, keyb_cport) 'tastaturport starten
|
|
|
|
|
|
repeat i from 0 to tiles - 1 'init tile colors to white on black
|
|
'' hintergrund vordergrund
|
|
'' "1" "0" "1" "0"
|
|
'' %RRGGBB00_RRGGBB00_RRGGBB00_RRGGBB00
|
|
vec.color(i,%00000000_00000000_11000000_00000000) 'rot auf schwarz
|
|
' vec.color(i,%00000000_00000000_11000000_10100000) 'rot auf gold
|
|
' vec.color(i,$FF<<8+i) 'init tile colors "Nice view"
|
|
|
|
vec.pointcolor(1)
|
|
|
|
repeat
|
|
vec.pointcolor(1)
|
|
|
|
back1 'rot auf schwarz
|
|
|
|
repeat 1 'dreieck größer
|
|
repeat j from 10 to 280 step 8
|
|
repeat i from 0 to 359 step 1
|
|
n := vec.deg(i)
|
|
vec.shape(256,192,j,j,3,n)
|
|
|
|
repeat 2 'dreiecke hive blinkt
|
|
repeat i from 0 to 359 step 1
|
|
'vec.syncvid
|
|
n := vec.deg(i)
|
|
vec.shape(256,192,280,280,3,n)
|
|
n := vec.deg(i<<2)
|
|
vec.shape(256,192,280,280,3,n)
|
|
n := i & i>>3
|
|
ifnot n
|
|
vec.text(195,175,string("◀ Hive ▶"))
|
|
|
|
repeat 5 'dreiecke hive
|
|
repeat i from 0 to 359 step 1
|
|
'vec.syncvid
|
|
n := vec.deg(i)
|
|
vec.shape(256,192,280,280,3,n)
|
|
n := vec.deg(i<<2)
|
|
vec.shape(256,192,280,280,3,n)
|
|
vec.text(195,175,string("◀ Hive ▶"))
|
|
|
|
repeat 2 'dreiecke hive blinkt
|
|
repeat i from 0 to 359 step 1
|
|
'vec.syncvid
|
|
n := vec.deg(i)
|
|
vec.shape(256,192,280,280,3,n)
|
|
n := vec.deg(i<<2)
|
|
vec.shape(256,192,280,280,3,n)
|
|
n := i & i>>3
|
|
ifnot n
|
|
vec.text(195,175,string("◀ Hive ▶"))
|
|
|
|
repeat 1 'dreieck kleiner
|
|
repeat j from 280 to 10 step 8
|
|
repeat i from 0 to 359 step 1
|
|
'vec.syncvid
|
|
n := vec.deg(i)
|
|
vec.shape(256,192,j,j,3,n)
|
|
|
|
repeat j from 0 to 900 'gittertext
|
|
vec.shape(140+(j>>2),90+(j>>3),140,140,3,n<<3)
|
|
vec.shape(130+(j>>2),80+(j>>3),120,120,3,n<<3)
|
|
vec.shape(120+(j>>2),70+(j>>3),100,100,3,n<<3)
|
|
vec.shape(110+(j>>2),60+(j>>3), 80, 80,3,n<<3)
|
|
vec.shape(100+(j>>2),50+(j>>3), 60, 60,3,n<<3)
|
|
|
|
vec.character(1+k,350,"▶")
|
|
vec.character(512-k,350,"◀")
|
|
if k++ > 512
|
|
k := 0
|
|
|
|
vec.text(50+j>>3+n>>2,50+j>>3+n>>2,string("◀ Hive: Vectron ▶"))
|
|
repeat i from 1 to 90 step 5
|
|
n := (vec.sine(vec.deg(i+j)) >> 7)
|
|
vec.line(n,0,n,384)
|
|
repeat i from 1 to 90 step 5
|
|
n := (vec.sine(vec.deg(i+j)) >> 7)
|
|
vec.line(0,n,512,n)
|
|
|
|
repeat j from 0 to 200 'gitter
|
|
repeat i from 1 to 90 step 5
|
|
n := (vec.sine(vec.deg(i+j)) >> 7)
|
|
vec.line(n,0,n,384)
|
|
repeat i from 1 to 90 step 5
|
|
n := (vec.sine(vec.deg(i+j)) >> 7)
|
|
vec.line(0,n,512,n)
|
|
|
|
back2 'hintergrund farbig
|
|
repeat 150 'scroller
|
|
repeat i from 0 to 359 step 5
|
|
'vec.syncvid
|
|
vec.text(195,0,string("◀ Vectron ▶"))
|
|
n := vec.deg(i)
|
|
k := vec.sine(vec.deg(i/2))>>9
|
|
vec.shape(256-150,240-k,100,100,3,n)
|
|
vec.shape(256 ,240-k,100,100,3,n)
|
|
vec.shape(256+150,240-k,100,100,3,n)
|
|
case y
|
|
0: vec.text(600-x,350,string("◀ Vectron: "))
|
|
1: vec.text(512-x,350,string("• Vektor-Koprozessor •"))
|
|
2: vec.text(512-x,350,string("• Objekt-Koprozessor •"))
|
|
3: vec.text(512-x,350,string("• FX-Koprozessor •"))
|
|
4: vec.text(512-x,350,string("• VGA-Signal •"))
|
|
5: vec.text(512-x,350,string("• 64 Farben •"))
|
|
6: vec.text(512-x,350,string("• 512 x 384 Pixel •"))
|
|
7: vec.text(512-x,350,string("• Vectrex-Retro-Style •"))
|
|
8: vec.text(512-x,350,string("• hive-project.de "))
|
|
if x++ > 800
|
|
x := 0
|
|
if y++ > 9
|
|
y := 0
|
|
|
|
PRI back1 | i
|
|
repeat i from 0 to tiles - 1 'init tile colors to white on black
|
|
'' hintergrund vordergrund
|
|
'' "1" "0" "1" "0"
|
|
'' %RRGGBB00_RRGGBB00_RRGGBB00_RRGGBB00
|
|
vec.color(i,%00000000_00000000_11000000_00000000) 'rot auf schwarz
|
|
|
|
PRI back2 | i
|
|
''tiles := xtiles=16 * ytiles=12
|
|
i := 0
|
|
repeat 2
|
|
repeat 16
|
|
'' hintergrund vordergrund
|
|
'' "1" "0" "1" "0"
|
|
'' %RRGGBB00_RRGGBB00_RRGGBB00_RRGGBB00
|
|
vec.color(i++,%00000000_00000000_01010000_00000000) 'rot auf schwarz
|
|
|
|
repeat 8
|
|
repeat 5
|
|
'' hintergrund vordergrund
|
|
'' "1" "0" "1" "0"
|
|
'' %RRGGBB00_RRGGBB00_RRGGBB00_RRGGBB00
|
|
vec.color(i++,%00000000_00000000_11000000_00000000) 'rot auf schwarz
|
|
repeat 6
|
|
'' hintergrund vordergrund
|
|
'' "1" "0" "1" "0"
|
|
'' %RRGGBB00_RRGGBB00_RRGGBB00_RRGGBB00
|
|
vec.color(i++,%00000000_00000000_00110000_00000000) 'rot auf schwarz
|
|
repeat 5
|
|
'' hintergrund vordergrund
|
|
'' "1" "0" "1" "0"
|
|
'' %RRGGBB00_RRGGBB00_RRGGBB00_RRGGBB00
|
|
vec.color(i++,%00000000_00000000_00001100_00000000) 'rot auf schwarz
|
|
|
|
repeat 2
|
|
repeat 16
|
|
'' hintergrund vordergrund
|
|
'' "1" "0" "1" "0"
|
|
'' %RRGGBB00_RRGGBB00_RRGGBB00_RRGGBB00
|
|
vec.color(i++,%00000000_00000000_01010000_00000000) 'rot auf schwarz
|
|
|
|
PRI rest |x,y,i,n
|
|
|
|
repeat 20 'dreieck
|
|
repeat i from 0 to 359
|
|
'vec.syncvid
|
|
n := vec.deg(i)
|
|
vec.shape(256,192,145,145,3,n)
|
|
|
|
repeat 3 '3 x shape
|
|
repeat i from 0 to 359
|
|
'vec.syncvid
|
|
n := vec.deg(i)
|
|
vec.shape(256,192,145,145,3,n)
|
|
vec.shape(256,192,70,70,4,vec.deg(359-i*2))
|
|
vec.shape(256,192,30,30,5,vec.deg(i*3))
|
|
|
|
repeat 3
|
|
repeat i from 0 to 359 step 5
|
|
repeat x from 100 to 400 step 150
|
|
repeat y from 100 to 300 step 150
|
|
shapes1(x,y,i)
|
|
|
|
PRI shapes1(x,y,i)
|
|
'vec.syncvid
|
|
vec.shape(x,y,145,145,3,vec.deg(i))
|
|
vec.shape(x,y,70,70,4,vec.deg(359-i*2))
|
|
vec.shape(x,y,30,30,5,vec.deg(i*3))
|
|
|
|
PRI keyreb 'bei teastendruck reboot
|
|
|
|
if key.key
|
|
reboot
|
|
|
|
DAT
|