Not sure if this is what you meant...

by TheBOB (Login qb432l)


This will draw circles of the same size with an advancing center. You can alter the x/y increments as well as the frequency of change (MOD statement) to suit your purposes. For example, using MOD 12, the spirals never overlap.
You can also take out the rem beside the radius statement which will vary the radius of the spirals, hence producing a more smoke-like result. Naturally, you can also vary the x/y increments using RND.


'Copy code from here-------------------------------
CONST deg! = 3.14159 / 180
x = 100
y = 300
radius = 30
n = n + 1
IF n = 360 THEN n = 0
xx = x + radius * SIN(n * deg!)
yy = y + radius * COS(n * deg!)
PSET (xx, yy), 7
IF n MOD 30 = 0 THEN
x = x + 1
y = y - 1
'radius = radius + FIX(RND * 3) - 1

This message has been edited by qb432l on Mar 14, 2009 2:45 PM

Posted on Mar 14, 2009, 2:34 PM

Respond to this message   

Goto Forum Home

Response TitleAuthor and Date
* Show them some REAL smoke Bob. Not 6 year old stuff!Clippy on Mar 15
 I'd be glad to, if lisztfr is interested...TheBOB on Mar 16
  SmokeBen on Mar 16
   I'd be interested in seeing such an algorithm, myself...TheBOB on Mar 16
    That is pretty nice thebobBen on Mar 16
     Very nice...TheBOB on Mar 16
   An idea...Artelius on Mar 16
    That looks great...TheBOB on Mar 16
    No offense, it looks like time-lapse photography of mold growing on my monitor. SOLUTION>Pete on Mar 16
     * What is that, a penguin? Is TileX some sort of Linux distribution?qbguy on Mar 16
      TileX is a product similar to simple roy...Pete on Mar 16
       Speaking of Simple Roy............Clippy on Mar 16
        Well...Pete on Mar 16
         * I did that stuff with the union! It will NEVER work! PAC's do.Clippy on Mar 16
      Ascii art picture of Tux (the Linux penguin logo) [* URL]qbguy on Mar 16
       * Looks kinda fat. Must not do much. :PClippy on Mar 19
        Linus Torvalds quoteqbguy on Mar 19
   smoke.basBen on Mar 17
    You definitely captured the "cigarette smoke" swirl effect...TheBOB on Mar 17
    bravoluka ličina on Mar 21
     * Translation: SUPER! Did it take long to code? I add to my tutorial.Clippy on Mar 21
      Not what google gave me.Ben on Mar 21
  Not too complicated, and foremost in screen 2Lisztfr on Mar 16
   *lol - I think you better stick with the spiral idea.TheBOB on Mar 16
    I just remember i had an amazing sky demo .BASLisztfr on Mar 16
     *lol - well, it's a great header, but the program seems to be lacking something.TheBOB on Mar 16
      * Copied from IDE? Try using Notepad to copy it.Clippy on Mar 16
      Rainstorm, URL*Lisztfr on Mar 17
       I moved it to the Graphics Forum...Pete on Mar 17

 Copyright © 1999-2018 Network54. All rights reserved.   Terms of Use   Privacy Statement