Marvin has a ball

[bplus]

My first use of an image sheet I think.

Here is what the SdlBasic code looked like 6 years ago!

Code: [Select]

'
'    Marvin has a ball.sdlbas 2015-05-29 j&m
'
'    needs: Marvin32x48.png  y=0 back, y=1 right, y=2 front, y=3 left
'
sub rball(x)
for i=12 to 0 step -1
ink(rgb(255-i*21,0,0))
fillcircle(x,388,i)
next
end sub
sub bball(x,y)
for i=125 to 0 step -1
ink(rgb(255-i*2,0,0))
fillcircle(x,y,i)
next
end sub
'========================================================== main
setDisplay(600,500,32,1)
autoback(-2)
loadImage("marvin32x48.png",1)
x = 0:y=0:imx=0:imy=1:marvinX=425:marvinY=352
ink(rgb(0,215,65))
bar(0,400,screenwidth, screenheight)
ink(rgb(0,185,255))
bar(0,0,screenwidth,400)
while 0=0
    ink(rgb(0,185,255))
bar(0,0,screenwidth,400)
    blt(1,(marvinX mod 4)*32,imy*48,32,48,marvinX,marvinY)
rball(marvinX+35)
    screenswap
    wait(50)
    marvinX = marvinX + 1
    if marvinX>600 then: exit while: end if
wend
imy=3
while 0=0
    ink(rgb(0,185,255))
bar(0,0,screenwidth,400)
    blt(1,(marvinX mod 4)*32,imy*48,32,48,marvinX,marvinY)
bball(marvinX+130,275)
    screenswap
    marvinX = marvinX - 21
    if marvinX<-295 then
text(270,120,16,"wait. . .  ")
screenswap
wait(3000)
exit while
end if
wend
imy=2:marvinX=300:marvinY=400:ballY=marvinY+173
while 0=0
    ink(rgb(0,185,255))
bar(0,0,screenwidth,400)
bball(marvinX+16,ballY)
blt(1,(marvinY mod 4)*32,imy*48,32,48,marvinX,marvinY)
ink(rgb(0,215,65))
bar(0,400,screenwidth, screenheight)
    screenswap
    marvinY = marvinY -1
if marvinY<-80 then
end
    elseif marvinY=0 then
marvinY=-49
elseif marvinY<90 then
ballY =290 :imy=0
else
ballY= marvinY+173
end if
wend


Today's tranlation and mods for QB64:

Code: QB64: [Select]

