## Not sure if this is what you meant...by TheBOB (Login qb432l)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 radius = 30 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 'radius = radius + FIX(RND * 3) - 1 END IF LOOP WHILE INKEY$ = ""
Posted on Mar 14, 2009, 2:34 PMRespond to this message Goto Forum Home |

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