Turkey!

[tsh73]

In BASIC, you create your own graphic primitives ;)



'Happy belated turkey picture
nomainwin
open "Gobble gobble" for graphics_nsb_nf as #gr
global gr$
gr$="#gr"
#gr "trapclose [quit]"
#gr "down"
'#gr "fill white; flush"
#gr "home; posxy cx cy"
#gr "size 1"

'feathers
rr=130
pi=acs(-1)
for i = 0 to 6
read dummy, color$
call color color$
'sub feather x1,y1,x2,y2,r1,r2,rmid, n
x2=cx+rr*cos(i/6*pi)
y2=200-rr*sin(i/6*pi)
call feather cx,200,x2,y2, 5,20,25, 20
next

'legs
#gr "size 5"
#gr "color brown"
#gr "north"
#gr "place ";cx+20;" ";280
#gr "go 100; go -80; turn 145; go 20; go -20; turn 70; go 20"
#gr "north"
#gr "place ";cx-20;" ";280
#gr "go 100; go -80; turn 145; go 20; go -20; turn 70; go 20"

'body
call color "135 67 50"'"brown"
'call  circlefilled cx, cy, 50
call feather cx,200,cx,120,50,30,20, 20

'eyes
#gr "color white"
#gr "backcolor black"
#gr "size 4"
call  circlefilled cx+12, 110, 7
call  circlefilled cx-12, 110, 7

'snood
call color "red"
#gr "size 1"
call feather cx+5,120,cx+10,140,1,5,2, 10

'beak
call color "yellow"
#gr "place ";cx;" ";135
#gr "piefilled 20 30 250 45"


#gr "flush"
wait

[quit]
timer 0
close #gr
end

'sampled from a picture, because 255 etc are too harsh
data R, "226 0 17"
data O, "255 94 60"
data Y, "252 247 82"
data G, "0 188 56"
data B, "0 157 245"
data I, "8 7 124"
data V, "50 9 148"

'============================================
sub circlefilled x, y, r
#gr$ "place ";x;" ";y
#gr$ "circlefilled ";r
end sub

sub color color$
#gr$ "color ";color$
#gr$ "backcolor ";color$
end sub

sub feather x1,y1,x2,y2,r1,r2,rMid, n
'for parabInterp
baseX(1)=0:baseX(2)=.5:baseX(3)=1
baseY(1)=r1:baseY(2)=rMid:baseY(3)=r2

for i = 0 to n
a=i/n
x=linInterp(x1,x2,a)
y=linInterp(y1,y2,a)
r=parabInterp(a)
'print a, r
#gr$ "place ";x;" ";y
#gr$ "circlefilled ";r
next
end sub

function linInterp(x1,x2,a) 'a supposed to be 0..1
linInterp=x1*(1-a)+x2*a '0 returns x1, 1 -> x2
end function

function parabInterpA(a)
parabInterpA=parabInterp(linInterp(baseX(1),baseX(3),a))
end function

function parabInterp(x)
'uses arrays of base point baseX(), baseY()
   y=0
   for i = 1 to 3
       p=1
       for j = 1 to 3
           if i<>j then
               p=p*(x-baseX(j))/(baseX(i)-baseX(j))
           end if
       next
       y=y+baseY(i)*p
   next
parabInterp=y
end function

'*****************************************************
'function returns a random integer in range [Min, Max)
function randRange(Min, Max)
   randRange = Min +  random(Max-Min)
end function

'*****************************************************
'function returns a random integer in range [0, n)
function random(n)
   random = int(rnd(1)*n)
end function



[marshawn]

arbitrary n-th order polinoms ;-)

[tsh73]

arbitrary

Lol

Really beautiful indeed. Is there a code that could be seen?

[marshawn]

I have nothing better to do

[marshawn]


H$ = "gr"

global pi, u, v, zoom
pi = 4*atn(1)

zoom = 100

