TheBackShed.com

Forum Index : Microcontroller and PC projects : PicoMiteVGA DEMO

Page 8 of 9

Posted: 03:58pm 02 Apr 2025 Copy link to clipboard	javavi Guru

Diagonal Scrolling Clock

Const Mode.N=2
Const Font.N=1
Const T.Scale=4
Const T.Size=Len(Time$)
MODE Mode.N
Const X.Res=MM.HRES,Y.Res=MM.VRES
Font Font.N
Const X.FSize=MM.Info(FONTWIDTH)
Const Y.FSize=MM.Info(FONTHEIGHT)
Const X.Offset=X.FSize*T.Scale*T.Size\2
Const Y.Offset=Y.FSize*T.Scale\2
Dim integer X.Dir=1,Y.Dir=1
Dim integer X.Pos=MM.HRES\2,Y.Pos=MM.VRES\2
Dim integer FC,BC
Dim Clr(15)=(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15)
Colour Map Clr(),Clr()
'=================================================
FRAMEBUFFER LAYER 0
FRAMEBUFFER WRITE L
Font 9
'------------------------------------------------
Do
If BC=0 Then
BC=Int(Rnd*15)+1
Colour Clr(BC)
Print @(0,0);
For n=1 To (X.Res\8)*(Y.Res\8)
Print Chr$(32+Int(Rnd*3));
Next
EndIf

If X.Dir=1 Then
Blit READ 1, 0,0,1,MM.VRES
Blit 1,0,0,0,MM.HRES-1,MM.VRES
Blit Write 1, MM.HRES-1,0
Else
Blit READ 1, MM.HRES-1,0,1,MM.VRES
Blit 0,0,1,0,MM.HRES-1,MM.VRES
Blit Write 1, 0,0
EndIf
Blit Close 1
If Y.Dir=1 Then
Blit READ 1, 0,0,MM.HRES,1
Blit 0,1,0,0,MM.HRES,MM.VRES-1
Blit Write 1, 0,MM.VRES-1
Else
Blit READ 1, 0,MM.VRES-1,MM.HRES,1
Blit 0,0,0,1,MM.HRES,MM.VRES-1
Blit Write 1, 0,0
EndIf
Blit Close 1
'------------------------------------------------
Pause 20
FRAMEBUFFER WRITE N
If FC=0 Then FC=Int(Rnd*15)+1
Text X.Pos,Y.Pos,Time$,"CM",Font.N,T.Scale,Clr(FC)
Inc X.Pos,X.Dir:Inc Y.Pos,Y.Dir
If X.Pos-X.Offset<0 Then X.Dir=1:FC=0
If X.Pos+X.Offset>MM.HRES Then X.Dir=-1:FC=0
If Y.Pos-Y.Offset<0 Then Y.Dir=1:BC=0
If Y.Pos+Y.Offset>MM.VRES Then Y.Dir=-1:BC=0
FRAMEBUFFER WRITE L
Loop While Inkey$=""
'================================================
DefineFont 9
04200808
80402010 08040201
01020408 10204080
08080808 08080808
End DefineFont

Posted: 06:05pm 02 Apr 2025 Copy link to clipboard	al18 Senior Member

Nice - thanks for the program

Posted: 08:46am 03 Apr 2025 Copy link to clipboard	Volhout Guru

Hi javavi,

Scolling background can be made easier.

In your previous clock you perform these commands to copy data from top of the screen to bottom of the screen.

Blit READ 1, 0,0,MM.HRES,1
Blit 0,1,0,0,MM.HRES,MM.VRES-1
Blit Write 1, 0,MM.VRES-1
Blit Close 1

In PicoMite there is the SPRITE SCROLL command that scrolls a selected layer.
This command does the same as the above 4 lines.

Sprite scroll 0,1

The SPRITE SCROLL command can scroll all directions up/down/left/right. Individual, and simultaneous (diagonal).

Regards,

Volhout

P.s. in your later clocks you would replace

