|
|
Post by mikesharpe on Nov 8, 2022 10:51:16 GMT
dim shared pi
pi = 4*atn(1)
redim x(34,24), y(34,24)
redim n(34), a(34), v(34), d(34)
m=32
n(0)=21
a(0)=4.399999999999999
v(0)=50
d(0)=-0.2
x(0,0)=133:y(0,0)=247
x(0,1)=145:y(0,1)=219
x(0,2)=139:y(0,2)=197
x(0,3)=114:y(0,3)=203
x(0,4)=97:y(0,4)=217
x(0,5)=84:y(0,5)=244
x(0,6)=81:y(0,6)=274
x(0,7)=77:y(0,7)=294
x(0,8)=82:y(0,8)=307
x(0,9)=92:y(0,9)=324
x(0,10)=107:y(0,10)=338
x(0,11)=125:y(0,11)=331
x(0,12)=152:y(0,12)=326
x(0,13)=175:y(0,13)=313
x(0,14)=199:y(0,14)=294
x(0,15)=219:y(0,15)=268
x(0,16)=238:y(0,16)=241
x(0,17)=255:y(0,17)=222
x(0,18)=277:y(0,18)=188
x(0,19)=295:y(0,19)=164
x(0,20)=338:y(0,20)=94
n(1)=24
a(1)=7.9999999999999964
v(1)=50
d(1)=0
x(1,0)=269:y(1,0)=221
x(1,1)=287:y(1,1)=183
x(1,2)=297:y(1,2)=153
x(1,3)=309:y(1,3)=118
x(1,4)=323:y(1,4)=80
x(1,5)=325:y(1,5)=50
x(1,6)=314:y(1,6)=31
x(1,7)=286:y(1,7)=25
x(1,8)=265:y(1,8)=30
x(1,9)=234:y(1,9)=48
x(1,10)=209:y(1,10)=83
x(1,11)=180:y(1,11)=102
x(1,12)=175:y(1,12)=133
x(1,13)=162:y(1,13)=151
x(1,14)=153:y(1,14)=177
x(1,15)=150:y(1,15)=196
x(1,16)=149:y(1,16)=234
x(1,17)=157:y(1,17)=262
x(1,18)=198:y(1,18)=250
x(1,19)=233:y(1,19)=221
x(1,20)=269:y(1,20)=209
x(1,21)=283:y(1,21)=178
x(1,22)=298:y(1,22)=167
x(1,23)=302:y(1,23)=151
n(2)=17
a(2)=4.999999999999998
v(2)=10
d(2)=-0.05000000000000002
x(2,0)=343:y(2,0)=87
x(2,1)=310:y(2,1)=139
x(2,2)=291:y(2,2)=175
x(2,3)=278:y(2,3)=201
x(2,4)=275:y(2,4)=207
x(2,5)=270:y(2,5)=223
x(2,6)=254:y(2,6)=245
x(2,7)=260:y(2,7)=249
x(2,8)=256:y(2,8)=259
x(2,9)=247:y(2,9)=265
x(2,10)=250:y(2,10)=280
x(2,11)=247:y(2,11)=287
x(2,12)=234:y(2,12)=383
x(2,13)=141:y(2,13)=324
x(2,14)=225:y(2,14)=279
x(2,15)=255:y(2,15)=301
x(2,16)=264:y(2,16)=291
n(3)=10
a(3)=4.399999999999999
v(3)=35
d(3)=0
x(3,0)=305:y(3,0)=167
x(3,1)=326:y(3,1)=144
x(3,2)=351:y(3,2)=127
x(3,3)=355:y(3,3)=158
x(3,4)=322:y(3,4)=172
x(3,5)=298:y(3,5)=189
x(3,6)=301:y(3,6)=211
x(3,7)=314:y(3,7)=217
x(3,8)=339:y(3,8)=203
x(3,9)=365:y(3,9)=154
n(4)=6
a(4)=3.799999999999999
v(4)=10
d(4)=-0.3
x(4,0)=367:y(4,0)=149
x(4,1)=356:y(4,1)=169
x(4,2)=305:y(4,2)=228
x(4,3)=355:y(4,3)=211
x(4,4)=384:y(4,4)=181
x(4,5)=397:y(4,5)=148
n(5)=6
a(5)=4.099999999999999
v(5)=5
d(5)=-0.39999999999999997
x(5,0)=396:y(5,0)=148
x(5,1)=385:y(5,1)=171
x(5,2)=357:y(5,2)=197
x(5,3)=356:y(5,3)=218
x(5,4)=389:y(5,4)=204
x(5,5)=398:y(5,5)=178
n(6)=8
a(6)=3.499999999999999
v(6)=40
d(6)=-0.2
x(6,0)=402:y(6,0)=171
x(6,1)=380:y(6,1)=209
x(6,2)=418:y(6,2)=229
x(6,3)=403:y(6,3)=263
x(6,4)=366:y(6,4)=264
x(6,5)=346:y(6,5)=254
x(6,6)=340:y(6,6)=236
x(6,7)=354:y(6,7)=215
n(7)=10
a(7)=4.099999999999999
v(7)=20
d(7)=-0.05000000000000002
x(7,0)=406:y(7,0)=163
x(7,1)=419:y(7,1)=147
x(7,2)=451:y(7,2)=127
x(7,3)=442:y(7,3)=156
x(7,4)=412:y(7,4)=179
x(7,5)=397:y(7,5)=195
x(7,6)=393:y(7,6)=208
x(7,7)=433:y(7,7)=210
x(7,8)=444:y(7,8)=189
x(7,9)=464:y(7,9)=150
n(8)=8
a(8)=3.799999999999999
v(8)=15
d(8)=-0.44999999999999996
x(8,0)=466:y(8,0)=148
x(8,1)=449:y(8,1)=178
x(8,2)=434:y(8,2)=201
x(8,3)=434:y(8,3)=226
x(8,4)=468:y(8,4)=181
x(8,5)=493:y(8,5)=155
x(8,6)=529:y(8,6)=133
x(8,7)=552:y(8,7)=120
n(9)=10
a(9)=4.099999999999999
v(9)=20
d(9)=0.2
x(9,0)=490:y(9,0)=164
x(9,1)=517:y(9,1)=143
x(9,2)=544:y(9,2)=125
x(9,3)=568:y(9,3)=109
x(9,4)=596:y(9,4)=89
x(9,5)=626:y(9,5)=74
x(9,6)=653:y(9,6)=69
x(9,7)=669:y(9,7)=82
x(9,8)=653:y(9,8)=125
x(9,9)=610:y(9,9)=127
n(10)=14
a(10)=4.099999999999999
v(10)=5
d(10)=0.39999999999999997
x(10,0)=489:y(10,0)=110
x(10,1)=506:y(10,1)=110
x(10,2)=509:y(10,2)=103
x(10,3)=517:y(10,3)=96
x(10,4)=562:y(10,4)=96
x(10,5)=539:y(10,5)=54
x(10,6)=530:y(10,6)=91
x(10,7)=520:y(10,7)=105
x(10,8)=514:y(10,8)=116
x(10,9)=507:y(10,9)=132
x(10,10)=500:y(10,10)=147
x(10,11)=485:y(10,11)=182
x(10,12)=493:y(10,12)=164
x(10,13)=480:y(10,13)=198
n(11)=16
a(11)=6.1999999999999975
v(11)=20
d(11)=-0.25
x(11,0)=497:y(11,0)=155
x(11,1)=518:y(11,1)=149
x(11,2)=533:y(11,2)=156
x(11,3)=523:y(11,3)=176
x(11,4)=524:y(11,4)=194
x(11,5)=533:y(11,5)=209
x(11,6)=541:y(11,6)=224
x(11,7)=562:y(11,7)=252
x(11,8)=590:y(11,8)=271
x(11,9)=622:y(11,9)=284
x(11,10)=663:y(11,10)=294
x(11,11)=701:y(11,11)=297
x(11,12)=735:y(11,12)=290
x(11,13)=766:y(11,13)=283
x(11,14)=790:y(11,14)=276
x(11,15)=837:y(11,15)=253
n(12)=18
a(12)=4.699999999999998
v(12)=5
d(12)=-0.04999999999999999
x(12,0)=836:y(12,0)=254
x(12,1)=778:y(12,1)=265
x(12,2)=777:y(12,2)=259
x(12,3)=746:y(12,3)=259
x(12,4)=716:y(12,4)=260
x(12,5)=685:y(12,5)=262
x(12,6)=651:y(12,6)=262
x(12,7)=619:y(12,7)=261
x(12,8)=581:y(12,8)=261
x(12,9)=537:y(12,9)=263
x(12,10)=510:y(12,10)=263
x(12,11)=472:y(12,11)=263
x(12,12)=435:y(12,12)=263
x(12,13)=401:y(12,13)=265
x(12,14)=368:y(12,14)=269
x(12,15)=339:y(12,15)=274
x(12,16)=317:y(12,16)=281
x(12,17)=294:y(12,17)=295
n(13)=15
a(13)=6.1999999999999975
v(13)=20
d(13)=-0.15000000000000002
x(13,0)=381:y(13,0)=270
x(13,1)=339:y(13,1)=274
x(13,2)=313:y(13,2)=283
x(13,3)=284:y(13,3)=295
x(13,4)=263:y(13,4)=312
x(13,5)=261:y(13,5)=334
x(13,6)=273:y(13,6)=341
x(13,7)=287:y(13,7)=352
x(13,8)=304:y(13,8)=352
x(13,9)=323:y(13,9)=348
x(13,10)=352:y(13,10)=342
x(13,11)=378:y(13,11)=325
x(13,12)=400:y(13,12)=304
x(13,13)=423:y(13,13)=281
x(13,14)=429:y(13,14)=264
n(14)=13
a(14)=6.499999999999997
v(14)=10
d(14)=-0.25
x(14,0)=434:y(14,0)=268
x(14,1)=415:y(14,1)=292
x(14,2)=400:y(14,2)=326
x(14,3)=388:y(14,3)=355
x(14,4)=380:y(14,4)=385
x(14,5)=373:y(14,5)=413
x(14,6)=362:y(14,6)=438
x(14,7)=352:y(14,7)=465
x(14,8)=341:y(14,8)=487
x(14,9)=320:y(14,9)=544
x(14,10)=284:y(14,10)=528
x(14,11)=234:y(14,11)=519
x(14,12)=246:y(14,12)=463
n(15)=13
a(15)=4.699999999999998
v(15)=25
d(15)=0.09999999999999999
x(15,0)=312:y(15,0)=422
x(15,1)=333:y(15,1)=403
x(15,2)=341:y(15,2)=373
x(15,3)=323:y(15,3)=359
x(15,4)=290:y(15,4)=371
x(15,5)=269:y(15,5)=397
x(15,6)=258:y(15,6)=418
x(15,7)=261:y(15,7)=439
x(15,8)=237:y(15,8)=456
x(15,9)=234:y(15,9)=478
x(15,10)=235:y(15,10)=504
x(15,11)=266:y(15,11)=526
x(15,12)=299:y(15,12)=512
n(16)=18
a(16)=4.699999999999998
v(16)=10
d(16)=-0.05000000000000002
x(16,0)=429:y(16,0)=311
x(16,1)=444:y(16,1)=311
x(16,2)=447:y(16,2)=313
x(16,3)=471:y(16,3)=304
x(16,4)=482:y(16,4)=280
x(16,5)=461:y(16,5)=284
x(16,6)=434:y(16,6)=298
x(16,7)=449:y(16,7)=327
x(16,8)=441:y(16,8)=347
x(16,9)=431:y(16,9)=364
x(16,10)=425:y(16,10)=383
x(16,11)=415:y(16,11)=406
x(16,12)=402:y(16,12)=429
x(16,13)=429:y(16,13)=422
x(16,14)=434:y(16,14)=413
x(16,15)=444:y(16,15)=406
x(16,16)=465:y(16,16)=389
x(16,17)=478:y(16,17)=360
n(17)=10
a(17)=4.999999999999998
v(17)=35
d(17)=0.09999999999999999
x(17,0)=504:y(17,0)=378
x(17,1)=516:y(17,1)=345
x(17,2)=494:y(17,2)=322
x(17,3)=476:y(17,3)=353
x(17,4)=455:y(17,4)=380
x(17,5)=452:y(17,5)=412
x(17,6)=460:y(17,6)=422
x(17,7)=486:y(17,7)=408
x(17,8)=503:y(17,8)=392
x(17,9)=512:y(17,9)=356
n(18)=7
a(18)=3.799999999999999
v(18)=10
d(18)=-0.44999999999999996
x(18,0)=514:y(18,0)=352
x(18,1)=504:y(18,1)=374
x(18,2)=493:y(18,2)=406
x(18,3)=488:y(18,3)=423
x(18,4)=514:y(18,4)=416
x(18,5)=528:y(18,5)=362
x(18,6)=546:y(18,6)=351
n(19)=4
a(19)=3.1999999999999993
v(19)=5
d(19)=0.3
x(19,0)=535:y(19,0)=365
x(19,1)=569:y(19,1)=323
x(19,2)=538:y(19,2)=383
x(19,3)=533:y(19,3)=403
n(20)=4
a(20)=1.6999999999999997
v(20)=10
d(20)=0'-1.3877787807814457'e-17
x(20,0)=545:y(20,0)=369
x(20,1)=550:y(20,1)=380
x(20,2)=564:y(20,2)=379
x(20,3)=573:y(20,3)=370
n(21)=7
a(21)=3.1999999999999993
v(21)=5
d(21)=-0.39999999999999997
x(21,0)=581:y(21,0)=352
x(21,1)=576:y(21,1)=362
x(21,2)=563:y(21,2)=380
x(21,3)=550:y(21,3)=420
x(21,4)=565:y(21,4)=419
x(21,5)=594:y(21,5)=390
x(21,6)=607:y(21,6)=367
n(22)=10
a(22)=3.799999999999999
v(22)=15
d(22)=0.2
x(22,0)=635:y(22,0)=382
x(22,1)=659:y(22,1)=353
x(22,2)=646:y(22,2)=328
x(22,3)=620:y(22,3)=339
x(22,4)=601:y(22,4)=356
x(22,5)=591:y(22,5)=385
x(22,6)=588:y(22,6)=406
x(22,7)=604:y(22,7)=415
x(22,8)=626:y(22,8)=402
x(22,9)=645:y(22,9)=367
n(23)=6
a(23)=3.1999999999999993
v(23)=25
d(23)=-0.10000000000000002
x(23,0)=615:y(23,0)=303
x(23,1)=583:y(23,1)=344
x(23,2)=569:y(23,2)=331
x(23,3)=572:y(23,3)=303
x(23,4)=590:y(23,4)=288
x(23,5)=617:y(23,5)=284
n(24)=8
a(24)=3.499999999999999
v(24)=10
d(24)=0.05000000000000002
x(24,0)=579:y(24,0)=312
x(24,1)=612:y(24,1)=265
x(24,2)=650:y(24,2)=274
x(24,3)=674:y(24,3)=306
x(24,4)=653:y(24,4)=345
x(24,5)=647:y(24,5)=377
x(24,6)=637:y(24,6)=382
x(24,7)=621:y(24,7)=396
n(25)=14
a(25)=3.499999999999999
v(25)=20
d(25)=-0.10000000000000002
x(25,0)=693:y(25,0)=365
x(25,1)=695:y(25,1)=336
x(25,2)=675:y(25,2)=337
x(25,3)=662:y(25,3)=348
x(25,4)=650:y(25,4)=372
x(25,5)=630:y(25,5)=402
x(25,6)=637:y(25,6)=409
x(25,7)=667:y(25,7)=410
x(25,8)=678:y(25,8)=408
x(25,9)=683:y(25,9)=394
x(25,10)=688:y(25,10)=381
x(25,11)=692:y(25,11)=373
x(25,12)=695:y(25,12)=360
x(25,13)=687:y(25,13)=348
n(26)=14
a(26)=4.699999999999998
v(26)=5
d(26)=0.39999999999999997
x(26,0)=698:y(26,0)=341
x(26,1)=715:y(26,1)=337
x(26,2)=710:y(26,2)=339
x(26,3)=733:y(26,3)=335
x(26,4)=742:y(26,4)=318
x(26,5)=724:y(26,5)=317
x(26,6)=723:y(26,6)=334
x(26,7)=701:y(26,7)=354
x(26,8)=705:y(26,8)=383
x(26,9)=694:y(26,9)=412
x(26,10)=677:y(26,10)=459
x(26,11)=670:y(26,11)=479
x(26,12)=661:y(26,12)=503
x(26,13)=653:y(26,13)=523
n(27)=10
a(27)=3.1999999999999993
v(27)=20
d(27)=-0.10000000000000002
x(27,0)=678:y(27,0)=445
x(27,1)=699:y(27,1)=384
x(27,2)=723:y(27,2)=324
x(27,3)=747:y(27,3)=304
x(27,4)=760:y(27,4)=366
x(27,5)=760:y(27,5)=391
x(27,6)=712:y(27,6)=425
x(27,7)=695:y(27,7)=424
x(27,8)=703:y(27,8)=369
x(27,9)=715:y(27,9)=350
n(28)=13
a(28)=4.099999999999999
v(28)=35
d(28)=0.05000000000000002
x(28,0)=754:y(28,0)=311
x(28,1)=773:y(28,1)=313
x(28,2)=796:y(28,2)=305
x(28,3)=826:y(28,3)=267
x(28,4)=795:y(28,4)=266
x(28,5)=779:y(28,5)=298
x(28,6)=776:y(28,6)=326
x(28,7)=769:y(28,7)=345
x(28,8)=758:y(28,8)=376
x(28,9)=743:y(28,9)=401
x(28,10)=750:y(28,10)=405
x(28,11)=772:y(28,11)=409
x(28,12)=794:y(28,12)=365
n(29)=8
a(29)=3.1999999999999993
v(29)=30
d(29)=-0.05000000000000002
x(29,0)=760:y(29,0)=370
x(29,1)=748:y(29,1)=431
x(29,2)=791:y(29,2)=380
x(29,3)=839:y(29,3)=333
x(29,4)=789:y(29,4)=311
x(29,5)=767:y(29,5)=358
x(29,6)=750:y(29,6)=373
x(29,7)=735:y(29,7)=387
n(30)=14
a(30)=3.799999999999999
v(30)=45
d(30)=0.05000000000000002
x(30,0)=805:y(30,0)=347
x(30,1)=824:y(30,1)=342
x(30,2)=831:y(30,2)=340
x(30,3)=838:y(30,3)=333
x(30,4)=832:y(30,4)=326
x(30,5)=824:y(30,5)=330
x(30,6)=815:y(30,6)=331
x(30,7)=810:y(30,7)=377
x(30,8)=786:y(30,8)=395
x(30,9)=796:y(30,9)=411
x(30,10)=816:y(30,10)=421
x(30,11)=843:y(30,11)=420
x(30,12)=863:y(30,12)=409
x(30,13)=891:y(30,13)=375
n(31)=15
a(31)=5.599999999999998
v(31)=30
d(31)=-0.15000000000000002
x(31,0)=805:y(31,0)=383
x(31,1)=819:y(31,1)=451
x(31,2)=882:y(31,2)=404
x(31,3)=905:y(31,3)=376
x(31,4)=923:y(31,4)=352
x(31,5)=939:y(31,5)=318
x(31,6)=945:y(31,6)=280
x(31,7)=945:y(31,7)=248
x(31,8)=943:y(31,8)=218
x(31,9)=924:y(31,9)=191
x(31,10)=904:y(31,10)=185
x(31,11)=874:y(31,11)=184
x(31,12)=852:y(31,12)=193
x(31,13)=827:y(31,13)=215
x(31,14)=813:y(31,14)=240
sw = 1024
sh = 768
screen _newimage(sw, sh, 32)
line (0,0)-(sw,sh),_rgb(255,255,255),bf
for h=0 to 2
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
circle (bx, by), r, _rgb(c2,c,0)
next
next
next
|
|