nomainwin
sw = 1024
sh = 768
sw2 = sw/2
sh2 = sh/2
WindowWidth = sw
WindowHeight = sh
dim x(46,22),y(46,22)
dim n(46),a(46),v(46),d(46)
m=46
n(0)=17:a(0)=5.599999999999998:v(0)=25:d(0)=0
x(0,0)=700:y(0,0)=292:x(0,1)=670:y(0,1)=288:x(0,2)=640:y(0,2)=287:x(0,3)=608:y(0,3)=291:x(0,4)=576:y(0,4)=299:x(0,5)=546:y(0,5)=309
x(0,6)=518:y(0,6)=321:x(0,7)=491:y(0,7)=335:x(0,8)=465:y(0,8)=351:x(0,9)=440:y(0,9)=369:x(0,10)=415:y(0,10)=387:x(0,11)=389:y(0,11)=403
x(0,12)=361:y(0,12)=416:x(0,13)=333:y(0,13)=427:x(0,14)=299:y(0,14)=434:x(0,15)=269:y(0,15)=439:x(0,16)=238:y(0,16)=442
n(1)=22:a(1)=4.999999999999998:v(1)=40:d(1)=-0.1
x(1,0)=724:y(1,0)=313:x(1,1)=695:y(1,1)=305:x(1,2)=665:y(1,2)=307:x(1,3)=634:y(1,3)=310:x(1,4)=604:y(1,4)=317:x(1,5)=567:y(1,5)=314
x(1,6)=533:y(1,6)=328:x(1,7)=510:y(1,7)=350:x(1,8)=494:y(1,8)=367:x(1,9)=475:y(1,9)=399:x(1,10)=454:y(1,10)=423:x(1,11)=429:y(1,11)=445
x(1,12)=405:y(1,12)=465:x(1,13)=391:y(1,13)=486:x(1,14)=369:y(1,14)=508:x(1,15)=330:y(1,15)=522:x(1,16)=289:y(1,16)=522:x(1,17)=262:y(1,17)=514
x(1,18)=232:y(1,18)=497:x(1,19)=202:y(1,19)=490:x(1,20)=173:y(1,20)=478:x(1,21)=145:y(1,21)=463
n(2)=21:a(2)=5.899999999999998:v(2)=25:d(2)=0.10000000000000002
x(2,0)=238:y(2,0)=555:x(2,1)=282:y(2,1)=522:x(2,2)=301:y(2,2)=504:x(2,3)=342:y(2,3)=488:x(2,4)=383:y(2,4)=487:x(2,5)=415:y(2,5)=486
x(2,6)=448:y(2,6)=486:x(2,7)=480:y(2,7)=487:x(2,8)=510:y(2,8)=489:x(2,9)=540:y(2,9)=490:x(2,10)=574:y(2,10)=490:x(2,11)=608:y(2,11)=503
x(2,12)=644:y(2,12)=500:x(2,13)=671:y(2,13)=493:x(2,14)=696:y(2,14)=480:x(2,15)=732:y(2,15)=467:x(2,16)=754:y(2,16)=442:x(2,17)=781:y(2,17)=430
x(2,18)=802:y(2,18)=409:x(2,19)=822:y(2,19)=386:x(2,20)=839:y(2,20)=361
n(3)=12:a(3)=4.399999999999999:v(3)=10:d(3)=0
x(3,0)=6:y(3,0)=462:x(3,1)=73:y(3,1)=491:x(3,2)=102:y(3,2)=500:x(3,3)=131:y(3,3)=511:x(3,4)=162:y(3,4)=520:x(3,5)=189:y(3,5)=526
x(3,6)=219:y(3,6)=529:x(3,7)=254:y(3,7)=528:x(3,8)=287:y(3,8)=528:x(3,9)=315:y(3,9)=521:x(3,10)=347:y(3,10)=511:x(3,11)=394:y(3,11)=496
n(4)=16:a(4)=5.899999999999998:v(4)=20:d(4)=1.3877787807814457e-17
x(4,0)=3:y(4,0)=579:x(4,1)=33:y(4,1)=578:x(4,2)=64:y(4,2)=578
x(4,3)=95:y(4,3)=574:x(4,4)=125:y(4,4)=572:x(4,5)=155:y(4,5)=567:x(4,6)=186:y(4,6)=561:x(4,7)=216:y(4,7)=556:x(4,8)=250:y(4,8)=550
x(4,9)=279:y(4,9)=541:x(4,10)=308:y(4,10)=531:x(4,11)=338:y(4,11)=524:x(4,12)=367:y(4,12)=515:x(4,13)=393:y(4,13)=509
x(4,14)=414:y(4,14)=504:x(4,15)=431:y(4,15)=500
n(5)=18:a(5)=4.399999999999999:v(5)=15:d(5)=0
x(5,0)=525:y(5,0)=506:x(5,1)=498:y(5,1)=506:x(5,2)=466:y(5,2)=507:x(5,3)=437:y(5,3)=510:x(5,4)=405:y(5,4)=514:x(5,5)=375:y(5,5)=524
x(5,6)=346:y(5,6)=534:x(5,7)=317:y(5,7)=544:x(5,8)=288:y(5,8)=553:x(5,9)=259:y(5,9)=564:x(5,10)=231:y(5,10)=576:x(5,11)=203:y(5,11)=588
x(5,12)=175:y(5,12)=599:x(5,13)=147:y(5,13)=613:x(5,14)=119:y(5,14)=628:x(5,15)=94:y(5,15)=646:x(5,16)=69:y(5,16)=663:x(5,17)=46:y(5,17)=683
n(6)=17:a(6)=4.999999999999998:v(6)=15:d(6)=1.3877787807814457e-17
x(6,0)=109:y(6,0)=686:x(6,1)=131:y(6,1)=665:x(6,2)=155:y(6,2)=646:x(6,3)=182:y(6,3)=632:x(6,4)=207:y(6,4)=611:x(6,5)=239:y(6,5)=595
x(6,6)=261:y(6,6)=584:x(6,7)=289:y(6,7)=571:x(6,8)=319:y(6,8)=561:x(6,9)=348:y(6,9)=552:x(6,10)=376:y(6,10)=541:x(6,11)=404:y(6,11)=530
x(6,12)=435:y(6,12)=526:x(6,13)=465:y(6,13)=519:x(6,14)=505:y(6,14)=517:x(6,15)=539:y(6,15)=516:x(6,16)=573:y(6,16)=513
n(7)=16:a(7)=4.099999999999999:v(7)=15:d(7)=0
x(7,0)=186:y(7,0)=683:x(7,1)=209:y(7,1)=662:x(7,2)=232:y(7,2)=642:x(7,3)=255:y(7,3)=621:x(7,4)=281:y(7,4)=606:x(7,5)=307:y(7,5)=589
x(7,6)=334:y(7,6)=575:x(7,7)=363:y(7,7)=563:x(7,8)=398:y(7,8)=552:x(7,9)=427:y(7,9)=544:x(7,10)=458:y(7,10)=539:x(7,11)=489:y(7,11)=534
x(7,12)=519:y(7,12)=529:x(7,13)=552:y(7,13)=526:x(7,14)=582:y(7,14)=525:x(7,15)=612:y(7,15)=522
n(8)=8:a(8)=3.499999999999999:v(8)=10:d(8)=1.3877787807814457e-17
x(8,0)=532:y(8,0)=537:x(8,1)=481:y(8,1)=546:x(8,2)=445:y(8,2)=554:x(8,3)=414:y(8,3)=568:x(8,4)=387:y(8,4)=579:x(8,5)=357:y(8,5)=598
x(8,6)=330:y(8,6)=623:x(8,7)=291:y(8,7)=680
n(9)=15:a(9)=1.6999999999999997:v(9)=50:d(9)=0.05
x(9,0)=669:y(9,0)=298:x(9,1)=700:y(9,1)=294:x(9,2)=731:y(9,2)=287:x(9,3)=759:y(9,3)=272:x(9,4)=781:y(9,4)=255:x(9,5)=795:y(9,5)=226
x(9,6)=818:y(9,6)=180:x(9,7)=837:y(9,7)=160:x(9,8)=857:y(9,8)=145:x(9,9)=890:y(9,9)=142:x(9,10)=922:y(9,10)=155:x(9,11)=921:y(9,11)=187
x(9,12)=904:y(9,12)=213:x(9,13)=881:y(9,13)=224:x(9,14)=857:y(9,14)=232
n(10)=6:a(10)=1.3999999999999997:v(10)=15:d(10)=1.3877787807814457e-17
x(10,0)=322:y(10,0)=437:x(10,1)=355:y(10,1)=431:x(10,2)=384:y(10,2)=417:x(10,3)=409:y(10,3)=404:x(10,4)=430:y(10,4)=392:x(10,5)=451:y(10,5)=378
n(11)=5:a(11)=1.3999999999999997:v(11)=25:d(11)=0.05
x(11,0)=367:y(11,0)=436:x(11,1)=393:y(11,1)=426:x(11,2)=416:y(11,2)=415:x(11,3)=440:y(11,3)=400:x(11,4)=468:y(11,4)=373
n(12)=5:a(12)=1.3999999999999997:v(12)=20:d(12)=1.3877787807814457e-17
x(12,0)=411:y(12,0)=434:x(12,1)=432:y(12,1)=419:x(12,2)=449:y(12,2)=405:x(12,3)=469:y(12,3)=386:x(12,4)=487:y(12,4)=365
n(13)=5:a(13)=0.19999999999999962:v(13)=25:d(13)=0.05
x(13,0)=901:y(13,0)=179:x(13,1)=912:y(13,1)=168:x(13,2)=928:y(13,2)=146:x(13,3)=948:y(13,3)=135:x(13,4)=975:y(13,4)=134
n(14)=6:a(14)=1.0999999999999996:v(14)=20:d(14)=0.05000000000000002
x(14,0)=973:y(14,0)=133:x(14,1)=932:y(14,1)=144:x(14,2)=925:y(14,2)=179:x(14,3)=922:y(14,3)=184:x(14,4)=924:y(14,4)=191:x(14,5)=919:y(14,5)=208
n(15)=16:a(15)=1.3999999999999997:v(15)=85:d(15)=-0.2
x(15,0)=918:y(15,0)=205:x(15,1)=904:y(15,1)=214:x(15,2)=878:y(15,2)=241:x(15,3)=874:y(15,3)=252:x(15,4)=875:y(15,4)=264
x(15,5)=876:y(15,5)=266:x(15,6)=882:y(15,6)=264:x(15,7)=892:y(15,7)=257:x(15,8)=899:y(15,8)=247:x(15,9)=907:y(15,9)=230
x(15,10)=914:y(15,10)=212:x(15,11)=923:y(15,11)=175:x(15,12)=944:y(15,12)=170:x(15,13)=951:y(15,13)=162:x(15,14)=956:y(15,14)=157
x(15,15)=965:y(15,15)=155
n(16)=8:a(16)=1.3999999999999997:v(16)=20:d(16)=0.05000000000000002
x(16,0)=969:y(16,0)=152:x(16,1)=934:y(16,1)=178:x(16,2)=920:y(16,2)=206:x(16,3)=937:y(16,3)=232:x(16,4)=932:y(16,4)=255
x(16,5)=909:y(16,5)=253:x(16,6)=899:y(16,6)=286:x(16,7)=895:y(16,7)=288
n(17)=8:a(17)=0.19999999999999962:v(17)=105:d(17)=-0.2
x(17,0)=897:y(17,0)=287:x(17,1)=884:y(17,1)=318:x(17,2)=869:y(17,2)=340:x(17,3)=851:y(17,3)=370:x(17,4)=833:y(17,4)=388
x(17,5)=827:y(17,5)=412:x(17,6)=827:y(17,6)=435:x(17,7)=830:y(17,7)=468
n(18)=5:a(18)=1.0999999999999996:v(18)=55:d(18)=1.3877787807814457e-17
x(18,0)=831:y(18,0)=390:x(18,1)=820:y(18,1)=415:x(18,2)=817:y(18,2)=436:x(18,3)=815:y(18,3)=461:x(18,4)=817:y(18,4)=483
n(19)=5:a(19)=1.0999999999999996:v(19)=30:d(19)=-0.05000000000000002
x(19,0)=812:y(19,0)=423:x(19,1)=803:y(19,1)=448:x(19,2)=804:y(19,2)=470:x(19,3)=798:y(19,3)=490:x(19,4)=790:y(19,4)=506
n(20)=4:a(20)=1.0999999999999996:v(20)=45:d(20)=1.3877787807814457e-17
x(20,0)=796:y(20,0)=448:x(20,1)=789:y(20,1)=478:x(20,2)=781:y(20,2)=503:x(20,3)=754:y(20,3)=527
n(21)=12:a(21)=0.19999999999999962:v(21)=75:d(21)=-0.05000000000000002
x(21,0)=784:y(21,0)=467:x(21,1)=764:y(21,1)=498:x(21,2)=743:y(21,2)=516:x(21,3)=720:y(21,3)=530:x(21,4)=694:y(21,4)=542
x(21,5)=661:y(21,5)=549:x(21,6)=630:y(21,6)=550:x(21,7)=600:y(21,7)=543:x(21,8)=573:y(21,8)=535:x(21,9)=545:y(21,9)=526
x(21,10)=526:y(21,10)=519:x(21,11)=494:y(21,11)=501
n(22)=6:a(22)=2.3:v(22)=15:d(22)=-0.15
x(22,0)=878:y(22,0)=230:x(22,1)=847:y(22,1)=242:x(22,2)=855:y(22,2)=267:x(22,3)=833:y(22,3)=270:x(22,4)=810:y(22,4)=280
x(22,5)=785:y(22,5)=290
n(23)=6:a(23)=0.19999999999999962:v(23)=75:d(23)=-0.05000000000000002
x(23,0)=880:y(23,0)=235:x(23,1)=850:y(23,1)=247:x(23,2)=874:y(23,2)=264:x(23,3)=831:y(23,3)=282:x(23,4)=798:y(23,4)=300
x(23,5)=751:y(23,5)=319
n(24)=4:a(24)=1.3999999999999997:v(24)=15:d(24)=-0.35
x(24,0)=868:y(24,0)=247:x(24,1)=870:y(24,1)=253:x(24,2)=873:y(24,2)=251:x(24,3)=871:y(24,3)=245
n(25)=9:a(25)=0.19999999999999962:v(25)=75:d(25)=-0.05000000000000002
x(25,0)=858:y(25,0)=265:x(25,1)=824:y(25,1)=295:x(25,2)=802:y(25,2)=308
x(25,3)=779:y(25,3)=326:x(25,4)=752:y(25,4)=341:x(25,5)=724:y(25,5)=359:x(25,6)=698:y(25,6)=374
x(25,7)=669:y(25,7)=384:x(25,8)=636:y(25,8)=389
n(26)=4:a(26)=1.0999999999999996:v(26)=25:d(26)=0.04999999999999999
x(26,0)=808:y(26,0)=351:x(26,1)=814:y(26,1)=321:x(26,2)=830:y(26,2)=295:x(26,3)=853:y(26,3)=274
n(27)=5:a(27)=1.3999999999999997:v(27)=60:d(27)=0.25
x(27,0)=871:y(27,0)=242:x(27,1)=883:y(27,1)=253:x(27,2)=867:y(27,2)=268:x(27,3)=838:y(27,3)=286
x(27,4)=840:y(27,4)=341
n(28)=16:a(28)=4.399999999999999:v(28)=25:d(28)=0.04999999999999999
x(28,0)=768:y(28,0)=357:x(28,1)=747:y(28,1)=324:x(28,2)=718:y(28,2)=314:x(28,3)=683:y(28,3)=313:x(28,4)=646:y(28,4)=317
x(28,5)=648:y(28,5)=352:x(28,6)=649:y(28,6)=379:x(28,7)=663:y(28,7)=404:x(28,8)=675:y(28,8)=422:x(28,9)=694:y(28,9)=423
x(28,10)=711:y(28,10)=426:x(28,11)=728:y(28,11)=432:x(28,12)=749:y(28,12)=431:x(28,13)=770:y(28,13)=420:x(28,14)=784:y(28,14)=392
x(28,15)=796:y(28,15)=364
n(29)=13:a(29)=4.399999999999999:v(29)=60:d(29)=0.05000000000000002
x(29,0)=717:y(29,0)=350:x(29,1)=694:y(29,1)=331:x(29,2)=658:y(29,2)=316
x(29,3)=616:y(29,3)=317:x(29,4)=592:y(29,4)=334:x(29,5)=582:y(29,5)=372:x(29,6)=594:y(29,6)=422:x(29,7)=616:y(29,7)=444
x(29,8)=650:y(29,8)=460:x(29,9)=682:y(29,9)=463:x(29,10)=712:y(29,10)=452:x(29,11)=732:y(29,11)=438:x(29,12)=750:y(29,12)=403
n(30)=15:a(30)=4.399999999999999:v(30)=35:d(30)=-1.3877787807814457e-17
x(30,0)=648:y(30,0)=357:x(30,1)=624:y(30,1)=339:x(30,2)=586:y(30,2)=322:x(30,3)=547:y(30,3)=336:x(30,4)=531:y(30,4)=365
x(30,5)=534:y(30,5)=393:x(30,6)=544:y(30,6)=424:x(30,7)=559:y(30,7)=444:x(30,8)=577:y(30,8)=466:x(30,9)=607:y(30,9)=474
x(30,10)=628:y(30,10)=479:x(30,11)=664:y(30,11)=473:x(30,12)=681:y(30,12)=462:x(30,13)=691:y(30,13)=423
x(30,14)=695:y(30,14)=416
n(31)=13:a(31)=4.399999999999999:v(31)=30:d(31)=1.3877787807814457e-17
x(31,0)=597:y(31,0)=375:x(31,1)=563:y(31,1)=362:x(31,2)=523:y(31,2)=351:x(31,3)=498:y(31,3)=380:x(31,4)=480:y(31,4)=410
x(31,5)=488:y(31,5)=433:x(31,6)=499:y(31,6)=451:x(31,7)=514:y(31,7)=467:x(31,8)=543:y(31,8)=479
x(31,9)=579:y(31,9)=481:x(31,10)=603:y(31,10)=479:x(31,11)=636:y(31,11)=470:x(31,12)=648:y(31,12)=420
n(32)=10:a(32)=3.799999999999999:v(32)=35:d(32)=-1.3877787807814457e-17
x(32,0)=528:y(32,0)=408:x(32,1)=490:y(32,1)=395:x(32,2)=463:y(32,2)=411:x(32,3)=454:y(32,3)=435:x(32,4)=449:y(32,4)=461
x(32,5)=463:y(32,5)=481:x(32,6)=499:y(32,6)=490:x(32,7)=535:y(32,7)=488:x(32,8)=560:y(32,8)=462:x(32,9)=571:y(32,9)=420
n(33)=5:a(33)=2.3:v(33)=25:d(33)=1.3877787807814457e-17
x(33,0)=452:y(33,0)=440:x(33,1)=434:y(33,1)=448:x(33,2)=430:y(33,2)=476:x(33,3)=460:y(33,3)=486:x(33,4)=472:y(33,4)=477
n(34)=4:a(34)=1.0999999999999996:v(34)=50:d(34)=-1.3877787807814457e-17
x(34,0)=426:y(34,0)=458:x(34,1)=421:y(34,1)=467:x(34,2)=424:y(34,2)=477:x(34,3)=435:y(34,3)=478
n(35)=5:a(35)=2.8999999999999995:v(35)=5:d(35)=0.25
x(35,0)=617:y(35,0)=582:x(35,1)=648:y(35,1)=578:x(35,2)=682:y(35,2)=578:x(35,3)=715:y(35,3)=573
x(35,4)=759:y(35,4)=567
n(36)=9:a(36)=0.7999999999999996:v(36)=50:d(36)=0.35
x(36,0)=701:y(36,0)=575:x(36,1)=670:y(36,1)=580:x(36,2)=623:y(36,2)=580:x(36,3)=600:y(36,3)=577:x(36,4)=578:y(36,4)=584
x(36,5)=550:y(36,5)=596:x(36,6)=567:y(36,6)=641:x(36,7)=625:y(36,7)=645:x(36,8)=619:y(36,8)=598
n(37)=11:a(37)=1.6999999999999997:v(37)=40:d(37)=-0.2
x(37,0)=664:y(37,0)=585:x(37,1)=647:y(37,1)=587:x(37,2)=621:y(37,2)=621
x(37,3)=645:y(37,3)=658:x(37,4)=614:y(37,4)=666:x(37,5)=552:y(37,5)=673:x(37,6)=523:y(37,6)=665
x(37,7)=500:y(37,7)=644:x(37,8)=502:y(37,8)=612:x(37,9)=566:y(37,9)=582:x(37,10)=568:y(37,10)=632
n(38)=5:a(38)=1.9999999999999998:v(38)=35:d(38)=1.3877787807814457e-17
x(38,0)=685:y(38,0)=584:x(38,1)=658:y(38,1)=591:x(38,2)=658:y(38,2)=625:x(38,3)=643:y(38,3)=649:x(38,4)=619:y(38,4)=660
n(39)=6:a(39)=1.9999999999999998:v(39)=40:d(39)=-0.2
x(39,0)=706:y(39,0)=583:x(39,1)=671:y(39,1)=598:x(39,2)=677:y(39,2)=630:x(39,3)=637:y(39,3)=662:x(39,4)=673:y(39,4)=662
x(39,5)=691:y(39,5)=639
n(40)=9:a(40)=1.9999999999999998:v(40)=35:d(40)=-0.09999999999999999
x(40,0)=731:y(40,0)=628:x(40,1)=723:y(40,1)=597:x(40,2)=703:y(40,2)=607:x(40,3)=679:y(40,3)=658:x(40,4)=691:y(40,4)=669
x(40,5)=724:y(40,5)=654:x(40,6)=744:y(40,6)=644:x(40,7)=727:y(40,7)=616:x(40,8)=724:y(40,8)=615
n(41)=8:a(41)=1.9999999999999998:v(41)=40:d(41)=-0.2
x(41,0)=750:y(41,0)=639:x(41,1)=750:y(41,1)=636:x(41,2)=741:y(41,2)=622:x(41,3)=737:y(41,3)=651
x(41,4)=744:y(41,4)=666:x(41,5)=760:y(41,5)=644:x(41,6)=772:y(41,6)=627:x(41,7)=784:y(41,7)=598
n(42)=5:a(42)=1.9999999999999998:v(42)=25:d(42)=-0.15
x(42,0)=791:y(42,0)=586:x(42,1)=770:y(42,1)=623:x(42,2)=760:y(42,2)=653:x(42,3)=791:y(42,3)=657:x(42,4)=797:y(42,4)=634
n(43)=8:a(43)=2.5999999999999996:v(43)=30:d(43)=-0.2
x(43,0)=804:y(43,0)=639:x(43,1)=803:y(43,1)=626:x(43,2)=787:y(43,2)=637:x(43,3)=793:y(43,3)=651:x(43,4)=800:y(43,4)=651
x(43,5)=811:y(43,5)=651:x(43,6)=837:y(43,6)=636:x(43,7)=869:y(43,7)=562
n(44)=13:a(44)=2.3:v(44)=25:d(44)=1.3877787807814457e-17
x(44,0)=848:y(44,0)=604:x(44,1)=868:y(44,1)=571:x(44,2)=861:y(44,2)=562:x(44,3)=853:y(44,3)=556:x(44,4)=843:y(44,4)=557
x(44,5)=834:y(44,5)=562:x(44,6)=821:y(44,6)=571:x(44,7)=815:y(44,7)=592:x(44,8)=819:y(44,8)=604:x(44,9)=805:y(44,9)=624
x(44,10)=839:y(44,10)=618:x(44,11)=850:y(44,11)=600:x(44,12)=863:y(44,12)=579
n(45)=10:a(45)=2.5999999999999996:v(45)=30:d(45)=-0.2
x(45,0)=870:y(45,0)=563:x(45,1)=855:y(45,1)=595:x(45,2)=840:y(45,2)=621:x(45,3)=826:y(45,3)=654:x(45,4)=833:y(45,4)=653
x(45,5)=848:y(45,5)=653:x(45,6)=866:y(45,6)=646:x(45,7)=874:y(45,7)=641:x(45,8)=875:y(45,8)=639:x(45,9)=879:y(45,9)=631