If X.Dir=1 Then
Blit READ 1, 0,0,1,MM.VRES
Blit 1,0,0,0,MM.HRES-1,MM.VRES
Blit Write 1, MM.HRES-1,0
Else
Blit READ 1, MM.HRES-1,0,1,MM.VRES
Blit 0,0,1,0,MM.HRES-1,MM.VRES
Blit Write 1, 0,0
EndIf
Blit Close 1
If Y.Dir=1 Then
Blit READ 1, 0,0,MM.HRES,1
Blit 0,1,0,0,MM.HRES,MM.VRES-1
Blit Write 1, 0,MM.VRES-1
Else
Blit READ 1, 0,MM.VRES-1,MM.HRES,1
Blit 0,0,0,1,MM.HRES,MM.VRES-1
Blit Write 1, 0,0
EndIf
Blit Close 1

with

Sprite scroll X.Dir,Y.Dir

Edited 2025-04-03 19:07 by Volhout

Posted: 04:49pm 03 Apr 2025 Copy link to clipboard	javavi Guru

Volhout said In PicoMite there is the SPRITE SCROLL command that scrolls a selected layer.
This command does the same as the above 4 lines.

Sprite scroll 0,1

The SPRITE SCROLL command can scroll all directions up/down/left/right. Individual, and simultaneous (diagonal).

Hi Volhout,
Thank you for the tip, I must have missed it. It makes it look much easier.
Regards,javavi.

Const Mode.N=2
Const Font.N=1
Const T.Scale=4
Const T.Size=Len(Time$)
MODE Mode.N
Const X.Res=MM.HRES,Y.Res=MM.VRES
Font Font.N
Const X.FSize=MM.Info(FONTWIDTH)
Const Y.FSize=MM.Info(FONTHEIGHT)
Const X.Offset=X.FSize*T.Scale*T.Size\2
Const Y.Offset=Y.FSize*T.Scale\2
Dim integer X.Dir=1,Y.Dir=1
Dim integer X.Pos=MM.HRES\2,Y.Pos=MM.VRES\2
Dim integer FC,BC
Dim Clr(15)=(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15)
Colour Map Clr(),Clr()
'=================================================
FRAMEBUFFER LAYER 0
FRAMEBUFFER WRITE L
Font 9
Do
If BC=0 Then
BC=Int(Rnd*15)+1
Colour Clr(BC)
Print @(0,0);
For n=1 To (X.Res\8)*(Y.Res\8)
Print Chr$(32+Int(Rnd*3));
Next
EndIf

Sprite scroll X.Dir,Y.Dir
Pause 20

FRAMEBUFFER WRITE N
If FC=0 Then FC=Int(Rnd*15)+1
Text X.Pos,Y.Pos,Time$,"CM",Font.N,T.Scale,Clr(FC)
Inc X.Pos,X.Dir:Inc Y.Pos,Y.Dir
If X.Pos-X.Offset<0 Then X.Dir=1:FC=0
If X.Pos+X.Offset>MM.HRES Then X.Dir=-1:FC=0
If Y.Pos-Y.Offset<0 Then Y.Dir=1
If Y.Pos+Y.Offset>MM.VRES Then Y.Dir=-1:BC=0
FRAMEBUFFER WRITE L
Loop While Inkey$=""
'================================================
DefineFont 9
04200808
80402010 08040201
01020408 10204080
08080808 08080808
End DefineFont

Posted: 07:28pm 07 Apr 2025 Copy link to clipboard	javavi Guru

Maze-Clock

MODE 1
Const X.Res=MM.HRES,Y.Res=MM.VRES
Const Font.Addr=MM.Info(FONT ADDRESS 1)+4
Dim string CH$ LENGTH 1
Dim string ST$ LENGTH 8
Dim integer X.Dir=1,Y.Dir=1
Dim integer X.Pos=5,Y.Pos=15
Dim integer n,FC,BC
Dim CM(15)=(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15)
Colour Map CM(),CM()
'=================================================
Font 9
Print @(0,0);
For n=1 To (X.Res\8)*(Y.Res\8)
Print Chr$(50+Int(Rnd*3));
Next

