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,mask,ii,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
    vec.color(i,$0800)                                   
    'vec.color(i,$FF<<8+i)                               'init tile colors "Nice view"

  vec.pointcolor(1)
  vec.text(0,0,string("Vektordemo"))

  repeat
    vec.pointcolor(1)

    repeat 1
     repeat j from 1 to 260 step 5
      repeat i from 0 to 359 step 1
        'vec.syncvid
        n := vec.deg(i)
        vec.shape(256,192,j,j,3,n)
        keyreb

    repeat 1
     repeat j from 260 to 1 step 5
      repeat i from 0 to 359 step 1
        'vec.syncvid
        n := vec.deg(i)
        vec.shape(256,192,j,j,3,n)
        keyreb

    repeat 20
      repeat i from 0 to 359 
        'vec.syncvid
        n := vec.deg(i)
        vec.shape(256,192,145,145,3,n)
        keyreb

    repeat 3
      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))
        keyreb

    repeat 1
      repeat i from 0 to 359 
        'vec.syncvid
        n := vec.deg(i)
        vec.shape(256,192,200,200,6,n)
        vec.shape(256,192,190,190,6,n)
        vec.shape(256,192,180,180,6,n)
        vec.shape(256,192,170,170,6,n)
        vec.shape(256,192,160,160,6,n)

        vec.shape(256,192,150,150,6,n)
        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))
        keyreb

    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)
            keyreb

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