open "Paper" for graphics_nsb_nf as #gr
#gr "trapclose quit"
#gr "down"
#gr "fill white"
#gr "backcolor black"
#gr "color black"


for k=0 to m
for t=0 to 1 step 0.001
   bx = 0
   by = 0
   for i=0 to n(k)
       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)

       scan
   next

   r = 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
next
next

#gr "flush"

wait

sub quit Hdl$
   close #Hdl$
   end
end sub


[plus]

Wow you coded it to some sort of data maker. Looks very nice!

The wider lines in places is A+ mod!

[tsh73]

Cool stuff.
So d() is offset of bold line from a center line (%)
a() obviously kind of amplitude
v() ?? slope of an exponent, responsible for length of wider part?

But the part that do smoothing is real magic.

OMG
Just doubled a() - doubled is too much,
(Simple "r = 1.5*" from what it was).
It got bold accents EVERYWHERE. You have to see it!

EDIT I made some finer-grained mod, so here it is


H$ = "gr"

global pi, u, v, zoom
pi = 4*atn(1)

zoom = 100

nomainwin
sw = 1024
sh = 768
sw2 = sw/2
sh2 = sh/2
WindowWidth = sw
WindowHeight = sh
dim x(46,22),y(46,22)
dim n(46),a(46),v(46),d(46)
m=46
n(0)=17:a(0)=5.6:v(0)=25:d(0)=0
x(0,0)=700:y(0,0)=292:x(0,1)=670:y(0,1)=288:x(0,2)=640:y(0,2)=287:x(0,3)=608:y(0,3)=291:x(0,4)=576:y(0,4)=299:x(0,5)=546:y(0,5)=309
x(0,6)=518:y(0,6)=321:x(0,7)=491:y(0,7)=335:x(0,8)=465:y(0,8)=351:x(0,9)=440:y(0,9)=369:x(0,10)=415:y(0,10)=387:x(0,11)=389:y(0,11)=403
x(0,12)=361:y(0,12)=416:x(0,13)=333:y(0,13)=427:x(0,14)=299:y(0,14)=434:x(0,15)=269:y(0,15)=439:x(0,16)=238:y(0,16)=442
n(1)=22:a(1)=5:v(1)=40:d(1)=-0.1
x(1,0)=724:y(1,0)=313:x(1,1)=695:y(1,1)=305:x(1,2)=665:y(1,2)=307:x(1,3)=634:y(1,3)=310:x(1,4)=604:y(1,4)=317:x(1,5)=567:y(1,5)=314
x(1,6)=533:y(1,6)=328:x(1,7)=510:y(1,7)=350:x(1,8)=494:y(1,8)=367:x(1,9)=475:y(1,9)=399:x(1,10)=454:y(1,10)=423:x(1,11)=429:y(1,11)=445
x(1,12)=405:y(1,12)=465:x(1,13)=391:y(1,13)=486:x(1,14)=369:y(1,14)=508:x(1,15)=330:y(1,15)=522:x(1,16)=289:y(1,16)=522:x(1,17)=262:y(1,17)=514
x(1,18)=232:y(1,18)=497:x(1,19)=202:y(1,19)=490:x(1,20)=173:y(1,20)=478:x(1,21)=145:y(1,21)=463
n(2)=21:a(2)=5.9:v(2)=25:d(2)=0.1
x(2,0)=238:y(2,0)=555:x(2,1)=282:y(2,1)=522:x(2,2)=301:y(2,2)=504:x(2,3)=342:y(2,3)=488:x(2,4)=383:y(2,4)=487:x(2,5)=415:y(2,5)=486
x(2,6)=448:y(2,6)=486:x(2,7)=480:y(2,7)=487:x(2,8)=510:y(2,8)=489:x(2,9)=540:y(2,9)=490:x(2,10)=574:y(2,10)=490:x(2,11)=608:y(2,11)=503
x(2,12)=644:y(2,12)=500:x(2,13)=671:y(2,13)=493:x(2,14)=696:y(2,14)=480:x(2,15)=732:y(2,15)=467:x(2,16)=754:y(2,16)=442:x(2,17)=781:y(2,17)=430
x(2,18)=802:y(2,18)=409:x(2,19)=822:y(2,19)=386:x(2,20)=839:y(2,20)=361
n(3)=12:a(3)=4.4:v(3)=10:d(3)=0
x(3,0)=6:y(3,0)=462:x(3,1)=73:y(3,1)=491:x(3,2)=102:y(3,2)=500:x(3,3)=131:y(3,3)=511:x(3,4)=162:y(3,4)=520:x(3,5)=189:y(3,5)=526
x(3,6)=219:y(3,6)=529:x(3,7)=254:y(3,7)=528:x(3,8)=287:y(3,8)=528:x(3,9)=315:y(3,9)=521:x(3,10)=347:y(3,10)=511:x(3,11)=394:y(3,11)=496
n(4)=16:a(4)=5.9:v(4)=20:d(4)=0
x(4,0)=3:y(4,0)=579:x(4,1)=33:y(4,1)=578:x(4,2)=64:y(4,2)=578
x(4,3)=95:y(4,3)=574:x(4,4)=125:y(4,4)=572:x(4,5)=155:y(4,5)=567:x(4,6)=186:y(4,6)=561:x(4,7)=216:y(4,7)=556:x(4,8)=250:y(4,8)=550
x(4,9)=279:y(4,9)=541:x(4,10)=308:y(4,10)=531:x(4,11)=338:y(4,11)=524:x(4,12)=367:y(4,12)=515:x(4,13)=393:y(4,13)=509
x(4,14)=414:y(4,14)=504:x(4,15)=431:y(4,15)=500
n(5)=18:a(5)=4.4:v(5)=15:d(5)=0
x(5,0)=525:y(5,0)=506:x(5,1)=498:y(5,1)=506:x(5,2)=466:y(5,2)=507:x(5,3)=437:y(5,3)=510:x(5,4)=405:y(5,4)=514:x(5,5)=375:y(5,5)=524
x(5,6)=346:y(5,6)=534:x(5,7)=317:y(5,7)=544:x(5,8)=288:y(5,8)=553:x(5,9)=259:y(5,9)=564:x(5,10)=231:y(5,10)=576:x(5,11)=203:y(5,11)=588
x(5,12)=175:y(5,12)=599:x(5,13)=147:y(5,13)=613:x(5,14)=119:y(5,14)=628:x(5,15)=94:y(5,15)=646:x(5,16)=69:y(5,16)=663:x(5,17)=46:y(5,17)=683
n(6)=17:a(6)=5:v(6)=15:d(6)=0
x(6,0)=109:y(6,0)=686:x(6,1)=131:y(6,1)=665:x(6,2)=155:y(6,2)=646:x(6,3)=182:y(6,3)=632:x(6,4)=207:y(6,4)=611:x(6,5)=239:y(6,5)=595
x(6,6)=261:y(6,6)=584:x(6,7)=289:y(6,7)=571:x(6,8)=319:y(6,8)=561:x(6,9)=348:y(6,9)=552:x(6,10)=376:y(6,10)=541:x(6,11)=404:y(6,11)=530
x(6,12)=435:y(6,12)=526:x(6,13)=465:y(6,13)=519:x(6,14)=505:y(6,14)=517:x(6,15)=539:y(6,15)=516:x(6,16)=573:y(6,16)=513
n(7)=16:a(7)=4.1:v(7)=15:d(7)=0
x(7,0)=186:y(7,0)=683:x(7,1)=209:y(7,1)=662:x(7,2)=232:y(7,2)=642:x(7,3)=255:y(7,3)=621:x(7,4)=281:y(7,4)=606:x(7,5)=307:y(7,5)=589
x(7,6)=334:y(7,6)=575:x(7,7)=363:y(7,7)=563:x(7,8)=398:y(7,8)=552:x(7,9)=427:y(7,9)=544:x(7,10)=458:y(7,10)=539:x(7,11)=489:y(7,11)=534
x(7,12)=519:y(7,12)=529:x(7,13)=552:y(7,13)=526:x(7,14)=582:y(7,14)=525:x(7,15)=612:y(7,15)=522
n(8)=8:a(8)=3.5:v(8)=10:d(8)=0
x(8,0)=532:y(8,0)=537:x(8,1)=481:y(8,1)=546:x(8,2)=445:y(8,2)=554:x(8,3)=414:y(8,3)=568:x(8,4)=387:y(8,4)=579:x(8,5)=357:y(8,5)=598
x(8,6)=330:y(8,6)=623:x(8,7)=291:y(8,7)=680
n(9)=15:a(9)=1.7:v(9)=50:d(9)=0.05
x(9,0)=669:y(9,0)=298:x(9,1)=700:y(9,1)=294:x(9,2)=731:y(9,2)=287:x(9,3)=759:y(9,3)=272:x(9,4)=781:y(9,4)=255:x(9,5)=795:y(9,5)=226
x(9,6)=818:y(9,6)=180:x(9,7)=837:y(9,7)=160:x(9,8)=857:y(9,8)=145:x(9,9)=890:y(9,9)=142:x(9,10)=922:y(9,10)=155:x(9,11)=921:y(9,11)=187
x(9,12)=904:y(9,12)=213:x(9,13)=881:y(9,13)=224:x(9,14)=857:y(9,14)=232
n(10)=6:a(10)=1.47:v(10)=15:d(10)=0
x(10,0)=322:y(10,0)=437:x(10,1)=355:y(10,1)=431:x(10,2)=384:y(10,2)=417:x(10,3)=409:y(10,3)=404:x(10,4)=430:y(10,4)=392:x(10,5)=451:y(10,5)=378
n(11)=5:a(11)=1.47:v(11)=25:d(11)=0.05
x(11,0)=367:y(11,0)=436:x(11,1)=393:y(11,1)=426:x(11,2)=416:y(11,2)=415:x(11,3)=440:y(11,3)=400:x(11,4)=468:y(11,4)=373
n(12)=5:a(12)=1.47:v(12)=20:d(12)=0
x(12,0)=411:y(12,0)=434:x(12,1)=432:y(12,1)=419:x(12,2)=449:y(12,2)=405:x(12,3)=469:y(12,3)=386:x(12,4)=487:y(12,4)=365
n(13)=5:a(13)=0.2:v(13)=25:d(13)=0.05
x(13,0)=901:y(13,0)=179:x(13,1)=912:y(13,1)=168:x(13,2)=928:y(13,2)=146:x(13,3)=948:y(13,3)=135:x(13,4)=975:y(13,4)=134
n(14)=6:a(14)=1.16:v(14)=20:d(14)=0.05
x(14,0)=973:y(14,0)=133:x(14,1)=932:y(14,1)=144:x(14,2)=925:y(14,2)=179:x(14,3)=922:y(14,3)=184:x(14,4)=924:y(14,4)=191:x(14,5)=919:y(14,5)=208
n(15)=16:a(15)=1.47:v(15)=85:d(15)=-0.2
x(15,0)=918:y(15,0)=205:x(15,1)=904:y(15,1)=214:x(15,2)=878:y(15,2)=241:x(15,3)=874:y(15,3)=252:x(15,4)=875:y(15,4)=264
x(15,5)=876:y(15,5)=266:x(15,6)=882:y(15,6)=264:x(15,7)=892:y(15,7)=257:x(15,8)=899:y(15,8)=247:x(15,9)=907:y(15,9)=230
x(15,10)=914:y(15,10)=212:x(15,11)=923:y(15,11)=175:x(15,12)=944:y(15,12)=170:x(15,13)=951:y(15,13)=162:x(15,14)=956:y(15,14)=157
x(15,15)=965:y(15,15)=155
n(16)=8:a(16)=1.47:v(16)=20:d(16)=0.05
x(16,0)=969:y(16,0)=152:x(16,1)=934:y(16,1)=178:x(16,2)=920:y(16,2)=206:x(16,3)=937:y(16,3)=232:x(16,4)=932:y(16,4)=255
x(16,5)=909:y(16,5)=253:x(16,6)=899:y(16,6)=286:x(16,7)=895:y(16,7)=288
n(17)=8:a(17)=0.2:v(17)=105:d(17)=-0.2
x(17,0)=897:y(17,0)=287:x(17,1)=884:y(17,1)=318:x(17,2)=869:y(17,2)=340:x(17,3)=851:y(17,3)=370:x(17,4)=833:y(17,4)=388
x(17,5)=827:y(17,5)=412:x(17,6)=827:y(17,6)=435:x(17,7)=830:y(17,7)=468
n(18)=5:a(18)=1.16:v(18)=55:d(18)=0
x(18,0)=831:y(18,0)=390:x(18,1)=820:y(18,1)=415:x(18,2)=817:y(18,2)=436:x(18,3)=815:y(18,3)=461:x(18,4)=817:y(18,4)=483
n(19)=5:a(19)=1.16:v(19)=30:d(19)=-0.05
x(19,0)=812:y(19,0)=423:x(19,1)=803:y(19,1)=448:x(19,2)=804:y(19,2)=470:x(19,3)=798:y(19,3)=490:x(19,4)=790:y(19,4)=506
n(20)=4:a(20)=1.16:v(20)=45:d(20)=0
x(20,0)=796:y(20,0)=448:x(20,1)=789:y(20,1)=478:x(20,2)=781:y(20,2)=503:x(20,3)=754:y(20,3)=527
n(21)=12:a(21)=0.2:v(21)=75:d(21)=-0.05
x(21,0)=784:y(21,0)=467:x(21,1)=764:y(21,1)=498:x(21,2)=743:y(21,2)=516:x(21,3)=720:y(21,3)=530:x(21,4)=694:y(21,4)=542
x(21,5)=661:y(21,5)=549:x(21,6)=630:y(21,6)=550:x(21,7)=600:y(21,7)=543:x(21,8)=573:y(21,8)=535:x(21,9)=545:y(21,9)=526
x(21,10)=526:y(21,10)=519:x(21,11)=494:y(21,11)=501
n(22)=6:a(22)=2.3:v(22)=15:d(22)=-0.15
x(22,0)=878:y(22,0)=230:x(22,1)=847:y(22,1)=242:x(22,2)=855:y(22,2)=267:x(22,3)=833:y(22,3)=270:x(22,4)=810:y(22,4)=280
x(22,5)=785:y(22,5)=290
n(23)=6:a(23)=0.2:v(23)=75:d(23)=-0.05
x(23,0)=880:y(23,0)=235:x(23,1)=850:y(23,1)=247:x(23,2)=874:y(23,2)=264:x(23,3)=831:y(23,3)=282:x(23,4)=798:y(23,4)=300
x(23,5)=751:y(23,5)=319
n(24)=4:a(24)=1.47:v(24)=15:d(24)=-0.35
x(24,0)=868:y(24,0)=247:x(24,1)=870:y(24,1)=253:x(24,2)=873:y(24,2)=251:x(24,3)=871:y(24,3)=245
n(25)=9:a(25)=0.2:v(25)=75:d(25)=-0.05
x(25,0)=858:y(25,0)=265:x(25,1)=824:y(25,1)=295:x(25,2)=802:y(25,2)=308
x(25,3)=779:y(25,3)=326:x(25,4)=752:y(25,4)=341:x(25,5)=724:y(25,5)=359:x(25,6)=698:y(25,6)=374
x(25,7)=669:y(25,7)=384:x(25,8)=636:y(25,8)=389
n(26)=4:a(26)=1.16:v(26)=25:d(26)=0.059
x(26,0)=808:y(26,0)=351:x(26,1)=814:y(26,1)=321:x(26,2)=830:y(26,2)=295:x(26,3)=853:y(26,3)=274
n(27)=5:a(27)=1.47:v(27)=60:d(27)=0.25
x(27,0)=871:y(27,0)=242:x(27,1)=883:y(27,1)=253:x(27,2)=867:y(27,2)=268:x(27,3)=838:y(27,3)=286
x(27,4)=840:y(27,4)=341
n(28)=16:a(28)=4.4:v(28)=25:d(28)=0.059
x(28,0)=768:y(28,0)=357:x(28,1)=747:y(28,1)=324:x(28,2)=718:y(28,2)=314:x(28,3)=683:y(28,3)=313:x(28,4)=646:y(28,4)=317
x(28,5)=648:y(28,5)=352:x(28,6)=649:y(28,6)=379:x(28,7)=663:y(28,7)=404:x(28,8)=675:y(28,8)=422:x(28,9)=694:y(28,9)=423
x(28,10)=711:y(28,10)=426:x(28,11)=728:y(28,11)=432:x(28,12)=749:y(28,12)=431:x(28,13)=770:y(28,13)=420:x(28,14)=784:y(28,14)=392
x(28,15)=796:y(28,15)=364
n(29)=13:a(29)=4.4:v(29)=60:d(29)=0.05
x(29,0)=717:y(29,0)=350:x(29,1)=694:y(29,1)=331:x(29,2)=658:y(29,2)=316
x(29,3)=616:y(29,3)=317:x(29,4)=592:y(29,4)=334:x(29,5)=582:y(29,5)=372:x(29,6)=594:y(29,6)=422:x(29,7)=616:y(29,7)=444
x(29,8)=650:y(29,8)=460:x(29,9)=682:y(29,9)=463:x(29,10)=712:y(29,10)=452:x(29,11)=732:y(29,11)=438:x(29,12)=750:y(29,12)=403
n(30)=15:a(30)=4.4:v(30)=35:d(30)=0
x(30,0)=648:y(30,0)=357:x(30,1)=624:y(30,1)=339:x(30,2)=586:y(30,2)=322:x(30,3)=547:y(30,3)=336:x(30,4)=531:y(30,4)=365
x(30,5)=534:y(30,5)=393:x(30,6)=544:y(30,6)=424:x(30,7)=559:y(30,7)=444:x(30,8)=577:y(30,8)=466:x(30,9)=607:y(30,9)=474
x(30,10)=628:y(30,10)=479:x(30,11)=664:y(30,11)=473:x(30,12)=681:y(30,12)=462:x(30,13)=691:y(30,13)=423
x(30,14)=695:y(30,14)=416
n(31)=13:a(31)=4.4:v(31)=30:d(31)=0
x(31,0)=597:y(31,0)=375:x(31,1)=563:y(31,1)=362:x(31,2)=523:y(31,2)=351:x(31,3)=498:y(31,3)=380:x(31,4)=480:y(31,4)=410
x(31,5)=488:y(31,5)=433:x(31,6)=499:y(31,6)=451:x(31,7)=514:y(31,7)=467:x(31,8)=543:y(31,8)=479
x(31,9)=579:y(31,9)=481:x(31,10)=603:y(31,10)=479:x(31,11)=636:y(31,11)=470:x(31,12)=648:y(31,12)=420
n(32)=10:a(32)=3.8:v(32)=35:d(32)=0
x(32,0)=528:y(32,0)=408:x(32,1)=490:y(32,1)=395:x(32,2)=463:y(32,2)=411:x(32,3)=454:y(32,3)=435:x(32,4)=449:y(32,4)=461
x(32,5)=463:y(32,5)=481:x(32,6)=499:y(32,6)=490:x(32,7)=535:y(32,7)=488:x(32,8)=560:y(32,8)=462:x(32,9)=571:y(32,9)=420
n(33)=5:a(33)=2.3:v(33)=25:d(33)=0
x(33,0)=452:y(33,0)=440:x(33,1)=434:y(33,1)=448:x(33,2)=430:y(33,2)=476:x(33,3)=460:y(33,3)=486:x(33,4)=472:y(33,4)=477
n(34)=4:a(34)=1.16:v(34)=50:d(34)=0
x(34,0)=426:y(34,0)=458:x(34,1)=421:y(34,1)=467:x(34,2)=424:y(34,2)=477:x(34,3)=435:y(34,3)=478
n(35)=5:a(35)=2.9:v(35)=5:d(35)=0.25
x(35,0)=617:y(35,0)=582:x(35,1)=648:y(35,1)=578:x(35,2)=682:y(35,2)=578:x(35,3)=715:y(35,3)=573
x(35,4)=759:y(35,4)=567
n(36)=9:a(36)=0.86:v(36)=50:d(36)=0.35
x(36,0)=701:y(36,0)=575:x(36,1)=670:y(36,1)=580:x(36,2)=623:y(36,2)=580:x(36,3)=600:y(36,3)=577:x(36,4)=578:y(36,4)=584
x(36,5)=550:y(36,5)=596:x(36,6)=567:y(36,6)=641:x(36,7)=625:y(36,7)=645:x(36,8)=619:y(36,8)=598
n(37)=11:a(37)=1.7:v(37)=40:d(37)=-0.2
x(37,0)=664:y(37,0)=585:x(37,1)=647:y(37,1)=587:x(37,2)=621:y(37,2)=621
x(37,3)=645:y(37,3)=658:x(37,4)=614:y(37,4)=666:x(37,5)=552:y(37,5)=673:x(37,6)=523:y(37,6)=665
x(37,7)=500:y(37,7)=644:x(37,8)=502:y(37,8)=612:x(37,9)=566:y(37,9)=582:x(37,10)=568:y(37,10)=632
n(38)=5:a(38)=2:v(38)=35:d(38)=0
x(38,0)=685:y(38,0)=584:x(38,1)=658:y(38,1)=591:x(38,2)=658:y(38,2)=625:x(38,3)=643:y(38,3)=649:x(38,4)=619:y(38,4)=660
n(39)=6:a(39)=2:v(39)=40:d(39)=-0.2
x(39,0)=706:y(39,0)=583:x(39,1)=671:y(39,1)=598:x(39,2)=677:y(39,2)=630:x(39,3)=637:y(39,3)=662:x(39,4)=673:y(39,4)=662
x(39,5)=691:y(39,5)=639
n(40)=9:a(40)=2:v(40)=35:d(40)=-0.199
x(40,0)=731:y(40,0)=628:x(40,1)=723:y(40,1)=597:x(40,2)=703:y(40,2)=607:x(40,3)=679:y(40,3)=658:x(40,4)=691:y(40,4)=669
x(40,5)=724:y(40,5)=654:x(40,6)=744:y(40,6)=644:x(40,7)=727:y(40,7)=616:x(40,8)=724:y(40,8)=615
n(41)=8:a(41)=2:v(41)=40:d(41)=-0.2
x(41,0)=750:y(41,0)=639:x(41,1)=750:y(41,1)=636:x(41,2)=741:y(41,2)=622:x(41,3)=737:y(41,3)=651
x(41,4)=744:y(41,4)=666:x(41,5)=760:y(41,5)=644:x(41,6)=772:y(41,6)=627:x(41,7)=784:y(41,7)=598
n(42)=5:a(42)=2:v(42)=25:d(42)=-0.15
x(42,0)=791:y(42,0)=586:x(42,1)=770:y(42,1)=623:x(42,2)=760:y(42,2)=653:x(42,3)=791:y(42,3)=657:x(42,4)=797:y(42,4)=634
n(43)=8:a(43)=2.6:v(43)=30:d(43)=-0.2
x(43,0)=804:y(43,0)=639:x(43,1)=803:y(43,1)=626:x(43,2)=787:y(43,2)=637:x(43,3)=793:y(43,3)=651:x(43,4)=800:y(43,4)=651
x(43,5)=811:y(43,5)=651:x(43,6)=837:y(43,6)=636:x(43,7)=869:y(43,7)=562
n(44)=13:a(44)=2.3:v(44)=25:d(44)=0
x(44,0)=848:y(44,0)=604:x(44,1)=868:y(44,1)=571:x(44,2)=861:y(44,2)=562:x(44,3)=853:y(44,3)=556:x(44,4)=843:y(44,4)=557
x(44,5)=834:y(44,5)=562:x(44,6)=821:y(44,6)=571:x(44,7)=815:y(44,7)=592:x(44,8)=819:y(44,8)=604:x(44,9)=805:y(44,9)=624
x(44,10)=839:y(44,10)=618:x(44,11)=850:y(44,11)=600:x(44,12)=863:y(44,12)=579
n(45)=10:a(45)=2.6:v(45)=30:d(45)=-0.2
x(45,0)=870:y(45,0)=563:x(45,1)=855:y(45,1)=595:x(45,2)=840:y(45,2)=621:x(45,3)=826:y(45,3)=654:x(45,4)=833:y(45,4)=653
x(45,5)=848:y(45,5)=653:x(45,6)=866:y(45,6)=646:x(45,7)=874:y(45,7)=641:x(45,8)=875:y(45,8)=639:x(45,9)=879:y(45,9)=631