Do
If FC=0 Then
FC=Int(Rnd*15)+1
TILE 0,0,CM(FC),0,80,40
If Cint(Rnd) Then CH$="1" Else CH$="0"
EndIf
ST$=Time$
PrintTime X.Pos,Y.Pos,ST$,CH$
Pause 250
PrintTime X.Pos,Y.Pos,ST$,"C"
Inc X.Pos,X.Dir
Inc Y.Pos,Y.Dir
If X.Pos<0 Then X.Dir=1:FC=0
If X.Pos+64>80 Then X.Dir=-1:FC=0
If Y.Pos<0 Then Y.Dir=1:FC=0
If Y.Pos+11>60 Then Y.Dir=-1:FC=0
Loop While Inkey$=""
End
'--------------------------------------
Sub PrintTime(X,Y,TXT$,CH$)
Local string T$ LENGTH 8
Local integer Ti,Xi,FA,FS,FD,FH,FW
X=X*8:Y=Y*8
Print @(X,Y);
For FH=0 To 10
XI=X
For Ti=1 To Len(TXT$)
FS=Asc(Mid$(TXT$,Ti,1))-32
FA=Font.Addr+FS*12+FH
FD=PEEK(BYTE FA)
T$=Bin$(FD,8)
For FW=1 To 8
If CH$="C" Then
If Mid$(T$,FW,1)="1" Then Print @(Xi,Y)Chr$(50+Int(Rnd*3));
Else
If Mid$(T$,FW,1)="1" Then Print @(Xi,Y)CH$;
EndIf
Inc Xi,8
Next
Next
Inc Y,8
Print @(X,Y);
Next
End Sub
'--------------------------------------
DefineFont 9
05300808
00000000 00000000 FFFFFFFF FFFFFFFF
08080808 08080808 80402010 08040201
01020408 10204080
End DefineFont

Posted: 05:56pm 20 Apr 2025 Copy link to clipboard	javavi Guru

Perspective, Prospettiva, Perspicere

MODE 1
For Y=1 To 480
For X=1 To 640
Z=X-320
If (Z*64)Mod Y=0 Then Pixel X,Y
Next
Next

Posted: 06:40pm 20 Apr 2025 Copy link to clipboard	javavi Guru

MODE 1
XR=MM.HRES-1:YR=MM.VRES-1
For Y=1 To YR
For X=1 To XR
Z=X-320
If (Z*64)Mod Y=0 Then Pixel X,YR
Next
Sprite scroll 0,1
Next

Posted: 10:07pm 20 Apr 2025 Copy link to clipboard	stanleyella Guru

'map switching demo
Dim integer cmap(13)

'Clear the screen
MODE 2
Map reset
CLS rgb(black)

'Set up colours in the array
cmap(1)=RGB(white)
cmap(2)=RGB(black)
cmap(3)=RGB(black)
cmap(4)=RGB(black)
cmap(5)=RGB(black)
cmap(6)=RGB(black)

cmap(7)=RGB(white)
cmap(8)=RGB(black)
cmap(9)=RGB(black)
cmap(10)=RGB(black)
cmap(11)=RGB(black)
cmap(12)=RGB(black)

' Do an initial update of the Colour map to set up our colours
domap

hline=76:hy=1:mch=1
line 0,75,319,75,,RGB(white)

do'draw horizontal lines
line 0,hline,319,hline,,map(mch)
inc mch:if mch=7 then mch=1
hline=hline+hy:hy=hy+0.6
loop until hline>240

xb=-149:xt=10:mch=7
do'draw vertical lines
line xb,239,xt,75,,map(mch)
inc mch:if mch=13 then mch=7
xb=xb+8:xt=xt+4
loop until xb>=479

'
lr=0
do
cmap(0)=cmap(6)
For i=5 To 0 Step -1' move horizontal lines
cmap(i+1)=cmap(i)
Next

if lr<40 then
cmap(6)=cmap(12)
For i=11 To 6 Step -1' move vertical lines
cmap(i+1)=cmap(i)
Next
else
cmap(12)=cmap(7)
For i=7 To 12' move vertical lines
cmap(i)=cmap(i+1)
Next
end if
inc lr:if lr>80 then lr=0

domap
pause 100
loop

end

Sub domap
Local integer i
Map (0)=RGB(black)
For i=1 To 12
Map (i)=cmap(i)
Next
Map set
End Sub

Posted: 07:23pm 29 Apr 2025 Copy link to clipboard	javavi Guru

XOR Patterns

MODE 2
Do
R1=Int(Rnd*10)+1
R2=Int(Rnd*10)+10
R3=Int(Rnd*10)+20
C1=Map(Int(Rnd*15)+1)
C2=Map(Int(Rnd*15)+1)
C3=Map(Int(Rnd*15)+1)
For Y=0 To 240
For X=0 To 320
Color 0: Pixel X,Y
K=X Xor Y
If K Mod R1=0 Then Color C1: Pixel X,Y
If K Mod R2=0 Then Color C2: Pixel X,Y
If K Mod R3=0 Then Color C3: Pixel X,Y
Next
Next
Loop

