Meta tags:
Headings (most frequently used words):
2013, april, tuesday, saturday, 2016, november, 2014, october, thursday, sunday, wednesday, september, basic, 14, friday, february, 2015, 15, march, 24, 13, game, ball, bits, copy, paste, run, 16, monday, 23, 18, january, december, 22, 26, 17, 28, search, links, topics, blog, archive, popular, posts, subscribe, to, 256, total, pageviews, play, station, joystick, test, parametric, spirograph, graphing, sensor, using, arduino, hello, world, pythagoras, pac, man, bouncy, maze, report, generator, for, busy, teachers, flappy, 3d, bucktooth, bunny, marbles, matching, cards, estimate, the, angle, nim, with, levels, body, simulation, solid, of, revolution, definite, integral, rock, paper, scissors, number, bases, pascal, triangle, cellular, automation, fastest, lap, tetris,
Text of the page (most frequently used words):
then (273), color (128), int (93), end (93), for (91), next (78), text (76), mass (76), and (75), board (64), 100 (56), the (56), gosub (55), dim (50), rand (50), 200 (49), circle (44), 600 (42), black (40), 300 (39), refresh (37), return (34), xpos (33), rect (33), print (33), 150 (31), yspeed (30), xspeed (30), ypos (29), true (29), mid (29), flag (29), 400 (29), area (28), font (26), false (26), 500 (26), comments (25), shape (25), posted (24), white (24), radius (24), type (24), ymin (24), row (22), monsterx (22), monsterxspeed (22), monsteryspeed (22), arial (21), graphsize (20), red (20), xmin (20), hhh (20), clg (19), turn (19), until (18), level (18), ycell (18), xcell (18), monstery (18), fastgraphics (16), 350 (16), 250 (16), sin (15), loop (14), rot (14), down (14), green (14), yellow (14), base (14), code (13), score (13), pause (13), 2013 (13), xpac (13), basic (12), blue (12), step (12), speed (12), line (12), clickx (12), righ (12), lef (12), checkmove (11), this (11), cos (11), grass (11), dist (11), 170 (11), grad (11), stat (10), game (10), time (10), ymax (10), tries (10), cores (9), pair (9), nball (9), out (9), balls (9), marble (9), birdy (9), ypac (9), november (8), april (8), are (8), 450 (8), pixel (8), new (8), toradix (8), you (8), xmax (8), bound1 (8), levels (8), pile (8), clicky (8), lifes (8), october (7), key (7), 180 (7), tobinary (7), rad (7), second (7), minute (7), hour (7), 3600 (7), yg1 (7), rgb (7), 1000 (7), 470 (7), guess (7), left (7), distance (7), mouth (7), xball (7), yball (7), serial (7), 16777234 (6), 16777236 (6), when (6), position (6), track (6), stamp (6), 700 (6), one (6), tuesday (6), colision (6), bound2 (6), fill (6), draw (6), abs (6), mousey (6), answer (6), cards (6), waitfordirection (6), 530 (6), right (6), matrix (6), going (6), monster (6), hhhhh (6), posts (5), 256 (5), ball (5), september (5), simulation (5), darkgreen (5), arrow (5), keys (5), orange (5), program (5), goto (5), 800 (5), tree (5), laps (5), penwidth (5), 321 (5), saturday (5), element (5), initial (5), drawing (5), gravity (5), won (5), clickclear (5), floor (5), value (5), mousex (5), 240 (5), zball (5), obstaclehight (5), life (5), direc (5), monsters (5), monstersname (5), write (5), arduino (4), bucktooth (4), bunny (4), december (4), january (4), february (4), march (4), programs (4), 0x1cc00 (4), initialwait (4), main (4), piecedown (4), press (4), ref (4), 16777237 (4), 16777235 (4), selectshape (4), use (4), 140 (4), 220 (4), purple (4), 2200 (4), bestime (4), else (4), 279 (4), version (4), fractal (4), from (4), acc (4), 190 (4), two (4), rem (4), range (4), 255 (4), volume_solid (4), variables (4), collide (4), thought (4), 320 (4), 270 (4), 120 (4), angle1 (4), angle2 (4), 330 (4), error1 (4), error2 (4), colisionflag (4), round (4), goingout (4), total_speed (4), va1 (4), va2 (4), 2014 (4), ceil (4), 520 (4), packman (4), self (4), collum (4), 2016 (4), delay (4), map (4), 1023 (4), 127 (4), analogread (4), void (4), run (4), all (3), atom (3), play (3), flappy (3), pac (3), work (3), very (3), big (3), 440 (3), endgame (3), wait (3), frame (3), controls (3), takeline (3), last (3), 260 (3), complete (3), thursday (3), with (3), car1 (3), car2 (3), pointer (3), init (3), 370 (3), 610 (3), wednesday (3), not (3), update (3), chaotic (3), rule (3), plot (3), comp (3), number (3), based (3), 410 (3), but (3), change (3), yg2 (3), input (3), solid (3), arc (3), xac (3), yac (3), sunday (3), ans (3), first (3), start (3), computerplay (3), wining (3), units (3), twos (3), fours (3), bestof (3), 360 (3), drawscale (3), drawpie (3), cliked (3), win (3), player (3), pie (3), question (3), repetition (3), window (3), can (3), drawtable (3), drawball (3), finish (3), vb1 (3), vb2 (3), vap1 (3), vap2 (3), dead (3), world (3), 900 (3), copy (3), paste (3), com (2), subscribe (2), parametric (2), spirograph (2), graphing (2), sensor (2), using (2), bouncy (2), maze (2), tetris (2), station (2), joystick (2), test (2), man (2), popular (2), june (2), maths (2), topics (2), rosetta (2), page (2), each (2), oldrot (2), procedures (2), scorepanel (2), drawboard (2), drawshape (2), these (2), piece (2), newboard (2), over (2), function (2), just (2), outputvisible (2), grey (2), car (2), sec (2), lap (2), cellular (2), automation (2), used (2), different (2), 001 (2), 010 (2), site (2), nrows (2), bases (2), rock (2), paper (2), scissors (2), distx (2), disty (2), calculates (2), between (2), functions (2), parameters (2), boundaries (2), hardcoded (2), they (2), highlighted (2), choose (2), graph (2), generate (2), volume (2), revolution (2), body (2), after (2), pieces (2), want (2), who (2), takes (2), wins (2), click (2), 420 (2), what (2), alert (2), humanplay (2), interactive (2), whiteboard (2), 280 (2), real (2), 380 (2), error (2), friday (2), selecting (2), card (2), drawcards (2), yes (2), there (2), three (2), four (2), five (2), 10000 (2), 993 (2), sound (2), khan (2), academy (2), programming (2), ear (2), tooth (2), eye (2), 002 (2), while (2), poly (2), will (2), get (2), courier (2), xxxxxxxxxxxxxxxxxxxxxxxxxx (2), changing (2), 435 (2), points (2), pacman (2), erases (2), aril (2), 210 (2), hhhhhhhhhhhhhhhhhhhhhhh (2), hhhhhhh (2), hhhh (2), 2015 (2), pythagoras (2), hello (2), open (2), file (2), begin (2), 9600 (2), setup (2), asc (2), read (2), openserial (2), centery (2), centerx (2), bits (2), manuelnogueirasantos, gmail, total, pageviews, mandelbrot, sprites, july, blog, archive, music, logic, image, matrices, finance, euler, computing, calculus, cryptography, chaos, animation, fractals, mental, drawings, students, statistics, physics, games, tiny, weeny, tutorial, language, comparison, classroom, suite, facebook, links, search, home, older, 0x10f00, 0x12222, 0x100f0, 0x14444, 0x144c0, 0x18e00, 0x16440, 0x10e20, 0x14460, 0x10e80, 0x1c440, 0x12e00, 0x106c0, 0x18c40, 0x16c00, 0x14620, 0x10e40, 0x14c40, 0x14e00, 0x14640, 0x10c60, 0x14c80, 0x1c600, 0x12640, newpiece, executed, instructions, before, chr, fat, wrong, stuff, 1200, 2000, 1800, 999, intro, lake, result, panel, 715, 102, count, best, goes, lapcount, fastest, was, malfunctioning, long, because, did, where, alternating, patterns, http, mathworld, wolfram, elementarycellularautomaton, html, every, rows, 110, got, bbc, pascal, triangle, counting, times, roman, 2048, length, system, values, endif, objects, dimentions, equation1, equation2, definite, integral, boudaries, equation, any, keep, centered, inital, particles, initializing, complaints, added, some, take, many, piles, select, collumn, remove, prompt, computer, confirm, darkblue, 143, 193, 243, 293, 343, nim, designed, played, players, winner, subroutines, palyer, 775, 770, estimate, angle, another, 750, atributing, questions, answers, string, checking, repetitions, clicking, matching, clean, most, bugs, still, few, graphics, size, bounceflag, order, here, hurray, easy, make, more, initializes, scenaries, cue, drag, reset, oops, shots, ____________, shoot, mat, collision, detection, calc, marbles, brilliant, educational, learn, everything, including, basic256, see, link, below, similar, wich, javascript, face, 185, 230, https, www, khanacademy, org, challenge, 003, 005, 0005, chord, darkyellow, example, retake, minimalist, bird, progress, jump, obstacles, restart, point, losing, running, columns, death, movement, 015, benny, evolves, develops, his, has, improved, brilliantely, fantasticaly, well, exeptionally, exellence, homework, marvellous, wonder, outstanding, unique, beautifull, trust, assume, believe, achive, attain, fantastic, results, high, grades, lots, tonnes, report, generator, busy, teachers, xxxxxxxxxxx, xxxxxxxxxxxxxxx, xxxxxxxxxxxxxxxx, writing, scores, transportation, adding, stop, crashing, wall, identifies, cells, around, dies, eyes, shift, direction, 139, action, positions, 125, 405, put, array, easier, handle, comment, vertical, horizontal, formula, sqrt, rectangle, monday, blackboard, txt, notepad, word, same, folder, application, creates, writes, hellow, println, 277, 325, com4, com3, 90000, set, small, related, various, note, sometimes, recent, versions,
Text of the page (random words):
2 vx u2 ay vy u2 ax vap1 va1 1 ed va2 va1 1 mass u1 mass u2 vap2 va2 1 ed va1 va2 1 mass u2 mass u1 vx u1 vap1 ax vb1 ay vy u1 vap1 ay vb1 ax vx u2 vap2 ax vb2 ay vy u2 vap2 ay vb2 ax colisionflag u1 u2 1 end if else colisionflag u1 u2 0 end if next u2 next u1 return posted by m s at 1 05 pm no comments sunday november 24 2013 matching cards another game for the interactive whiteboard dim a 4 3 dim value 4 3 dim pair 2 dim pair 2 font arial 40 40 graphsize 750 450 time second minute 60 hour 3600 qa 0 atributing questions and answers do n1 int rand 9 1 n2 int rand 9 1 question n1 x n2 answer string n1 n2 repetition false checking for repetitions for n 0 to 2 for m 0 to 3 if a m n answer then repetition true next m next n if repetition false then selecting 1 card for question q 0 do v int rand 3 h int rand 4 if a h v then a h v question value h v int answer q 1 end if until q 1 selecting 1 card for answer a 0 do v int rand 3 h int rand 4 if a h v then a h v answer value h v int answer a 1 end if until a 1 qa qa 2 end if until qa 12 clicking the cards cards 12 do gosub drawcards p 0 do clickclear t 0 do if second minute 60 hour 3600 t then color white rect 600 0 450 150 color black text 600 40 second minute 60 hour 3600 time sec t second minute 60 hour 3600 end if until clicky 0 x int clickx 150 y int clicky 150 pair p value x y pair p a x y p p 1 color red circle 150 x 20 150 y 20 10 until p 2 pause 5 if pair 0 pair 1 and pair 0 pair 1 then for n 0 to 3 for m 0 to 2 if value n m pair 1 then a n m yes next m next n cards cards 2 end if until cards 0 drawcards for n 0 to 3 for m 0 to 2 color black if a n m yes then color green rect 150 n 150 m 140 140 color white text 150 n 20 150 m 40 a n m next m next n return end posted by m s at 8 57 am no comments friday november 1 2013 estimate the angle this is a game designed to be played on an interactive whiteboard by two players clg fastgraphics p1 0 p2 0 bestof 5 main do angle1 int rand 360 angle2 int rand 360 gosub drawscale gosub drawpie color white text 170 280 a turn refresh gosub cliked text 170 330 guess guess º refresh error1 abs guess angle1 pause 1 text 470 280 b turn refresh gosub cliked text 470 330 guess guess º refresh error2 abs guess angle2 pause 1 gosub drawscale gosub drawpie color red if error1 error2 then win 200 p1 p1 1 color green end if text 170 330 real angle1 º text 170 380 error error1 º color red if error1 error2 then win 470 p2 p2 1 color green end if text 470 330 real angle2 º text 470 380 error error2 º color green text win 150 winner refresh pause 2 clg until p1 bestof or p2 bestof end code color black if p1 5 then text 270 320 player a won if p2 5 then text 270 320 player b won refresh end subroutines cliked clickclear do guess mousey 7 until clicky 0 return drawpie font arial 30 100 text 170 10 palyer a p1 text 470 10 player b p2 color orange pie 150 70 200 200 0 pi angle1 180 color blue pie 450 70 200 200 0 pi angle2 180 return drawscale font arial 10 100 color black graphsize 800 600 rect 0 0 800 600 color white for y 0 to 360 step 20 text 10 y y line 30 y 7 100 y 7 text 775 y y line 700 y 7 770 y 7 next y refresh return posted by m s at 1 41 am no comments tuesday october 22 2013 nim with levels after complaints i added some levels to the game take as many pieces you want from one of the piles the one who takes the last piece wins print click to select the collumn and the number of pieces to remove print who takes the last wins fastgraphics graphsize 400 420 font arial 17 100 a 0 b 0 c 0 d 0 level prompt what level 3 7 level int level if level 6 then a 7 if level 5 then b 6 if level 4 then c 5 if level 3 then d 4 e 3 f 2 g 1 for turn 1 to 1000 gosub draw if a b c d e f g 0 then color white alert computer me won refresh end end if refresh if turn 1 then ans confirm do you want to play first y n if ans then print start if not ans then gosub computerplay gosub draw refresh end if end if gosub humanplay gosub draw if a b c d e f g 0 then alert you won refresh end end if refresh gosub computerplay next turn computerplay thought 0 wining false do thought thought 1 do at a bt b ct c dt d et e ft f gt g pile int rand 7 if pile 0 then at at int rand at 1 if pile 1 then bt bt int rand bt 1 if pile 2 then ct ct int rand ct 1 if pile 3 then dt dt int rand dt 1 if pile 4 then et et int rand et 1 if pile 5 then ft ft int rand ft 1 if pile 6 then gt gt int rand gt 1 until at 1 and bt 1 and ct 1 and dt 1 and et 1 and ft 1 and gt 1 a toradix at 8 2 b toradix bt 8 2 c toradix ct 8 2 d toradix dt 8 2 e toradix et 8 2 f toradix ft 8 2 g toradix gt 8 2 units int mid a 4 1 int mid b 4 1 int mid c 4 1 int mid d 4 1 int mid e 4 1 int mid f 4 1 int mid g 4 1 twos int mid a 3 1 int mid b 3 1 int mid c 3 1 int mid d 3 1 int mid e 3 1 int mid f 3 1 int mid g 3 1 fours int mid a 2 1 int mid b 2 1 int mid c 2 1 int mid d 2 1 int mid e 2 1 int mid f 2 1 int mid g 2 1 if units 2 int units 2 and twos 2 int twos 2 and fours 2 int fours 2 then wining true until wining true or thought 1000 a at b bt c ct d dt e et f ft g gt pause 1 return draw clg color darkblue rect 0 0 400 420 color grey text 33 20 a b c d e f g for n 1 to 7 for radius 20 to 0 step 1 color rgb 255 radius 7 255 radius 7 0 if a n then circle 50 n 50 30 radius if b n then circle 100 n 50 30 radius if c n then circle 150 n 50 30 radius if d n then circle 200 n 50 30 radius if e n then circle 250 n 50 30 radius if f n then circle 300 n 50 30 radius if g n then circle 350 n 50 30 radius next radius next n for n 1 to 7 color black if a n then text 43 n 50 20 a 1 n if b n then text 93 n 50 20 b 1 n if c n then text 143 n 50 20 c 1 n if d n then text 193 n 50 20 d 1 n if e n then text 243 n 50 20 e 1 n if f n then text 293 n 50 20 f 1 n if g n then text 343 n 50 20 g 1 n next n return humanplay p 0 p clickclear do if clickx 30 and clicky 60 and clickx clicky 470 then if clickx 370 then p g if clickx 320 then p f if clickx 270 then p e if clickx 220 then p d if clickx 170 then p c if clickx 120 then p b if clickx 70 then p a row floor clicky 55 50 if p a then p a row if p b then p b row if p c then p c row if p d then p d row if p e then p e row if p f then p f row if p g then p g row if p a then a a p if p b then b b p if p c then c c p if p d then d d p if p e then e e p if p f then f f p if p g then g g p end if pause 1 until p 0 return posted by m s at 12 39 pm no comments sunday october 13 2013 n body simulation this is a n body simulation use arrow keys to keep it centered number of inital particles graphsize 600 600 fastgraphics n 100 dim x n 1 dim y n 1 dim xspeed n 1 dim yspeed n 1 dim xac n 1 dim yac n 1 dim mass n 1 dim radius n 1 initializing variables for p 1 to n a rand 2 pi r rand 300 x p r cos a 300 y p r sin a 300 s rand 2 pi 20 xspeed p cos a s cos a yspeed p sin a s sin a radius p 3 mass p radius p 3 next p gravity 0 dist 0 colision 0 dx 0 dy 0 v 0 h 0 loop arrow keys a key if 16777234 a then h h 5 if 16777236 a then h h 5 if 16777237 a then v v 5 if 16777235 a then v v 5 for u 1 to n for t 1 to n if u t and mass t 0 and mass u 0 then dx x u x t dy y u y t dist dx 2 dy 2 1 2 collide false if dist radius u radius t then collide true gravity code if collide true then x u x u mass u x t mass t mass u mass t y u y u mass u y t mass t mass u mass t xspeed u xspeed u mass u xspeed t mass t mass u mass t yspeed u yspeed u mass u yspeed t mass t mass u mass t mass u mass u mass t radius u mass u 1 3 mass t 0 radius t 0 end if colision code if collide false then gravity mass t mass u dist 2 xac u gravity dx 1000 mass u yac u gravity dy 1000 mass u xspeed u xspeed u xac u yspeed u yspeed u yac u x u x u xspeed u y u y u yspeed u end if end if next t color white circle x u h y u v radius u next u refresh clg color black rect 0 0 600 600 goto loop posted by m s at 3 27 am no comments wednesday october 9 2013 solid of revolution this program calculates the volume of a revolution solid the parameters are hardcoded but they are highlighted for you to change clg font arial 15 100 graphsize 500 500 fastgraphics graph area xmin 6 xmax 6 ymin 5 ymax 5 tx 500 xmax xmin ty 500 ymax ymin area 0 x boudaries bound1 3 bound2 3 range bound2 bound1 dx 02 volume_solid 0 for s 0 to 2 pi step 1 if s pi then for y ymin to ymax for x xmin to xmax color black circle tx x xmin tx ty y ymin ty 3 if y ymax ymin then text tx x xmin tx 15 ty y ymin ty x if x 0 then text tx x xmin tx 15 ty y ymin ty y ymax ymin next x next y line xmin tx 0 xmin tx 500 line 0 500 ymin ty 500 500 ymin ty end if for x xmin to xmax step dx xg tx x xmin tx color red y0 y equation y sin x 2 yg1 500 ty y ty ymin circle xg yg1 1 solid if x bound2 and x bound1 then fill 100 sin s 100 color rgb 200 fill 200 fill fill arc xg 05 y ty 2 yg1 1 y ty 2 y ty 2 s 1 if s 0 then volume_solid volume_solid dx y0 2 y 2 2 pi area if s pi then color green if int xg 1 2 int xg 2 1 then line xg yg1 xg 500 ymin ty fill 255 x bound1 range end if end if next x refresh if s 0 then pause 5 pause 02 next s input press any key k text 20 20 volume volume_solid refresh posted by m s at 8 35 am no comments tuesday october 8 2013 definite integral this program calculates the area between two functions the parameters functions boundaries are hardcoded but they are highlighted for you to change font arial 15 100 graphsize 500 500 fastgraphics choose the dimentions of the graph xmin 5 xmax 5 ymin 5 ymax 5 y1 0 y2 0 tx 500 xmax xmin ty 500 ymax ymin for y ymin to ymax for x xmin to xmax circle tx x xmin tx ty y ymin ty 3 if y ymax ymin then text tx x xmin tx 15 ty y ymin ty x if x 0 then text tx x xmin tx 15 ty y ymin ty y ymax ymin next x next y line xmin tx 0 xmin tx 500 line 0 500 ymin ty 500 500 ymin ty rem generate area choose the x boundaries bound1 2 bound2 2 area 0 range bound2 bound1 dx 01 for x xmin to xmax step dx xg tx x xmin tx color red p1 y1 equation1 red y1 x 2 yg1 500 ty y1 ty ymin circle xg yg1 1 color blue p2 y2 equation2 blue y2 x 2 yg2 500 ty y2 ty ymin circle xg yg2 1 if x bound2 and x bound1 then color darkgreen area area y1 p1 2 y2 p2 2 dx if int xg 1 2 int xg 2 1 then line xg yg1 xg yg2 fill 255 x bound1 range end if next x refresh input press a key a text 20 20 area area refresh posted by m s at 11 33 am no comments thursday september 26 2013 rock paper scissors this is a simulation of a system based on the popular game rock paper scissors clg n 80 radius 8 graphsize 600 600 font arial 10 100 outputvisible false fastgraphics dim type n dim xpos n dim ypos n dim xspeed n dim yspeed n dim type n initial values for u 0 to n 1 a rand xpos u rand 600 ypos u rand 400 xspeed u sin a yspeed u cos a type u int rand 3 next u c 0 color black rect 0 410 600 190 loop for u 0 to n 2 for v u 1 to n 1 distx xpos u xpos v 2 disty ypos u ypos v 2 dist distx disty 0 5 if dist 2 radius then gosub colision next v next u s 0 r 0 p 0 c c 1 if c 600 then c 0 color black rect 0 410 600 190 endif for u 0 to n 1 xpos u xpos u xspeed u ypos u ypos u yspeed u if xpos u 0 then xspeed u rand 10 1 05 xspeed u if ypos u 0 then yspeed u rand 10 1 05 yspeed u if xpos u 600 then xspeed u rand 10 1 05 xspeed u if ypos u 400 then yspeed u rand 10 1 05 yspeed u drawing objects if type u 0 then color red circle xpos u ypos u radius color black text xpos u 5 ypos u 5 s s s 1 end if if type u 1 then color green circle xpos u ypos u radius color black text xpos u 5 ypos u 5 r r r 1 end if if type u 2 then color yellow circle xpos u ypos u radius color black text xpos u 5 ypos u 5 p p p 1 end if next u color red circle c 600 180 n s 1 color green circle c 600 180 n r 1 color yellow circle c 600 180 n p 1 refresh color white rect 0 0 600 410 goto loop colision if type u 0 and type v 1 then type u 1 if type v 0 and type u 1 then type v 1 if type u 1 and type v 2 then type u 2 if type v 1 and type u 2 then type v 2 if type u 2 and type v 0 then type u 0 if type v 2 and type u 0 then type v 0 return posted by m s at 7 45 am no comments tuesday september 24 2013 number bases counting in different bases graphsize 300 300 font times new roman 18 100 fastgraphics dim base 17 dim comp 17 for x 1 to 2048 for base 2 to 16 base base toradix x base comp length base base text 180 comp 12 20 base 42 base base text 200 20 base 42 base base next base refresh clg next x posted by m s at 11 26 am no comments tuesday september 17 2013 pascal triangle i got this one from the bbc basic in rosetta code site font arial 10 100 graphsize 700 350 nrows 16 for row 1 to nrows acc 1 for element 1 to row text element 40 350 row 20 row 20 acc acc acc row element element next element print next row posted by m s at 7 01 am no comments saturday april 13 2013 cellular automation 2 the cellular automation program was malfunctioning for a long time because i did not update the code for the new basic 256 version this is a new version where the chaotic rule and the fractal rule are used different alternating patterns http mathworld wolfram com elementarycellularautomaton html fastgraphics graphsize 600 300 for n 1 to 300 plot 300 1 print fractal rule every n rows for y 1 to 300 for x 1 to 600 a 0 if pixel x 1 y black then a a 1 if pixel x y black then a a 10 if pixel x 1 y black then a a 100 if y n int y n then gosub fractal else gosub chaotic end if next x refresh next y refresh clg next n chaotic if a 001 or a 110 or a 010 or a 100 then plot x y 1 return fractal if a 001 or a 010 or a 100 then plot x y 1 return posted by m s at 2 51 pm no comments wednesday april 3 2013 fastest lap this program is just a big fat loop with a goto in the end all the wrong stuff graphsize 800 600 fastgraphics outputvisible false clg font arial 15 100 dim track 30 track 14 2 13 4 12 5 10 6 10 6 12 5 13 4 14 2 14 0 13 0 12 0 11 0 10 1 8 2 7 2 6 1 6 4 5 6 4 7 2 8 0 8 2 7 3 6 4 4 4 0 5 1 6 2 7 2 8 1 9 0 9 5 10 7 11 8 12 8 13 7 14 5 14 2 dim car1 38 dim car2 18 car1 0 10 4 9 5 8 5 4 4 2 4 4 5 6 5 9 4 10 4 10 5 9 5 6 4 4 4 2 5 4 5 8 4 9 0 10 car2 0 2 1 2 3 0 3 2 0 1 3 2 3 0 1 2 0 2 dim pointer 10 pointer 3 0 0 1 15 0 0 1 3 0 dim tree 100 2 for n 0 to 99 tree n 0 int rand 2200 1200 tree n 1 int rand 2000 1800 next n rad 0 px 200 py 50 turn 0 speed 0 flag 0 time 0 laps 1 bestime 999 init second minute 60 hour 3600 intro for n 1 to 100 step 2 penwidth 2 n color black green clg stamp 500 250 n 5 n 2 pi n 100 track refresh next n penwidth 1 loop controls arrow keys z key if z 16777235 then speed speed 1 if z 16777237 then speed speed 1 if z 16777234 and turn 2 then turn turn pi 90 else turn turn 95 end if if z 16777236 and turn 2 then turn turn pi 90 rad rad turn yspeed sin rad speed xspeed cos rad speed py py yspeed px px xspeed track color green rect 0 0 600 600 color darkgreen for n 0 to 99 circle tree n 0 px tree n 1 py 20 next n color black 0 penwidth 200 stamp px 350 py 100 0 track color black penwidth 1 color white rect px 300 py 150 20 200 color grey rect px py 50 300 80 rect px py 370 300 80 color black text px 70 py 370 use arrow keys car and lake color red stamp ...
|