open "Paper" for graphics_nsb_nf as #gr
#gr "trapclose quit"
#gr "down"
#gr "fill white"
#gr "backcolor black"
#gr "color black"

' un-smoothed lines
' #gr "backcolor white"
' for k=0 to m
' #gr "place ";x(k,0);" ";y(k,0)
' #gr "\";k 'line number
' call pause 300
' for i=1 to n(k)-1
' call pause 30
' #gr "goto ";x(k,i);" ";y(k,i)
' next
' next
' #gr "flush"
' wait


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)

       scan
   next

   r = 1.5*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.5 then r = 1
#gr "size ";2*r
   #gr "set ";bx;" ";by
next
next

#gr "flush"

wait

sub quit Hdl$
   close #Hdl$
   end
end sub

sub pause mil
t=time$("ms")+mil
while time$("ms")<t
scan
wend
end sub


[marshawn]


H$ = "gr"

global pi, u, v, zoom
pi = 4*atn(1)

zoom = 100

nomainwin
sw = 1024
sh = 768
sw2 = sw/2
sh2 = sh/2
WindowWidth = sw
WindowHeight = sh
dim x(34,24),y(34,24)
dim 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)=-1.3877787807814457e-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

open "Paper" for graphics_nsb_nf as #gr
#gr "trapclose quit"
#gr "down"
#gr "fill white"
#gr "backcolor black"
#gr "color black"

' un-smoothed lines
' #gr "backcolor white"
' for k=0 to m
'     #gr "place ";x(k,0);" ";y(k,0)
'     #gr "\";k    'line number
'     call pause 300
'     for i=1 to n(k)-1
'         call pause 30
'         #gr "goto ";x(k,i);" ";y(k,i)
'     next
' next
' #gr "flush"
' wait

for h=0 to 3
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)

       scan
   next

   r = (1.4 -0.21*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.5 then r = 0.5

   c = 235 - (h)*(35 + h*10)
   #gr "color ";c;" ";c;" ";c
   #gr "size ";2*r
   #gr "set ";bx;" ";by
next


#gr "flush"
next


next


wait

sub quit Hdl$
   close #Hdl$
   end
end sub

sub pause mil
   t=time$("ms")+mil
   while time$("ms")<t
       scan
   wend
end sub