[RC] Vibrating Rectangles

[tenochtitlanuk]

This is a ( poorly thought out) suggested task on Rosetta Code. Gave me a couple of happy hours of coding to get this..

Will put my method up on my site in a few days- meanwhile anyone up for trying it out? Once you've got it working there are all sorts of variations to try- say triangles, or rotating each of the nested shapes, or different colour sequences...

[Rod]

www.rosettacode.org/wiki/Vibrating_rectangles

probably comes down to what they mean by "fading in" (edit Oh I see that John has it fading to the centre, just what was asked for.)

This certainly vibrates!


   WindowWidth = DisplayWidth
   WindowHeight = DisplayHeight
   UpperLeftX = int((DisplayWidth-WindowWidth)/2)
   UpperLeftY = int((DisplayHeight-WindowHeight)/2)
   midx=int(WindowWidth/2)
   midy=int(WindowHeight/2)

   open "Vibrating Rectangle" for graphics_nsb as #1
   #1 "down ;size 8; trapclose [quit]"


   while 1
       scan
       for n=0 to 255  step 10
           #1 "place ";midx-n;" ";midy-n
           #1 "box ";midx+n;" ";midy+n
           #1 "color ";r;" ";g;" ";b
           r=r+(r<255)*10
           g=g+(g<255)*10
           b=b+(b<255)*10

       next
       r=rnd(0)*255+1
       g=rnd(0)*255+1
       b=rnd(0)*255+1
   wend
   wait

   [quit]
   close #1
   end



[tenochtitlanuk]

Not sure if that is not the opposite of eye-catching!! Hope I 'fade away' with equally dramatic effects as I head for yet another birthday in my 70s!

I love LB's ability to do this kind of graphics so easily..

[tenochtitlanuk]

Some variations..

[tenochtitlanuk]

See sequential fader page
for example code of the faders.