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 4 of 4 | |||||
Author | Message | ||||
stanleyella Guru Joined: 25/06/2022 Location: United KingdomPosts: 2046 |
remember etch a sketch? https://www.ebay.co.uk/itm/286063259141 I had one as a kid, it was crap |
||||
Mixtel90 Guru Joined: 05/10/2019 Location: United KingdomPosts: 6655 |
They are more fun when you attach stepper motors to the knobs. :) Mick Zilog Inside! nascom.info for Nascom & Gemini Preliminary MMBasic docs & my PCB designs |
||||
javavi Senior Member Joined: 01/10/2023 Location: UkrainePosts: 167 |
Spirograph in monochrome & colour mode (1,2) under .MOD music for your meditations :)) SPIROGRAPH.zip |
||||
Martin H. Guru Joined: 04/06/2022 Location: GermanyPosts: 1100 |
La Linea CLS Restore lalinea n=1 Read x1,y1 Do Read x2,y2:Inc n:If x2=0 Then Exit If y2=255 Then Read x1,y1,x2,y2:Inc n,2 Line x1,y1,x2,y2:Line x1+1,y1,x2+1,y2:Line x1,y1+1,x2,y2+1 x1=x2:y1=y2 Loop 'Print n LaLinea: Data 1,149,46,149,1,255,90,149,112,149,112,136,111,119,110,105,106,89 Data 73,104,72,113,70,119,68,125,67,126,65,123,63,122,64,119,61,118 Data 62,113,65,106,60,106,58,102,65,102,104,78,100,73,99,70,99,65,101,61 Data 104,55,113,48,119,44,125,41,130,40,131,43,131,47,129,50,124,54,118,57 Data 125,57,122,63,121,67,121,76,124,80,127,79,130,74,131,71,132,71,134,76 Data 139,77,149,82,151,84,151,88,147,100,144,104,146,107,148,104,150,108 Data 149,110,150,108,153,109,152,112,149,115,153,121,152,124,150,123,144,117 Data 143,135,142,144,140,149,223,149 Data 0,0 'no comment |
||||
javavi Senior Member Joined: 01/10/2023 Location: UkrainePosts: 167 |
La BuBla Owl NX=18:NY=21 CSIZE=MM.VRes\(NY+2) SX=(MM.HRes-CSIZE*NX)\2 SX=MM.HRes-SX-CSIZE\2 SY=(MM.VRes-CSIZE*NY)\2 SY=SY+CSIZE\2 R=CSIZE/1.3 Restore OWL For IY=0 To NY-1 Read D% For IX=0 To NX-1 X=SX-IX*CSIZE Y=SY+IY*CSIZE If D% And 2^IX Then B=1 Else B=0 If B Then Circle X,Y,R,,,0,1 Next Next OWL: Data &H15555,&H08282,&H11111,&H02828 Data &H11011,&H08282,&H14105,&H0A008 Data &H15551,&H0AA00,&H15501,&H0AA00 Data &H05501,&H02A80,&H01541,&H00AA0 Data &H00551,&H00228,&H00445,&H0AAA2 Data &H00001 |
||||
matherp Guru Joined: 11/12/2012 Location: United KingdomPosts: 9048 |
Here is one modified from the CMM2 Welcome tape originally written by Sasquatch. Will run as-is on RP2350 VGA or HDMI or change to mode 0 for RP2040 VGA (black and white) The code should give you most (all?) of the tools needed to implement the other CMM2 turtle demos https://github.com/thwill1000/cmm2-welcome/tree/master/turtle Option explicit Option default none Dim integer TurtlePenup=1,TurtlePenColour=MM.Info(fcolour) Dim float TurtleDirection=0.0 Dim float TurtleX,TurtleY MODE 3 Option angle degrees Option console none ' Text 0, 0, "Random Recursive Fractal Pine Tree", "", 2 Text 2, 25, "Press Q to Quit", "", 1 turtle.penup turtle.move MM.HRes\2,400 turtle.pendown PineTree 70,19 Do :Loop Until Inkey$="Q" Save image "b:/pine" ' Sub pinetree(l!,d!) If d!<0 Then Exit Sub Local a!=110+20*Rnd If l!>5 Then Turtle.pen.colour(139,69,19) Else turtle.pen.colour(0,100,0) EndIf turtle.forward l! pinetree l!*0.8, d!-1 turtle.turn.right a! PineTree l! * 0.5, d! - 3 turtle.turn.right 120 PineTree l! * 0.5, d! - 3 turtle.turn.right 240-a! turtle.penup turtle.backward l! turtle.pendown End Sub ' Sub turtle.move(x!, y!) If Not TurtlePenup Then Line TurtleX,TurtleY,x!,y!,1,TurtlePenColour TurtleX=x! TurtleY=y! End Sub ' Sub turtle.penup TurtlePenup=1 End Sub ' Sub turtle.pendown TurtlePenup=0 End Sub ' Sub turtle.turn.right(a!) Inc TurtleDirection,a! If TurtleDirection!>360.0 Then Inc TurtleDirection!,-360.0 End Sub ' Sub turtle.turn.left(a!) Inc TurtleDirection,-a! If TurtleDirection!<0.0 Then Inc TurtleDirection!,360.0 End Sub ' Sub turtle.backward(l!) Local x!=TurtleX-Sin(TurtleDirection!)*l! Local y!=TurtleY+Cos(TurtleDirection!)*l! If Not TurtlePenup Then Line TurtleX,TurtleY,x!,y!,1,TurtlePenColour TurtleX=x! TurtleY=y! End Sub ' Sub turtle.forward(l!) Local x!=TurtleX+Sin(TurtleDirection!)*l! Local y!=TurtleY-Cos(TurtleDirection!)*l! If Not TurtlePenup Then Line TurtleX,TurtleY,x!,y!,1,TurtlePenColour TurtleX=x! TurtleY=y! End Sub ' Sub turtle.pen.colour(r%,g%,b%) TurtlePenColour=(r%<<16) + (g%<<8) + b% End Sub Edited 2024-10-14 00:43 by matherp |
||||
javavi Senior Member Joined: 01/10/2023 Location: UkrainePosts: 167 |
The Black Hole Mystery MODE 2: CLS x0=MM.HRes/2: y0=MM.VRes/2 z =2 Do n=(Int(Rnd*7)+1)*7000+1000 a=(Int(Rnd*18)+3)+10 b=Int(Rnd*19)/10+0.1 c=-(Int(Rnd*4)+1)*10 For i=1 To 3 Clr=Int(Rnd*&hFFFF00)+&hFF Tracery Next i Clr=0 Tracery Loop While Inkey$="" Sub Tracery x=x0: y=y0 For j=1 To n Pixel x+63, y+42, Clr u=y-Sgn(x-x0)*(Abs(b*(x-x0)-c))^1/z w=a-x+x0: x=u: y=w Next j End Sub Edited 2024-10-21 03:16 by javavi |
||||
javavi Senior Member Joined: 01/10/2023 Location: UkrainePosts: 167 |
Fractal Lace CLS A=1:B=-1:C=-13:K1=1.5:K2=1.5:X=0:Y=0 Do Pixel 320+Int(K1*X*4),240+Int(K2*Y*4) S=(X<0)-(X>=0) TMP=Y Y=A-X X=TMP-S*Log(Sqr(Abs(B*X-C))) Loop Until Inkey$<>"" |
||||
stanleyella Guru Joined: 25/06/2022 Location: United KingdomPosts: 2046 |
no lines but if there were they would not look curved try it, better than picture mode 2 cls '1 x=0:y=0 b1:inc x,24:b2:inc x,24:b1:inc x,24:b3:inc x,24:b4:inc x,24:b2:inc x,24:b1:inc x,24:b2 inc x,24:b1:inc x,24:b2:inc x,24:b1:inc x,24:b3:inc x,24:b4:inc x,24:b3:inc x,24:b4:inc x,24:b2 '2 inc y,24:x=0 b3:inc x,24:b1:inc x,24:b2:inc x,24:b1:inc x,24:b3:inc x,24:b4:inc x,24:b3:inc x,24:b4 inc x,24:b3:inc x,24:b1:inc x,24:b2:inc x,24:b1:inc x,24:b3:inc x,24:b4:inc x,24:b3:inc x,24:b4 '3 inc y,24:x=0 b4:inc x,24:b3:inc x,24:b1:inc x,24:b2:inc x,24:b1:inc x,24:b3:inc x,24:b4:inc x,24:b3 inc x,24:b4:inc x,24:b3:inc x,24:b1:inc x,24:b2:inc x,24:b1:inc x,24:b3:inc x,24:b4:inc x,24:b3 '4 inc y,24:x=0 b3:inc x,24:b4:inc x,24:b3:inc x,24:b1:inc x,24:b2:inc x,24:b1:inc x,24:b3:inc x,24:b4 inc x,24:b3:inc x,24:b4:inc x,24:b3:inc x,24:b1:inc x,24:b2:inc x,24:b1:inc x,24:b3:inc x,24:b4 '5 inc y,24:x=0 b4:inc x,24:b3:inc x,24:b4:inc x,24:b3:inc x,24:b1:inc x,24:b2:inc x,24:b1:inc x,24:b3 inc x,24:b4:inc x,24:b3:inc x,24:b4:inc x,24:b3:inc x,24:b1:inc x,24:b2:inc x,24:b1:inc x,24:b3 '6 inc y,24:x=0 b2:inc x,24:b4:inc x,24:b3:inc x,24:b4:inc x,24:b3:inc x,24:b1:inc x,24:b2:inc x,24:b1 inc x,24:b2:inc x,24:b4:inc x,24:b3:inc x,24:b4:inc x,24:b3:inc x,24:b1:inc x,24:b2:inc x,24:b1 '7 inc y,24:x=0 b1:inc x,24:b2:inc x,24:b4:inc x,24:b3:inc x,24:b4:inc x,24:b3:inc x,24:b1:inc x,24:b2 inc x,24:b1:inc x,24:b2:inc x,24:b4:inc x,24:b3:inc x,24:b4:inc x,24:b3:inc x,24:b1:inc x,24:b2 '8 inc y,24:x=0 b2:inc x,24:b1:inc x,24:b2:inc x,24:b4:inc x,24:b3:inc x,24:b4:inc x,24:b3:inc x,24:b1 inc x,24:b2:inc x,24:b1:inc x,24:b2:inc x,24:b4:inc x,24:b3:inc x,24:b4:inc x,24:b3:inc x,24:b1 '9 inc y,24:x=0 b1:inc x,24:b2:inc x,24:b1:inc x,24:b3:inc x,24:b4:inc x,24:b3:inc x,24:b4:inc x,24:b2 inc x,24:b1:inc x,24:b2:inc x,24:b1:inc x,24:b3:inc x,24:b4:inc x,24:b3:inc x,24:b4:inc x,24:b2 '10 inc y,24:x=0 b3:inc x,24:b1:inc x,24:b2:inc x,24:b1:inc x,24:b3:inc x,24:b4:inc x,24:b3:inc x,24:b4 inc x,24:b3:inc x,24:b1:inc x,24:b2:inc x,24:b1:inc x,24:b3:inc x,24:b4:inc x,24:b3:inc x,24:b4 '11 inc y,24:x=0 b4:inc x,24:b3:inc x,24:b1:inc x,24:b2:inc x,24:b1:inc x,24:b3:inc x,24:b4:inc x,24:b3 inc x,24:b4:inc x,24:b3:inc x,24:b1:inc x,24:b2:inc x,24:b1:inc x,24:b3:inc x,24:b4:inc x,24:b3 do:loop sub b1: box x,y,24,24,0,rgb(white),rgb(white) box x+2,y+2,8,8,0,rgb(black),rgb(black) box x+14,y+14,8,8,0,rgb(black),rgb(black) end sub sub b2: box x,y,24,24,0,rgb(black),rgb(black) box x+2,y+2,8,8,0,rgb(white),rgb(white) box x+14,y+14,8,8,0,rgb(white),rgb(white) end sub sub b3: box x,y,24,24,0,rgb(black),rgb(black) box x+2,y+14,8,8,0,rgb(white),rgb(white) box x+14,y+2,8,8,0,rgb(white),rgb(white) end sub sub b4: box x,y,24,24,0,rgb(white),rgb(white) box x+2,y+14,8,8,0,rgb(black),rgb(black) box x+14,y+2,8,8,0,rgb(black),rgb(black) end sub Edited 2024-11-02 08:58 by stanleyella |
||||
Page 4 of 4 |
Print this page |