Posted: 02:59pm 01 May 2025 Copy link to clipboard	mozzie Senior Member

G'day Javavi,
Thankyou for all of these programs, always look forward to trying them out and adjusting things to see how they work.

That last one is amazing, 18 lines of code to mesmerize

Regards,
Lyle.

Posted: 07:55pm 01 May 2025 Copy link to clipboard	Bleep Guru

Just playing, :-) here is the same pattern as above, but speed up, using some of the Math array functions and then plotting a whole line of Pixels at a time.

Dim Integer C(319),X(319),Y(319),D,K,I,J,R1,R2,R3,C1,C2,C3
MODE 2
'Initialise the X array 0 to 319 sequentially.
For J=0 To 319:X(J)=J:Next
Do
'Colour (RGB(255,255,255))
'Print Timer:Timer =0
R1=Int(Rnd*10)+1
R2=Int(Rnd*10)+10
R3=Int(Rnd*10)+20
C1=Map(Int(Rnd*15)+1)
C2=Map(Int(Rnd*15)+1)
C3=Map(Int(Rnd*15)+1)

For I=0 To 239
'Initialise Y array to line number, C array to 0 (Black)
Math Set I,Y()
Math Set 0,C()
For J=0 To 319
K=J Xor I
If Not(K Mod R3) Then:C(J)=C3
ElseIf Not(K Mod R2) Then:C(J)=C2
ElseIf Not(K Mod R1) Then:C(J)=C1
EndIf
Next
'Display whole line of pixels in one go.
Pixel X(),Y(),C()
Next
Loop

Posted: 05:21pm 19 May 2025 Copy link to clipboard	javavi Guru

Evil Fractal

CLS
Do
If Cint(Rnd) Then
T=(X+Y)/2
Y=(Y-X)/1.333
X=T
Else
T=(X+Y+1)/2
Y=(Y-X+1)/4
X=T
EndIf
Pixel 240+X*350,170-Y*290
Loop While Inkey$=""

Posted: 11:56am 11 Jun 2025 Copy link to clipboard	javavi Guru

Whirlwind

X0=MM.HRES\2: Y0=MM.VRES\2
Do
X=MM.HRES/800:Y=0
Inc I,.1: If i=360 Then i=1
C=Cos(i): S=Sin(i)
CLS
For R=1 To 320
Pixel X0+R*X,Y0+R*Y
T=X*C-Y*S
Y=X*S+Y*C
X=T
Next
Pause 50
Loop While Inkey$=""

Posted: 02:34pm 11 Jun 2025 Copy link to clipboard	javavi Guru

X0=MM.HRES\2: Y0=MM.VRES\2
Do
Inc I,.001: If i=360 Then i=.001
C=Cos(i): S=Sin(i)
X=MM.HRES/800: Y=0
CLS
For R=1 To 320
Pixel X0+R*X,Y0+R*Y
T=X*C-Y*S
Y=X*S+Y*C
X=T
Next
Pause 30
Loop While Inkey$=""

Posted: 07:15pm 11 Jun 2025 Copy link to clipboard	toml_12953 Guru

javavi said Windows

This can run on an LCD setup if you delete the MODE 2 line. Also, I get a syntax error on line 35 (FRAMEBUFFER COPY F,N,B) unless I remove the B. I am using an LCD and have it listed in my OPTIONS so I don't know why the B isn't accepted. I'm using V6.00.02RC26.

OPTION SERIAL CONSOLE COM1,GP0,GP1
OPTION SYSTEM SPI GP10,GP11,GP12
OPTION SYSTEM I2C GP6,GP7, SLOW
OPTION FLASH SIZE 4194304
OPTION LIBRARY_FLASH_SIZE 34000
OPTION COLOURCODE ON
OPTION CONTINUATION LINES ON
OPTION CASE UPPER
OPTION DEFAULT COLOURS GREEN, BLACK
OPTION KEYBOARD I2C
OPTION CPUSPEED (KHz) 252000
OPTION LCDPANEL CONSOLE ,, FF00
OPTION DISPLAY 26, 40
OPTION LCDPANEL ILI9488P, PORTRAIT,GP14,GP15,GP13,,INVERT
OPTION WIFI MySpectrumWiFie0-2G, **************, RP2350A
OPTION SDCARD GP17, GP18, GP19, GP16
OPTION AUDIO GP26,GP27', ON PWM CHANNEL 5
OPTION PLATFORM PicoCalc

