FRAMEBUFFER Layer 13
' do some stuff
FRAMEBUFFER Layer 0

autosave
Option DEFAULT INTEGER
MODE 2
CLS
Dim ctab(15):For i = 0 To 15: Read ctab(i) : Next
colr:   ' order is messed up
Data RGB(BLACK),RGB(BLUE),RGB(GREEN),RGB(CYAN),RGB(RED)
Data RGB(MAGENTA),RGB(YELLOW),RGB(WHITE),RGB(MYRTLE)
Data RGB(COBALT) ,RGB(MIDGREEN),RGB(CERULEAN)
Data RGB(RUST), RGB(FUCHSIA),RGB(BROWN),RGB(LILAC)

' draw a back ground image
For j = 1 To 20
 For i = 33 To 127
   Print Chr$(i);
 Next i
Next j

FRAMEBUFFER layer 0 ' -1 for no transparent colour?
FRAMEBUFFER write L
CLS

For j = 0 To 3
 For i = 0 To 3
   x = i * MM.HRes / 4
   y = j * MM.VRes / 4
   c = ctab(j * 4 + i)
   Box x,y,MM.HRes/4,MM.VRes/4,1,0,c
 Next i
Next j

For i = 1 To 15   ' make each colour transparent
 FRAMEBUFFER layer i
 Pause 1500
Next i
FRAMEBUFFER close
CLS 0   ' must specify 0 for black?

HScan = 250000

Option base 1
Dim array1!(5000) , array2!(5000)


start:

keyin$ = Inkey$
If Not ( keyin$ = "" ) Then DoIt

GoTo start

Sub DoIt

Cro
Display
grid

End Sub

Sub Cro
               
'ADC open 125000 , 2
'ADC open 250000 , 2
ADC open HScan , 2

ADC start array1!()  ,  array2!()

ADC close

End Sub

Sub Display

CLS
Box 0,0,480,320,,(RGB(red))

For x = 2 To 478   Step 1

Line x , 250 - array1!(x) * 35 , - , - ,, RGB(green)
Line x , 400 - array2!(x) * 35 , - , - ,, RGB(yellow)  

Next x

End Sub

Sub grid

   For x = 12 To 478   Step 35
   For y = 20 To 316  Step 35

'      Pixel x , y  , RGB(cyan)  ''(yellow)
     Pixel x , y  , RGB(pink)  ''(yellow)

   Next y
 Next x

End Sub

End
''

HScan = 250000

Option base 1
Dim array1!(5000) , array2!(5000)


start:

keyin$ = Inkey$
If Not ( keyin$ = "" ) Then DoIt

GoTo start

Sub DoIt

Cro
Display
grid

End Sub

Sub Cro

'ADC open 125000 , 2
'ADC open 250000 , 2
ADC open HScan , 2

ADC start array1!()  ,  array2!()

ADC close

End Sub

Sub Display

CLS
Box 0,0,480,320,,(RGB(red))

Pixel 1,250-array1!(1),-1
For x = 2 To 478   Step 1

Line x , 250 - array1!(x) * 35 ,,,, RGB(green)

Next x
Pixel 1,400-array2!(1),-1
For x = 2 To 478   Step 1

Line x , 400 - array2!(x) * 35 ,,,, RGB(yellow)

Next x

End Sub

Sub grid

  For x = 12 To 478   Step 35
  For y = 20 To 316  Step 35

'      Pixel x , y  , RGB(cyan)  ''(yellow)
    Pixel x , y  , RGB(pink)  ''(yellow)

  Next y
Next x

End Sub

End

HScan = 250000

Option base 1
Dim array1!(5000) , array2!(5000)


start:

keyin$ = Inkey$
If Not ( keyin$ = "" ) Then DoIt

GoTo start

Sub DoIt

Cro
Display
grid

End Sub

Sub Cro

'ADC open 125000 , 2
'ADC open 250000 , 2
ADC open HScan , 2

'ADC start now has the capability of defining the range to map the output
'for each channel specify where 0V should be converted and where VCC should be converted

ADC start array1!()  ,  array2!(),,,250,250-35*3.3,400,400-35*3.3
ADC close

End Sub

Sub Display

CLS
Box 0,0,480,320,,(RGB(red))
Timer =0
colour rgb(green)
Pixel 1,array1!(1),-1
For x = 2 To 478   Step 1

Line x , array1!(x)

Next x
' Pixel command now has the ability to set the cursor position by specifying a colour of -1
colour rgb(magenta)
Pixel 1,array2!(1),-1
For x = 2 To 478   Step 1
'line now has the ability of drawing from the x,y specified to the current cursor position and if used in this way then updates the cursor position

Line x , array2!(x)

Next x
Print Timer
End Sub

Sub grid

 For x = 12 To 478   Step 35
 For y = 20 To 316  Step 35

'      Pixel x , y  , RGB(cyan)  ''(yellow)
   Pixel x , y  , RGB(pink)  ''(yellow)

 Next y
Next x

End Sub

End

If MM.Device$="PicoMiteVGA" Then MODE 2
Dim array!(2000)
For i=0 To 2000:array!(i)=Sin(Rad(i*2))*MM.VRes\8+MM.VRes\3:Next
CLS
Timer =0
Line plot array!() 'plot from start of array 1 line segment per x coordinate
Print @(0,0)Timer
Pause 4000
Timer =0
Line plot array!(),,,2,,,RGB(red) 'plot every second x = zoom in
Print @(0,0)Timer
Pause 4000
Timer =0
Line plot array!(),,,,,2,RGB(cyan) 'plot every second y = zoom out
Print @(0,0)Timer
Pause 4000
For i=0 To 2000:Inc array!(i),MM.VRes\3
:Next
Timer =0
Colour RGB(green)
Line plot array!(),200,50 'plot 50 samples starting at x=50
Print @(0,0)Timer
Pause 4000
Timer =0
Colour RGB(magenta)
Line plot array!(),250,50,,50 'plot 150 samples starting at x=50 from position 50
Print @(0,0)Timer
Pause 4000

ADC START CHAN1arr!() [,Chan2arr!()] [,Chan3arr!()] [,Chan4arr!()] [,C1min] [,C1max] [,C2min] [,C2max] [,C3min] [,C3max] [,C4min] [,C4max]

MATH(CROSSING array() [,level] [,direction]

If MM.Device$="PicoMiteVGA" Then MODE 2
Dim array%(2000)
Do ' create a sine wave with a random start point
 j=(Rnd * 360)
 For i=0 To 2000:array%(i)=-Sin(Rad(i*2+j))*MM.VRes/8+MM.VRes/3:Next
 CLS

 Colour RGB(green)
 Line plot array%()
 Colour RGB(magenta)
 Line 0,MM.VRes/3,MM.HRes-1,MM.VRes/3,,RGB(blue)
 x%=Math(crossing array%(),MM.VRes/3,-1)
 Text 0,0,Str$(x%)
 Line plot array%(),250,50,,x% 'plot 250samples starting at the crossing point
 Pause 100
Loop