Author Topic: Goldwave  (Read 1622 times)

B+

  • Guest
Goldwave
« on: January 29, 2018, 02:11:00 AM »
Hi Galileo, maybe you have something like this?

Code: [Select]
'goldwave by johnno copied and mod 2018-01-28
dark1 = rgb(0,0,32)
dark2 = rgb(0,32,0)
dark3 = rgb(32,0,0)

for t=1 to 60 step .1  '< changed
  cls 'changed
  'rect 0,0,600,600 color dark3 filled
  For y1 = 0 to 24
    For x1 = 0 to 24
      x=(12*(24-x1))+(12*y1)
      y=(-6*(24-x1))+(6*y1)+300
      d= ((10-x1)^2+(10-y1)^2)^.5
      h=60*sin(x1/4+t)+65
      if t>10 and t<20 then h=60*sin(y1/4+t)+65
      if t>20 and t<30 then h=60*sin((x1-y1)/4+t)+65
      if t>30 and t<40 then h=30*sin(x1/2+t)+30*sin(y1/2+t)+65
      if t>40 and t<50 then h=60*sin((x1+y1)/4+t)+65
      if t>50 and t<60 then h=60*sin(d*.3+t)+65
      'TOP
      p1 = [x,y-h,x+10,y+5-h,x+20,y-h,x+10,y-5-h]
      drawpoly p1 color rgb(242+.1*h,242+.1*h,h) filled  '< changed
      'FRONT-LEFT
      p2 = [x,y-h,x+10,y+5-h,x+10,y,x,y-5]
      drawpoly p2 color rgb(255,80,0) filled
      'FRONT-RIGHT
      p3 = [x+10,y+5-h,x+10,y,x+20,y-5,x+20,y-h]
      drawpoly p3 color rgb(255,150,0) filled
      'if inkey$ = chr$(27) then end '<<<<<<<<<<<<<<<<<<<<< this is THE time killer
    next
  next
  showpage '< changed
  delay 20 '<changed
next

Galileo

  • Guest
Re: Goldwave
« Reply #1 on: January 29, 2018, 06:11:09 PM »
Hi B+. Yeah, years ago I converted this code from BASIC-256 to Yabasic. However, Yabasic's "graphic engine" has only the ability to perform very simple animations, so the result is not good.

P.D.Translation from Spanish to English using the magnificent DeepL.

B+

  • Guest
Re: Goldwave
« Reply #2 on: January 29, 2018, 07:45:27 PM »
Ha! just so happens I was looking at Basic 256 today, I see this must be Johnno's source for a number of things.

johnno56

  • Guest
Re: Goldwave
« Reply #3 on: March 26, 2018, 10:05:16 AM »
Now this looks familiar... lol

J

B+

  • Guest
Re: Goldwave
« Reply #4 on: March 26, 2018, 02:50:37 PM »
Hey Johnno!

Here are some QB64 guys playing around with this and similar code:
https://www.qb64.org/forum/index.php?topic=179.0