11-17-2023, 04:04 AM
I *think* vince did this, but I wouldn't swear to it. It's another of those neat little things floating around the drive. I don't remember if it's been shared before, or nor, so here it is (again?) in all it's glory: STEVE!!
Code: (Select All)
DIM x(11, 49), y(11, 49)
DIM n(11), a(11), v(11), d(11)
m = 11
n(0) = 49
a(0) = 0.19999999999999962
v(0) = 50
d(0) = 0
x(0, 0) = 572: y(0, 0) = 165
x(0, 1) = 559: y(0, 1) = 153
x(0, 2) = 532: y(0, 2) = 137
x(0, 3) = 505: y(0, 3) = 123
x(0, 4) = 474: y(0, 4) = 115
x(0, 5) = 441: y(0, 5) = 108
x(0, 6) = 406: y(0, 6) = 104
x(0, 7) = 373: y(0, 7) = 103
x(0, 8) = 341: y(0, 8) = 103
x(0, 9) = 316: y(0, 9) = 108
x(0, 10) = 284: y(0, 10) = 117
x(0, 11) = 249: y(0, 11) = 129
x(0, 12) = 219: y(0, 12) = 146
x(0, 13) = 188: y(0, 13) = 161
x(0, 14) = 166: y(0, 14) = 175
x(0, 15) = 139: y(0, 15) = 190
x(0, 16) = 118: y(0, 16) = 206
x(0, 17) = 95: y(0, 17) = 226
x(0, 18) = 65: y(0, 18) = 249
x(0, 19) = 38: y(0, 19) = 277
x(0, 20) = 18: y(0, 20) = 328
x(0, 21) = 21: y(0, 21) = 369
x(0, 22) = 38: y(0, 22) = 414
x(0, 23) = 67: y(0, 23) = 429
x(0, 24) = 98: y(0, 24) = 446
x(0, 25) = 142: y(0, 25) = 459
x(0, 26) = 173: y(0, 26) = 453
x(0, 27) = 221: y(0, 27) = 448
x(0, 28) = 262: y(0, 28) = 436
x(0, 29) = 288: y(0, 29) = 429
x(0, 30) = 318: y(0, 30) = 411
x(0, 31) = 350: y(0, 31) = 387
x(0, 32) = 376: y(0, 32) = 373
x(0, 33) = 401: y(0, 33) = 360
x(0, 34) = 424: y(0, 34) = 343
x(0, 35) = 445: y(0, 35) = 332
x(0, 36) = 473: y(0, 36) = 312
x(0, 37) = 504: y(0, 37) = 291
x(0, 38) = 529: y(0, 38) = 272
x(0, 39) = 556: y(0, 39) = 248
x(0, 40) = 582: y(0, 40) = 229
x(0, 41) = 608: y(0, 41) = 205
x(0, 42) = 636: y(0, 42) = 180
x(0, 43) = 657: y(0, 43) = 162
x(0, 44) = 678: y(0, 44) = 137
x(0, 45) = 702: y(0, 45) = 111
x(0, 46) = 732: y(0, 46) = 76
x(0, 47) = 737: y(0, 47) = 41
x(0, 48) = 696: y(0, 48) = 60
n(1) = 14
a(1) = 0.19999999999999984
v(1) = 110
d(1) = -0.2
x(1, 0) = 716: y(1, 0) = 79
x(1, 1) = 742: y(1, 1) = 18
x(1, 2) = 650: y(1, 2) = 81
x(1, 3) = 629: y(1, 3) = 96
x(1, 4) = 614: y(1, 4) = 111
x(1, 5) = 596: y(1, 5) = 128
x(1, 6) = 581: y(1, 6) = 151
x(1, 7) = 567: y(1, 7) = 178
x(1, 8) = 556: y(1, 8) = 200
x(1, 9) = 546: y(1, 9) = 230
x(1, 10) = 577: y(1, 10) = 258
x(1, 11) = 587: y(1, 11) = 289
x(1, 12) = 573: y(1, 12) = 319
x(1, 13) = 562: y(1, 13) = 347
n(2) = 35
a(2) = 6.199999999999998
v(2) = 60
d(2) = -0.3
x(2, 0) = 570: y(2, 0) = 251
x(2, 1) = 594: y(2, 1) = 365
x(2, 2) = 542: y(2, 2) = 387
x(2, 3) = 512: y(2, 3) = 402
x(2, 4) = 520: y(2, 4) = 420
x(2, 5) = 501: y(2, 5) = 437
x(2, 6) = 468: y(2, 6) = 459
x(2, 7) = 458: y(2, 7) = 463
x(2, 8) = 426: y(2, 8) = 484
x(2, 9) = 387: y(2, 9) = 495
x(2, 10) = 351: y(2, 10) = 507
x(2, 11) = 321: y(2, 11) = 510
x(2, 12) = 290: y(2, 12) = 512
x(2, 13) = 234: y(2, 13) = 521
x(2, 14) = 186: y(2, 14) = 521
x(2, 15) = 140: y(2, 15) = 511
x(2, 16) = 107: y(2, 16) = 480
x(2, 17) = 132: y(2, 17) = 421
x(2, 18) = 151: y(2, 18) = 385
x(2, 19) = 176: y(2, 19) = 355
x(2, 20) = 203: y(2, 20) = 335
x(2, 21) = 219: y(2, 21) = 308
x(2, 22) = 244: y(2, 22) = 286
x(2, 23) = 272: y(2, 23) = 270
x(2, 24) = 303: y(2, 24) = 254
x(2, 25) = 331: y(2, 25) = 243
x(2, 26) = 360: y(2, 26) = 234
x(2, 27) = 391: y(2, 27) = 229
x(2, 28) = 422: y(2, 28) = 226
x(2, 29) = 469: y(2, 29) = 213
x(2, 30) = 505: y(2, 30) = 222
x(2, 31) = 538: y(2, 31) = 235
x(2, 32) = 546: y(2, 32) = 262
x(2, 33) = 546: y(2, 33) = 302
x(2, 34) = 500: y(2, 34) = 352
n(3) = 28
a(3) = 4.399999999999999
v(3) = 85
d(3) = -0.3
x(3, 0) = 526: y(3, 0) = 261
x(3, 1) = 548: y(3, 1) = 299
x(3, 2) = 524: y(3, 2) = 338
x(3, 3) = 500: y(3, 3) = 365
x(3, 4) = 477: y(3, 4) = 380
x(3, 5) = 453: y(3, 5) = 403
x(3, 6) = 422: y(3, 6) = 420
x(3, 7) = 394: y(3, 7) = 431
x(3, 8) = 359: y(3, 8) = 446
x(3, 9) = 318: y(3, 9) = 474
x(3, 10) = 252: y(3, 10) = 489
x(3, 11) = 203: y(3, 11) = 479
x(3, 12) = 175: y(3, 12) = 441
x(3, 13) = 221: y(3, 13) = 405
x(3, 14) = 244: y(3, 14) = 383
x(3, 15) = 258: y(3, 15) = 356
x(3, 16) = 283: y(3, 16) = 321
x(3, 17) = 314: y(3, 17) = 301
x(3, 18) = 346: y(3, 18) = 280
x(3, 19) = 379: y(3, 19) = 268
x(3, 20) = 421: y(3, 20) = 257
x(3, 21) = 474: y(3, 21) = 250
x(3, 22) = 576: y(3, 22) = 237
x(3, 23) = 514: y(3, 23) = 329
x(3, 24) = 464: y(3, 24) = 339
x(3, 25) = 444: y(3, 25) = 334
x(3, 26) = 463: y(3, 26) = 300
x(3, 27) = 488: y(3, 27) = 301
n(4) = 21
a(4) = 2.8999999999999995
v(4) = 5
d(4) = 0.49999999999999994
x(4, 0) = 238: y(4, 0) = 584
x(4, 1) = 274: y(4, 1) = 580
x(4, 2) = 303: y(4, 2) = 573
x(4, 3) = 333: y(4, 3) = 566
x(4, 4) = 364: y(4, 4) = 556
x(4, 5) = 397: y(4, 5) = 546
x(4, 6) = 427: y(4, 6) = 534
x(4, 7) = 455: y(4, 7) = 522
x(4, 8) = 485: y(4, 8) = 503
x(4, 9) = 511: y(4, 9) = 484
x(4, 10) = 534: y(4, 10) = 464
x(4, 11) = 554: y(4, 11) = 441
x(4, 12) = 572: y(4, 12) = 416
x(4, 13) = 590: y(4, 13) = 390
x(4, 14) = 610: y(4, 14) = 365
x(4, 15) = 627: y(4, 15) = 338
x(4, 16) = 649: y(4, 16) = 313
x(4, 17) = 667: y(4, 17) = 287
x(4, 18) = 685: y(4, 18) = 262
x(4, 19) = 701: y(4, 19) = 236
x(4, 20) = 716: y(4, 20) = 210
n(5) = 16
a(5) = 1.3999999999999997
v(5) = 85
d(5) = -0.3
x(5, 0) = 638: y(5, 0) = 329
x(5, 1) = 618: y(5, 1) = 356
x(5, 2) = 597: y(5, 2) = 378
x(5, 3) = 577: y(5, 3) = 401
x(5, 4) = 557: y(5, 4) = 429
x(5, 5) = 537: y(5, 5) = 452
x(5, 6) = 521: y(5, 6) = 478
x(5, 7) = 495: y(5, 7) = 512
x(5, 8) = 540: y(5, 8) = 510
x(5, 9) = 561: y(5, 9) = 494
x(5, 10) = 582: y(5, 10) = 478
x(5, 11) = 603: y(5, 11) = 458
x(5, 12) = 625: y(5, 12) = 445
x(5, 13) = 649: y(5, 13) = 432
x(5, 14) = 671: y(5, 14) = 385
x(5, 15) = 628: y(5, 15) = 408
n(6) = 15
a(6) = 1.9999999999999998
v(6) = 50
d(6) = -0.2
x(6, 0) = 640: y(6, 0) = 424
x(6, 1) = 669: y(6, 1) = 386
x(6, 2) = 622: y(6, 2) = 400
x(6, 3) = 597: y(6, 3) = 415
x(6, 4) = 555: y(6, 4) = 445
x(6, 5) = 532: y(6, 5) = 493
x(6, 6) = 553: y(6, 6) = 527
x(6, 7) = 615: y(6, 7) = 514
x(6, 8) = 660: y(6, 8) = 471
x(6, 9) = 654: y(6, 9) = 438
x(6, 10) = 680: y(6, 10) = 424
x(6, 11) = 676: y(6, 11) = 406
x(6, 12) = 683: y(6, 12) = 388
x(6, 13) = 722: y(6, 13) = 397
x(6, 14) = 691: y(6, 14) = 422
n(7) = 12
a(7) = 2.8999999999999995
v(7) = 60
d(7) = -0.25
x(7, 0) = 695: y(7, 0) = 402
x(7, 1) = 725: y(7, 1) = 415
x(7, 2) = 647: y(7, 2) = 449
x(7, 3) = 625: y(7, 3) = 486
x(7, 4) = 575: y(7, 4) = 550
x(7, 5) = 663: y(7, 5) = 520
x(7, 6) = 690: y(7, 6) = 488
x(7, 7) = 716: y(7, 7) = 458
x(7, 8) = 731: y(7, 8) = 435
x(7, 9) = 752: y(7, 9) = 413
x(7, 10) = 766: y(7, 10) = 386
x(7, 11) = 742: y(7, 11) = 408
n(8) = 23
a(8) = 1.6999999999999997
v(8) = 60
d(8) = 0.09999999999999999
x(8, 0) = 748: y(8, 0) = 402
x(8, 1) = 736: y(8, 1) = 415
x(8, 2) = 741: y(8, 2) = 411
x(8, 3) = 748: y(8, 3) = 421
x(8, 4) = 605: y(8, 4) = 618
x(8, 5) = 770: y(8, 5) = 446
x(8, 6) = 794: y(8, 6) = 426
x(8, 7) = 817: y(8, 7) = 419
x(8, 8) = 819: y(8, 8) = 404
x(8, 9) = 821: y(8, 9) = 382
x(8, 10) = 806: y(8, 10) = 376
x(8, 11) = 778: y(8, 11) = 386
x(8, 12) = 763: y(8, 12) = 409
x(8, 13) = 743: y(8, 13) = 441
x(8, 14) = 686: y(8, 14) = 481
x(8, 15) = 628: y(8, 15) = 520
x(8, 16) = 722: y(8, 16) = 506
x(8, 17) = 755: y(8, 17) = 501
x(8, 18) = 802: y(8, 18) = 492
x(8, 19) = 848: y(8, 19) = 472
x(8, 20) = 890: y(8, 20) = 444
x(8, 21) = 932: y(8, 21) = 408
x(8, 22) = 986: y(8, 22) = 296
n(9) = 0
a(9) = 2.8999999999999995
v(9) = 60
d(9) = -0.25
n(10) = 7
a(10) = 0.7999999999999996
v(10) = 5
d(10) = -0.5499999999999999
x(10, 0) = 588: y(10, 0) = 356
x(10, 1) = 619: y(10, 1) = 353
x(10, 2) = 649: y(10, 2) = 350
x(10, 3) = 683: y(10, 3) = 338
x(10, 4) = 711: y(10, 4) = 321
x(10, 5) = 736: y(10, 5) = 302
x(10, 6) = 757: y(10, 6) = 277
sw = 1024
sh = 600
SCREEN _NEWIMAGE(sw, sh, 32)
_TITLE "Go Team"
LINE (0, 0)-(sw, sh), _RGB(0, 0, 0), BF
FOR h = 0 TO 1
FOR k = 0 TO m
FOR t = 0 TO 1 STEP 0.001
bx = 0
by = 0
FOR i = 0 TO n(k) - 1
bin = 1
FOR j = 1 TO i
bin = bin * (n(k) - j) / j
NEXT
p = ((1 - t) ^ (n(k) - 1 - i)) * (t ^ i)
bx = bx + bin * p * x(k, i)
by = by + bin * p * y(k, i)
NEXT
r = (1.4 - 0.35 * h) * a(k) * EXP(0 - v(k) * (t - 0.5 - d(k)) * (t - 0.5 - d(k)))
IF r < 1 THEN r = 1
'#gr "place ";bx;" ";by
'#gr "circlefilled ";r
'finer mod (radius makes 2 pixel, size allows single pixel)
IF r < 0.1 THEN r = 0.1
c = 235 - (h) * (35 + h * 3) + (t < 0.5) * (t) * 210 + (t > 0.5) * (1 - t) * 210
c2 = 235 - (h) * (35 + h * 3) - (t < 0.5) * (t) * 190 - (t > 0.5) * (1 - t) * 190
'circlef bx, by, r, _rgb(c2,c,0)
CIRCLE (bx, by), r, _RGB(c2, c, 0)
NEXT
NEXT
NEXT
SLEEP
SYSTEM
SUB circlef (x AS LONG, y AS LONG, r AS LONG, c AS LONG)
DIM AS LONG x0, y0, e
x0 = r
y0 = 0
e = -r
DO WHILE y0 < x0
IF e <= 0 THEN
y0 = y0 + 1
LINE (x - x0, y + y0)-(x + x0, y + y0), c, BF
LINE (x - x0, y - y0)-(x + x0, y - y0), c, BF
e = e + 2 * y0
ELSE
LINE (x - y0, y - x0)-(x + y0, y - x0), c, BF
LINE (x - y0, y + x0)-(x + y0, y + x0), c, BF
x0 = x0 - 1
e = e - 2 * x0
END IF
LOOP
LINE (x - r, y)-(x + r, y), c, BF
END SUB
