Qbasicnews.com
September 23, 2020, 08:42:38 PM
 Pages: 1 ... 13 14 [15]
 Author Topic: Challenge....  (Read 68651 times)
Mango
Wandering Guru

Posts: 360

 « Reply #210 on: May 26, 2003, 09:07:57 PM »

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
 Logged
toonski84
__/--\__

Posts: 2567

 « Reply #211 on: May 26, 2003, 09:44:56 PM »

hey mango, no problem.  change the first line to this

Code:
1 if g = 0 then screen 12 else rot = rot + .1
 Logged

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
Mango
Wandering Guru

Posts: 360

 « Reply #212 on: May 26, 2003, 11:55:43 PM »

Quote from: "toonski84"
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?
 Logged
toonski84
__/--\__

Posts: 2567

 « Reply #213 on: May 27, 2003, 12:19:23 AM »

it looked fine to me, it was pretty cool, reminded me of a dna pattern.
 Logged

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
oracle
*/-\*

Posts: 3652

 « Reply #214 on: May 27, 2003, 01:09:06 AM »

Yeah, the DNA was cool.

Toonski: Line 8:
Code:
WAIT &H3DA, 8
is a little better than your count-delay  :wink:
 Logged

toonski84
__/--\__

Posts: 2567

 « Reply #215 on: May 27, 2003, 01:11:59 AM »

i was afraid to test it in text mode *tests* yeah, it's too fast on mine.
 Logged

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
relsoft
*/-\*

Posts: 3927

 « Reply #216 on: May 27, 2003, 02:36:14 AM »

Quote from: "relsoft"
*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. :*)
 Logged

y smiley is 24 bit.

Genso's Junkyard:
http://rel.betterwebber.com/
 Pages: 1 ... 13 14 [15]