### Author Topic: Banana man brot  (Read 1528 times)

#### B+

• Guest
##### Banana man brot
« on: January 24, 2016, 10:19:48 AM »
Time for a banana man!
Code: [Select]
`'banana man brot.sdlbas 2016-01-24 [B+=MGA]xmax=1177:ymax=647option qbasicsetdisplay(xmax,ymax,32,1)autoback(-2)dim mandot[100,70]ba = loadImage("banana_large.png",1)  '1177x647text(0,0,16,"one moment please...")screenSwapwait(10)loadman()direct=1:fade=5while 1 ink(rgb(255,255,255)) bar(0,0,xmax,ymax) blt(1,0,0,xmax,ymax,0,0) if direct<0 then ts="Inverse Rotation..." else ts= "Rotation..." end if showman(xmax/2-235,.8*ymax-15) showmanback(xmax/2+135,.8*ymax-15) showmandown(-10,0) text(xmax/2-145,.8*ymax-15,64,time\$) text(445,220,12,ts) showmanup(450+300*cos(fade),150+150*sin(fade)) fade=fade+.5*direct if fade>95 then: fade=95:direct=-direct:end if if fade<5 then: fade=5:direct=-direct:end if screenswap wait(120)wendsub loadman() for y=-35 TO 35 for x=-10 TO 89 m=0:r=0 for k=0 TO 111 j=r^2-m^2-2+x/25 m=2*r*m+y/25 r=j l=andBit(k,15) if j^2+m^2>11 then: exit for:end if next mandot[x+10,y+35]=l next nextend subsub showman(x,y) ink(0) for yy=0 to 70 for xx=0 to 100 if mandot[xx,yy]=15 then dot(x+xx,y+yy) end if next nextend subsub showmanback(x,y) ink(0) for yy=0 to 70 for xx=0 to 100 if mandot[xx,yy]=15 then dot(x+100-xx,y+70-yy) end if next nextend subsub showmandown(x,y) ink(0) for yy=0 to 70 for xx=0 to 100 if mandot[xx,yy]=15 then dot(y+70-yy,x+100-xx) end if next nextend subsub showmanup(x,y) ink(0) for yy=0 to 70 for xx=0 to 100 if mandot[xx,yy]=15 then dot(x+yy,y+xx) end if next nextend sub`