Posts: 358
Threads: 15
Joined: May 2003
try this one...I lifted the idea...from a 27 line prog I found on the net...
Code:
1 if g = 0 then SCREEN 12 else rot = rot + .1
2 rot2 = rot2 + .1 + .2 * p
3 FOR g = -8 TO 8
4 IF rot2 > 25.1 OR rot2 < 0 THEN p = NOT p ELSE CIRCLE ((320 + 10 * rot2 * SIN(1 * rot)) + ((9 - ABS(g)) * SGN(g) * 6) * SIN(rot), (350 + 10 * SIN(1 * rot)) + (((9 - ABS(g)) * SGN(g) * 2) + 4) * SIN(rot)), 9 - ABS(g), ABS(14 - 4 * ABS(g))
5 CIRCLE ((160) + ((9 - ABS(g)) * SGN(g) * 10) * COS(rot), (400 + -30 * SIN(1 * rot)) + (((9 - ABS(g)) * SGN(g) * 2) + 4) * SIN(rot)), 9 - ABS(g), 1 + ABS(g)
6 CIRCLE ((480) + ((9 - ABS(g)) * SGN(g) * 10) * COS(rot), (400 + 30 * SIN(1 * rot)) + (((9 - ABS(g)) * SGN(g) * 2) + 4) * SIN(rot)), 9 - ABS(g), 1 + ABS(g)
7 NEXT g
8 IF INKEY$ = "" THEN PRINT ELSE END
9 GOTO 1
Posts: 2,020
Threads: 24
Joined: Jun 2002
hey mango, no problem. change the first line to this
Code:
1 if g = 0 then screen 12 else rot = rot + .1
i]"I know what you're thinking. Did he fire six shots or only five? Well, to tell you the truth, in all this excitement, I've kinda lost track myself. But being as this is a .44 Magnum ... you've got to ask yourself one question: 'Do I feel lucky?' Well, do ya punk?"[/i] - Dirty Harry
Posts: 358
Threads: 15
Joined: May 2003
Quote:hey mango, no problem. change the first line to this
Code:
1 if g = 0 then screen 12 else rot = rot + .1
Thanks toonski...I couldn't figure it out...the solution was so obvious. I didn't want to lose a 3d thingie and couldn't see a way to keep all 3 plus have the center one wobble without getting rid of the screen line.
What'd you think of the graphic?
There's a bug that I can't fix as a 9-liner...at the min and max of the wobble (where (p) goes to (NOT p)) the center rotor doesn't show...it only shows up as 1/250 cycles, so it's not that distracting...do you see a way to do line 4 so that I can still do the comparison while and still printing the circle?
Posts: 2,020
Threads: 24
Joined: Jun 2002
it looked fine to me, it was pretty cool, reminded me of a dna pattern.
i]"I know what you're thinking. Did he fire six shots or only five? Well, to tell you the truth, in all this excitement, I've kinda lost track myself. But being as this is a .44 Magnum ... you've got to ask yourself one question: 'Do I feel lucky?' Well, do ya punk?"[/i] - Dirty Harry
Posts: 3,343
Threads: 83
Joined: Mar 2003
Yeah, the DNA was cool.
Toonski: Line 8:
is a little better than your count-delay :wink:
Posts: 2,020
Threads: 24
Joined: Jun 2002
i was afraid to test it in text mode *tests* yeah, it's too fast on mine.
i]"I know what you're thinking. Did he fire six shots or only five? Well, to tell you the truth, in all this excitement, I've kinda lost track myself. But being as this is a .44 Magnum ... you've got to ask yourself one question: 'Do I feel lucky?' Well, do ya punk?"[/i] - Dirty Harry
Posts: 3,288
Threads: 167
Joined: Nov 2001
Quote:relsoft Wrote:*Tries to think of new gfx fx.......
Please, Mr. Rel. Please use your valuable time in those people who're still waiting for your slice of the cake. Quite a few. You know.
*muffled voice* Joe! It's your turn now!
Okay, okay... I won't enter any fx here until I put sumthing in the bunker.
These 9 liners nearly killed RelLib. :*)