QB / QB64 Discussion Forum      Other Subforums, Links and Downloads
 

 Return to Index  

This is cool

March 31 2012 at 4:11 PM
Ben  (no login)


Response to Graphics Challenge

 

I like this type of thing. I may write more elaboreate later. Give me a sec i'll reply with one a i wrote a year ago

SCREEN 9, , 1, 0
j = 1
DO
j = (j + 1) MOD 65535
LINE (0, 0)-(640, 350), 0, BF
PSET (320, 175)
FOR i = 0 TO 100 STEP .1
LINE -(5 * i * COS(i + j * .5) + 320, 5 * i * SIN(i + j * .5) + 175)
NEXT

WAIT &H3DA, 8
PCOPY 1, 0

WAIT &H3DA, 8, 8

LOOP UNTIL INP(&H60) = 1
SYSTEM

 
 Respond to this message   
Responses

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