Bonkers Symphony No. 37

Started by bplus, November 24, 2019, 16:11:25

Previous topic - Next topic

bplus

Rollover (in your grave) Beethoven:

' Bonkers Symphony Number 37.bas  SmallBASIC 0.12.8 [B+=MGA] 2017-04-21

def rand(lo, hi) = (rnd * (hi - lo + 1)) \ 1 + lo
def rdir = iff(rnd < .5, -1, 1)

gravity = 3

'balls
bR = 10
n = 6
speed = 12
dim x(n), y(n), a(n), c(n), rr(n), gg(n), bb(n), rd(n)
for i = 1 to n
  x(i) = rand(xmax/2-10, xmax/2+10)
  y(i) = rand(-200, 0)
  rd(i) = rand(3, 20)
  a(i) = pi/2 + pi/90 * rdir
  rr(i) = rand(60, 100)
  gg(i) = rand(60, 100)
  bb(i) = rand(60, 100)
next

'pins
pR = 25
maxrow = 7
nP = maxrow * (maxrow + 1) * .5
pxo = xmax / (maxrow + 1) 'pin space along x
pyo = ymax / (maxrow + 1) 'pin spacing along y
dim px(nP), py(nP)
for row = 1 to maxrow
  for col = 1 TO row
    pidx +=1
    px(pidx) = pxo*col+(maxrow - row) * .5*pxo
    py(pidx) = pyo*row
  next
next

clrMode = 1
while 1
  k = inkey
  if asc(k) = 32 then clrMode *= -1
  if clrMode < 0 then cls

  'draw pins
  for i = 1 to nP
    for r = pR to 1 step -1
      color rgb(r/pR*255,r/pR*255, r/pR*255)
      circle px(i), py(i), r filled
    next
  next

  'calc collsions
  for i = 1 to n
    for j = 1 to nP
      if sqr((x(i)-px(j))^2 + (y(i)-py(j))^2) < rd(i) + pR then
          a(i) = atan2(y(i)-py(j), x(i)-px(j))
          color 0
          circle px(j), py(j), pR filled
          sound 120 + py(j)/ ymax * 5000, px(j) / xmax * 55
          exit for
      end if
    next
    for j = i + 1 to n
      if j <> i and c(j) <> 1 then
        if sqr((x(i)-x(j))^2 + (y(i)-y(j))^2) < rd(i) + rd(j) then
          a(i) = atan2(y(i)-y(j), x(i)-x(j))
          a(j) = atan2(y(j)-y(i), x(j)-x(i))
          c(i) = 1 : c(j) = 1
          exit for
        fi
      fi
    next
   
    'update balls
    dx = cos(a(i)) * speed
    dy = sin(a(i)) * speed + gravity
    a(i) = atan2(dy, dx)
    x(i) = x(i) + cos(a(i)) * speed
    y(i) = y(i) + sin(a(i)) * speed
   
    if x(i) < rd(i) or x(i) > xmax + rd(i) or y(i) > ymax + rd(i) then
      x(i) = rand(xmax/2-10, xmax/2+10)
      y(i) = rand(-250, -bR)
      a(i) = pi/2 + pi/90 * rdir
    fi
    if a(i) > 2 * pi then a(i) = a(i) - 2 * pi
    if a(i) < 0 then a(i) = a(i) + 2 * pi
   
   for r = rd(i) to 1 step -1
      color rgb(255-rr(i)-150*r/rd(i), 255-gg(i)-150*r/rd(i), 255-bb(i)-150*r/rd(i))
      circle x(i), y(i), r filled
    next
    c(i) = 0
  next
  showpage
  delay 10
wend


You know the Hershey's Kiss commercial that shows up this time of year with the bell ringing candy ornaments well imagine a pinball electronic version of that...

There! my Christmas lights are up LOL

hmm... I think I will revise my QB64 version for Xmas 2019. :)
1 person likes this

Aurel [banned]

Very nice bonkers program.
here is with my SBEdit quick code editor..because i am simply confused with SB original editor ,,,
(Y)