1. _Title "Marvin has a ball" ' b+ trans from SdlBasic 2021-09-29
2. ' needs: Marvin32x48.png  y=0 back, y=1 right, y=2 front, y=3 left
3. ratio = _DesktopHeight / _DesktopWidth
4. Screen _NewImage(800, 800 * ratio, 32)
5. Do: Loop Until _ScreenExists
6. _FullScreen
7. m& = _LoadImage("marvin32x48.png")
8. x = 0: y = 0: imx = 0: imy = 1: marvinX = 425: marvinY = 352
9. Line (0, 400)-(_Width, _Height), _RGB32(0, 215, 65), BF
10. Line (0, 0)-(_Width, 400), _RGB32(0, 185, 255), BF
11. While _KeyDown(27) = 0 ' sisyphus
12.     Line (0, 0)-(_Width, 400), _RGB32(0, 185, 255), BF
13.     blt m&, (marvinX Mod 4) * 32, imy * 48, 32, 48, marvinX, marvinY
14.     drawBall marvinX + 35, 400 - 12, 12, &HFFFF0000
15.     _Display
16.     _Limit 40
17.     marvinX = marvinX + 1
18.     If marvinX > _Width Then Exit While
19. Wend
20. imy = 3: l = 5
21. While _KeyDown(27) = 0 ' run!
22.     Line (0, 0)-(_Width, 400), _RGB32(0, 185, 255), BF
23.     blt m&, (marvinX Mod 4) * 32, imy * 48, 32, 48, marvinX, marvinY
24.     drawBall marvinX + 130, 275, 125, &HFFFF0000
25.     _Display
26.     marvinX = marvinX - 21
27.     If marvinX < -295 Then
28.         _Display
29.         _Delay 3
30.         Exit While
31.     End If
32.     _Limit l
33.     l = l + .5
34. Wend
35. imy = 2: marvinX = _Width / 2 - 16: marvinY = 400: ballY = marvinY + 173
36. While _KeyDown(27) = 0 ' conquer
37.     Line (0, 0)-(_Width, 400), _RGB32(0, 185, 255), BF
38.     drawBall marvinX + 16, ballY, 125, &HFFFF0000
39.     blt m&, (marvinY Mod 4) * 32, imy * 48, 32, 48, marvinX, marvinY
40.     Line (0, 400)-(_Width, _Height), _RGB32(0, 215, 65), BF
41.     _Display
42.     _Limit 10
43.     marvinY = marvinY - 1
44.     If marvinY < -80 Then
45.         End
46.     ElseIf marvinY = 0 Then
47.         marvinY = -49
48.     ElseIf marvinY < 90 Then
49.         ballY = 280: imy = 0
50.     Else
51.         ballY = marvinY + 173
52.     End If
53. Wend
54.  
55. Sub blt (imageHandle&, sx, sy, sw, sh, dx, dy) ' for johnno to trans SdlBasic to QB64
56.     _PutImage (dx, dy), imageHandle&, 0, (sx, sy)-Step(sw, sh)
57. End Sub
58.  
59. Sub drawBall (x, y, r, c As _Unsigned Long)
60.     Dim rred As Long, grn As Long, blu As Long, rr As Long, f
61.     rred = _Red32(c): grn = _Green32(c): blu = _Blue32(c)
62.     For rr = r To 0 Step -1
63.         f = 1 - rr / r
64.         fcirc x, y, rr, _RGB32(rred * f, grn * f, blu * f)
65.     Next
66. End Sub
67.  
68. Sub fcirc (CX As Long, CY As Long, R As Long, C As _Unsigned Long)
69.     Dim Radius As Long, RadiusError As Long
70.     Dim X As Long, Y As Long
71.     Radius = Abs(R): RadiusError = -Radius: X = Radius: Y = 0
72.     If Radius = 0 Then PSet (CX, CY), C: Exit Sub
73.     Line (CX - X, CY)-(CX + X, CY), C, BF
74.     While X > Y
75.         RadiusError = RadiusError + Y * 2 + 1
76.         If RadiusError >= 0 Then
77.             If X <> Y + 1 Then
78.                 Line (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
79.                 Line (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
80.             End If
81.             X = X - 1
82.             RadiusError = RadiusError - X * 2
83.         End If
84.         Y = Y + 1
85.         Line (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
86.         Line (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
87.     Wend
88. End Sub
89.  

@johnno56  you might be interested in the blt translation for use in QB64, after I looked up SdlBasic docs for the argument variables it was easy to translate and it worked the first time!

Attached is the zip of code with image.

[Pete]

Marvin only has one ball? No wonder he's a little testy! Add some Loony Tunes music in the background, and you'd just about have a full blown cartoon going on there. Nice job!

Pete

[johnno56]

What?!  No space modulator?

Nice conversion... of course I am going to have a close look at the super-complicated 'blt' routine... with an extreme 'scrute'... Cool...

[Qwerkey]

Marvin only has one ball?

Pete

The other, of course, is in the Albert Hall.  [If this British reference baffles anyone, please consult Colonel Bogey].

[Pete]

What?!  No space modulator?

Nice conversion... of course I am going to have a close look at the super-complicated 'blt' routine... with an extreme 'scrute'... Cool...

Really? Didn't you know the right to bear space modulators was rescinded by the Martian Government in the early 1990's? Unfortunately, It did not prevent the use of "Ghost Modulators," which still creates interplanetary havoc to this day.

Pete

[bplus]

OK after a little Google hunt, how about Colonel Bogey's March?

Edit: Eh, skip the you tube thing on Hitler, sorry.

[johnno56]

Pete,

I must have missed the interplanetary emails from the Martian Government. Rescinded you say? I will take you at your word.

J

[bplus]

Space Modulator?

Rescinded or overcome by bugs?

[Pete]

Why hasn't the "Me Too" movement called for a person-cott of Bugs Bunny? It's clear from the video screen shot Bugs he is looking up Marvin's skirt!

Pete

[johnno56]

Pete,

A couple of things...

First: "Me too" movement?

Second: "Skirt" , by traditional means, implies that the Martian is female. As he is clearly not female, and he is not a Celt (which implies the wearing of a Kilt), what he is wearing, although 'looks' like a skirt, would not be a skirt... Besides, when we watched this as kids, 'is he wearing a skirt?', did not enter our minds. We watched it because it was fun... I found the Martian's voice and lack of facial features funny... and the way he walked...

Actually... He looked more like a Roman soldier... Which fits the perception of Mars, the god of war... Roman soldiers wore a 'skirt' called a 'Pteruges' made of either leather or linen. Enough of the history lessons....

I still watch Bugs Bunny cartoons... So cool...

[Pete]

Me Too is a left wing feminist movement. I'll tell you things are a lot more "Looney" these days than back in the 1960's. Frankly I prefer U2. What came out of their mouths had a nice beat, and you could dance to it.

It's still a skirt.

Pete

[Dav]

Mel Blanc was such a great voice actor. Until I looked it up, I didn’t know he did the voice for Marvin too, as well as bugs bunny. 

To keep it on topic, I enjoyed running the code.  Thanks for posting the sdlbasic code for comparison. I’ve never look into sdlbasic. Interesting looking. Small code too.

- Dav

[Pete]

Mel Blanc was such a great voice actor. Until I looked it up, I didn’t know he did the voice for Marvin too, as well as bugs bunny. 

To keep it on topic, I enjoyed running the code.  Thanks for posting the sdlbasic code for comparison. I’ve never look into sdlbasic. Interesting looking. Small code too.

- Dav

SDL was the window rendering software for QB64, before Rob switched to OpenGL. I still have a graphics GUI program that ran perfectly in the SDL QB64 versions, but has some misplacement of pixels in the OpenGL versions. Go figure.

Pete

[johnno56]

Dav,

If you need to know anything about sdlbasic, well - not everything, just ask.

Pete,

Let's agree to disagree... (Psst... Not a skirt... Moo Ha ha...)

[Dav]

Dav,
If you need to know anything about sdlbasic, well - not everything, just ask.

Thanks!  I’ll remember that.

 - Dav