Qbasicnews.com
November 21, 2019, 04:22:49 PM *
Welcome, Guest. Please login or register.

Login with username, password and session length
News: Back to Qbasicnews.com | QB Online Help | FAQ | Chat | All Basic Code | QB Knowledge Base
 
   Home   Help Search Login Register  
Pages: 1 ... 13 14 [15]
  Print  
Author Topic: Challenge....  (Read 63598 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



WWW
« 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



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

Quote from: "Hexadecimal Disaster"
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]
  Print  
 
Jump to:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!