# Not sure if this is what you meant...

Graphics-Forum

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.

-Bob

'Copy code from here-------------------------------
DEFINT A-Z
CONST deg! = 3.14159 / 180
RANDOMIZE TIMER
SCREEN 12
x = 100
y = 300
DO
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
END IF
LOOP WHILE INKEY\$ = ""

 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 Title Author 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 Smoke Ben on Mar 16 I'd be interested in seeing such an algorithm, myself... TheBOB on Mar 16 That is pretty nice thebob Ben 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. :P Clippy on Mar 19 Linus Torvalds quote qbguy on Mar 19 smoke.bas Ben on Mar 17 You definitely captured the "cigarette smoke" swirl effect... TheBOB on Mar 17 bravo luka 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 2 Lisztfr 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 .BAS Lisztfr 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