Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: bplus on September 29, 2021, 09:21:11 pm

Title: Marvin has a ball
Post by: bplus on September 29, 2021, 09:21:11 pm
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
  4. Screen _NewImage(800, 800 * ratio, 32)
  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
  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
  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
  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)
  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
  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
  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.
Title: Re: Marvin has a ball
Post by: Pete on September 29, 2021, 11:09:57 pm
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

Title: Re: Marvin has a ball
Post by: johnno56 on September 30, 2021, 05:33:22 am
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...
Title: Re: Marvin has a ball
Post by: Qwerkey on September 30, 2021, 07:08:19 am
Quote from: Pete on September 29, 2021, 11:09:57 pm
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].
Title: Re: Marvin has a ball
Post by: Pete on September 30, 2021, 01:06:20 pm
Quote from: johnno56 on September 30, 2021, 05:33:22 am
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
Title: Re: Marvin has a ball
Post by: bplus on September 30, 2021, 02:14:01 pm
OK after a little Google hunt, how about Colonel Bogey's March?

Edit: Eh, skip the you tube thing on Hitler, sorry.
Title: Re: Marvin has a ball
Post by: johnno56 on September 30, 2021, 04:59:42 pm
Pete,

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

J
Title: Re: Marvin has a ball
Post by: bplus on September 30, 2021, 05:06:28 pm
Space Modulator?



Rescinded or overcome by bugs?
Title: Re: Marvin has a ball
Post by: Pete on September 30, 2021, 05:21:34 pm
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
Title: Re: Marvin has a ball
Post by: johnno56 on September 30, 2021, 05:44:35 pm
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...
Title: Re: Marvin has a ball
Post by: Pete on September 30, 2021, 06:44:47 pm
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
Title: Re: Marvin has a ball
Post by: Dav on September 30, 2021, 06:46:11 pm
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
Title: Re: Marvin has a ball
Post by: Pete on September 30, 2021, 07:16:32 pm
Quote from: Dav on September 30, 2021, 06:46:11 pm
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
Title: Re: Marvin has a ball
Post by: johnno56 on October 01, 2021, 01:54:43 am
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...)
Title: Re: Marvin has a ball
Post by: Dav on October 01, 2021, 08:09:49 am
Quote from: johnno56 on October 01, 2021, 01:54:43 am
Dav,
If you need to know anything about sdlbasic, well - not everything, just ask.

Thanks!  I’ll remember that.

 - Dav
Title: Re: Marvin has a ball
Post by: Pete on October 01, 2021, 10:21:42 am
Well I guess Steve has some competition. I would have thought sdlBASIC was a thing of the past, but it turns out they still maintain an active project at SourceForge, and a website sub-domain at altervista.org. TheBOB would love it. Several keywords named with "bob" such as autoUpdateBob() . I wonder... When was the last time TheBOB was auto-Updated? Oh well, that's probably none of my business!

Pete
Text Only | Text with Attachments