TheBackShed.com

Home	JAQForum Ver 24.01
Log In or Join
Active Topics
Local Time 10:30 26 Oct 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: 517

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

Page 10 of 10

Print this page

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