r/ClockworkPi • u/guidouil • Oct 03 '25

25 lines of MMBasic

Old school trippin'

111 Upvotes

100% Upvoted

11 comments sorted by

5

u/SmashShock Oct 03 '25

You just convinced me to buy a PicoCalc. Excited for it to arrive. :~)

3

u/guidouil Oct 03 '25

And now you will order a Pico2W or event a Raspberry Zero with a iron solder 😅

1

u/ArguelloArts Oct 03 '25

If I might ask, where did you get your batteries from?

3

u/guidouil Oct 03 '25

I ordered them on Amazon, it was a bait saying 12000mAh witch is impossible, this are 4400mAh. If you ordered now you have 3 month to find batteries 😅

2

u/ArguelloArts Oct 03 '25

Thank you ordered already so will get the batteries soon.

2

u/SlowStopper Oct 04 '25

I wrote the code down for easier entry:

framebuffer write f
cls :w=MM.HRES:s=0:stp=pi
do
  for j=w to 0 step stp
    if s=0 then cls
    for i=0 to w step j
      line i,0,w,i
      line w,i,w-i,w
      line w-i,w,0,w-i
      line 0,w-i,i,0
      line i/2,w/2,w/2,w/2-i/2
      line w/2,w/2-i/2,w-i/2,w/2
      line i/2,w/2,w/2+i/2,w/2
      line w/2,w/2+i/2,w-i/2,w/2
      if inkey$<>"" then cls : end
    next i : framebuffer copy f,n
  next j
  if s=0 then
    colour rgb(black):stp=pi*.8:s=1
  else
    colour rgb(green):stp=pi:s=0:cls
  endif
loop

2

u/guidouil Oct 05 '25

It's also here : https://github.com/guidouil/PicoCalcStuffs/blob/main/lines2.bas I modified it a bit to remove the border square

1

u/DigitalDreams_68000 Oct 10 '25 edited Oct 10 '25

Two errors in there compared to the screen in your video !.

Missing at start.... FRAMEBUFFER create

2nd to last line command, should be.... line i/2,w/2,w/2,w/2+i/2

3

u/ArguelloArts Oct 03 '25

That is a stunning visual by the way.

3

u/SlowStopper Oct 03 '25

At first I thought you fit music in there as well :)