Edited 2025-06-12 05:18 by toml_12953

Posted: 12:39pm 12 Jun 2025 Copy link to clipboard	javavi Guru

toml_12953 said I get a syntax error on line 35 (FRAMEBUFFER COPY F,N,B) unless I remove the B. I am using an LCD and have it listed in my OPTIONS so I don't know why the B isn't accepted. I'm using V6.00.02RC26.

Peter said:
Background copy isn't available on the WebMite

Posted: 11:35am 21 Jun 2025 Copy link to clipboard	javavi Guru

RotaSphere

MODE 2
Dim Xa(255), Ya(255)
x0=MM.HRES\2:y0=MM.VRES\2
Xdir=1:Ydir=1:C=Map(14)
n=4
r=n*16
Do
i=0
t=Timer
tr=t-n*50
ra=tr/1234
rb=tr/2345
For a=0 To Pi Step .39268
For b=0 To Pi*2 Step .8-.6*Sin(a)
o=Sin(a)*Cos(b)
k=Sin(a)*Sin(b)
e=Cos(a)*Cos(ra)+k*Sin(ra)
Pixel Xa(i),Ya(i),0
Xa(i)=(o*Cos(rb)+e*Sin(rb))*r+x0
Ya(i)=(e*Cos(rb)-o*Sin(rb))*r+y0
Pixel Xa(i),Ya(i),C
Inc i
Next b
Next a
If x0<r Then Xdir=1:C=Map(Int(Rnd*16))
If y0<r Then Ydir=1:C=Map(Int(Rnd*16))
If x0>MM.HRES-r Then Xdir=-1:C=Map(Int(Rnd*16))
If y0>MM.VRES-r Then Ydir=-1:C=Map(Int(Rnd*16))
Inc x0,Xdir:Inc y0,Ydir
Loop While Inkey$=""

Posted: 05:56pm 21 Jun 2025 Copy link to clipboard	Amnesie Guru

javavi

Your tireless contributions to these VGA demos are simply great! Love them!

Greetings
Daniel

Posted: 04:42pm 22 Jun 2025 Copy link to clipboard	stanleyella Guru

looks nice. elite next, serious

Posted: 04:37am 23 Jun 2025 Copy link to clipboard	RonnS Senior Member

javavi said

lizby said Beautiful. Amazing what 30 lines of code can do. Thanks for working these out, and hope more is to come.
To run with ILI9341 LCD, I commented out the TILEs line, changed the sizing

On such screens, "The Mystery of Deep Space" can be viewed in color ;))

MODE 2
Do
CLS
For G=-Rnd*42 To 400
tt=Rnd*99: qq=Rnd*99
uu=Rnd*320: vv=Rnd*240
A=Rnd*3
R=90/(1+Rnd*100)
Q=1+3*(.5+Rnd/2)
aa=1+3*Rnd^2: M=1
If Rnd*9<4 Then Q=R:T=0:qq=0:A=0:M=Pi/3:aa=1
C=(1+3*Rnd^2)*R*R
Color Rnd*&hFFFFFF
For i=0 To C
S=-Log(Rnd): T=i*M
U=S*R*Sin(T): V=S*Q*Cos(T)
T=S*A
X=U*Cos(T)+V*Sin(T)
Y=V*Cos(T)-U*Sin(T)
D=(X*X+Y*Y)/(R*R+Q*Q)
Z=99*((2.7^-D)+.1)
Z=Z*(Rnd-.5)^3
y0=Y*Cos(tt)+Z*Sin(tt)
Z=Z*Cos(tt)-Y*Sin(tt)
x0=uu+X*Cos(qq)+y0*Sin(qq)
y0=vv-X*Sin(qq)+y0*Cos(qq)
Pixel x0,y0
Next
Next
Loop

Hello Javavi, I find your code so beautiful and have translated it into another basic language - do I have your permission to also publish the result on another site (with acknowledgment of the author)?
see pic
run at a 800x600 display

Page 8 of 9