My latest acheivement: PETE.BAS

[Pete]

Ha, ha, made you look!

I'm off to a roaring start. Sure, I only have one keyword so far, CLS, but it works, flawlessly! Be sure to look it up in my Keyword for the Year blog.

One other consideration. PETE.BAS only runs on laptops and mobile devices. That's right, it's never PC!

Pete

Sorry, hitting the eggnog a bit early this year.

[mnrvovrfc]

Code: (Select All)

SCREEN 0
PRINT "Pete"
END

Code: (Select All)

print "xxxxxx             x"
print " xx  xx           xx"
print " xx  xx  xxxx    xxxxx   xxxx"
print " xxxxx  xx  xx    xx    xx  xx"
print " xx     xxxxxx    xx    xxxxxx"
print " xx     xx        xx x  xx"
print "xxxx     xxxx      xx    xxxx"

[Pete]

[Dav]

After years of Pete's SCREEN 0 enthusiasm, I don't even think of it as 'SCREEN 0' anymore, but SCREEN Pete, and that even sneaks in my code sometimes, like the first program posted Here (MarkexeSize.bas).  

- Dav

[Pete]

+2

[SMcNeill]

After years of Pete's SCREEN 0 enthusiasm, I don't even think of it as 'SCREEN 0' anymore, but SCREEN Pete, and that even sneaks in my code sometimes, like the first program posted Here (MarkexeSize.bas).  

- Dav

I think I'm going to start doing this from now on as well.  After all, it sure is an elaborate way to say that you think Pete is a zero!!

[Pete]

Funny, I always code this when I think of Steve...

Code: (Select All)

: SCREEN

Pete

[vince]

hmm, let me see what I can do..

Code: (Select All)

dim shared pi
pi = 4*atn(1)

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)
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
    circle (bx, by), r, _rgb(c2,c,0)
next
next
next

sleep
system

[mnrvovrfc]

hmm, let me see what I can do..

Code: (Select All)

a(0)=0.19999999999999962

What a hallmark! Actually putting down a long-ass mantissa...

Two flaws however. Firstly the program doesn't match the subject of this thread.

Secondly "pi" is declared and assigned but not used. Yes I've tried to replace "pi" with the built-in "_pi".

I wish I could do curves like that, though...

After years of Pete's SCREEN 0 enthusiasm, I don't even think of it as 'SCREEN 0' anymore, but SCREEN Pete, and that even sneaks in my code sometimes, like the first program posted Here (MarkexeSize.bas).  

- Dav

I actually went to check out that post because I thought it was something by bplus ... LOL. Maybe I should reveal my real name.

[bplus]

When the moon hits your (glinting) eye like a big _pizza _pi... that's ah-QBee _p e tee hee