|
25 Years of Programming
An open source source for C, C++, OWL, BASIC, MDB, XLS, DOT, and more... |
Home Projects Up Sitemap Search Blog Forum+Chat About Us Privacy Terms of Use Feedback FAQ Images Services Ads Donate Humor |
10 'ATTRACT.BAS 3-11-90 11 'COPYRIGHT (C)1990 BY STEVEN WHITNEY. 12 'Published under GNU GPL (General Public License) Version 2, with ABSOLUTELY NO WARRANTY. 20 'EXAMPLE OF STRANGE ATTRACTOR?? WAVEFORM APPEARS. 30 'NO IDEA IF THIS DEMONSTRATES AN ATTRACTOR AT ALL, OR WHAT IT EVEN IS, 40 'BUT A SCALLOPED WAVEFORM EMERGES. 50 'QUIT WITH CTL-C OR CTL-BREAK. 60 'SCREEN 12 : 'ENABLE FOR IBM BASIC 70 CLS 80 RNDM = TIMER / 3 90 RANDOMIZE 100 CLS 110 WINDOW (-400, -1)-(400, 3) 120 X = 0 130 INCR = 40 140 YINCR = INCR * 224 / 639 150 'LOOP ENTRY POINT 160 COLOUR = 4 170 PSET (X, Y), COLOUR 180 M = INT(RND * 4) 190 'CAN'T REMEMBER WHERE IN THE WORLD THIS FORMULA CAME FROM! 200 Y = 2 - ABS(2 * COS(X * .017453292#)) 210 IF M = 0 THEN X = X + INCR 220 IF M = 1 THEN X = X - INCR 230 IF M = 2 THEN INCR = INCR * 1.1 240 IF M = 3 THEN INCR = INCR / 1.1 250 IF ABS(X) > 400 THEN X = 0 260 IF ABS(INCR) > 800 OR ABS(1 / INCR) > 800 THEN INCR = 40: LOCATE 1, 1: PRINT "CHANGED INCR" 270 GOTO 150 280 LOCATE 1, 1: PRINT RNDM: BEEP: BEEP: BEEP: BEEP: BEEP: END
|
|
|
|
|
|