TheBackShed.com

Home	JAQForum Ver 24.01
Log In or Join
Active Topics
Local Time 14:17 06 Nov 2025	Privacy Policy
Jump to

Notice. New forum software under development. It's going to miss a few functions and look a bit ugly for a while, but I'm working on it full time now as the old forum was too unstable. Couple days, all good. If you notice any issues, please contact me.

Forum Index : Microcontroller and PC projects : PicoMiteVGA DEMO

Page 10 of 10

Author

Message

javavi

Guru

Joined: 01/10/2023
Location: Ukraine
Posts: 518

Posted: 04:56pm 18 Oct 2025

Copy link to clipboard

Print this post

Landscape

MODE 2
CLS Map(1)
r=Rad(35):m%=4
For y%=0 To MM.VRES
For x%=0 To MM.HRES
h=0
For i%=1 To 4
x0=x%/i%:y0=y%/i%
a=r*i%
Co=Cos(a):Si=Sin(a)
s=x0*Co-y0*Si
t=x0*Si+y0*Co
h=h+Sin(s/5)*4+Sin(t/7)*5
Next
If h>-2 Then
Color Map(4+Abs(h) Mod 7)
Pixel x0*m%,y0*m%
EndIf
Next : Next

javavi

Guru

Joined: 01/10/2023
Location: Ukraine
Posts: 518

Posted: 07:11pm 31 Oct 2025

Copy link to clipboard

Print this post

Plasma

MODE 2
Map Reset
Dim integer cm(15)=(0,15,7,1,0,0,0,0,0,0,0,0,0,0,0,0)
Colour Map cm(),cm()

r=Rad(35)
For Y0%=0 To MM.VRES
For X0%=0 To MM.HRES
h=0
For i%=1 To 3
x=(X0%-10)/i%:y=Y0%/i%:a=r*i%
C0=Cos(a):S0=Sin(a)
s=x*C0-y*S0:t=x*S0+y*C0
h=h+Sin(s/5)*4+Sin(t/7)*5
Next
Pixel X0%,Y0%,Map((h+24)Mod 16)
Next :Next

Do
T=cm(0)
For i%=0 To 14:cm(i%)=cm(i%+1):Next
cm(15)=T
For i%=0 To 15:Map(i%)=cm(i%):Next
Map Set
Pause 50
Loop

AlbertR
Regular Member

Joined: 29/05/2025
Location: Germany
Posts: 61

Posted: 03:37pm 01 Nov 2025

Copy link to clipboard

Print this post

I love demos like this and can watch them over and over again. I think a plasma demo is a must, great work!

Albert
Edited 2025-11-02 01:38 by AlbertR

stanleyella

Guru

Joined: 25/06/2022
Location: United Kingdom
Posts: 2677

Posted: 05:45pm 01 Nov 2025

Copy link to clipboard

Print this post

nice

Pluto
Guru

Joined: 09/06/2017
Location: Finland
Posts: 396

Posted: 09:25pm 01 Nov 2025

Copy link to clipboard

Print this post

Cannot resist to immediately run and enjoy these interesting artworks.
Pluto

Page 10 of 10

Print this page

To reply to this topic, you need to log in.