jsbasic/samples/sample.dbvectorship.txt
2020-01-14 18:20:14 -08:00

73 lines
2.3 KiB
Plaintext

10 rem Asteroids Ship Demo
20 rem Double Buffering Demo by Golden Child
500 dim a(10,4)
510 read p
520 for i = 1 to p:read x,y:a(i,1)=x:a(i,2)=y:? p,i,a(p,1),a(p,2):next
530 hgr :hcolor=3 : VTAB 23: PRINT "Double Buffering Demo:"
531 print "END/PAGE DOWN to turn":PRINT "HOME/PAGE UP for thrust"
532 print "click on window to set input focus";
533 x0=139:y0=79:gosub 5000:goto 4000
540 rem draw ship
590 x2=-999 : rem dont draw first segment
601 sz=2:for i = 1 to p:x=a(i,1)*sz:y=a(i,2)*sz:x1=x0+x*cos(a0)-y*sin(a0):y1=y0+y*cos(a0)+x*sin(a0)
610 if x2<>-999 then if x1 > 0 and x1 < 279 and x2 > 0 and x2< 279 and y1 > 0 and y1 < 191 and y2 > 0 and y2<191 then c=3:gosub 5100
615 x2=x1:y2=y1
620 next
621 g=0.04 :yv=yv+g : rem gravity
622 fr=0.01 : rem friction
623 if sqr(xv^2 + yv^2) < fr then xv=0 : yv=0: goto 630
624 xd = xv / sqr(xv^2 + yv^2):yd=yv / sqr(xv^2 + yv^2)
625 xv = xv - xd * fr : yv=yv - yd * fr
630 return
1000 data 5,3,0,-2,2,0,0,-2,-2,3,0,-999
4000 co=3:gosub 540:gosub 5500
4001 t=3.14/24
4010 if peek(49248)>=128 then a0=a0+t
4020 if peek(49250)>=128 then a0=a0-t
4021 if peek(49249)>=128 then xv=xv+0.5*cos(a0):yv=yv+0.5*sin(a0)
4022 if peek(49251)>=128 then xv=xv-0.5*cos(a0):yv=yv-0.5*sin(a0)
4023 if x0 < 20 then x0=280-20
4024 if x0 > 280-20 then x0=20
4025 if y0<20 then y0=160-20
4026 if y0>160-20 then y0=20
4030 x0=x0+xv : y0=y0+yv
4040 rem ? xv,yv
4050 goto 4000
5000 rem init display list : rem SC = screen to draw
5001 IF NOT (dk) then dim dl(2,100,5) : dk=1
5002 hgr2:hgr
5003 SC=0 : DL(0,0,0)=0 : DL(1,0,0)=0 :gosub 5500: rem DL(X,0,0) = NUM OF POINTS
5004 return
5100 rem draw line on other screen
5110 poke 230,(SC+1) * 32
5111 if not(x1>=0 and x1 <=279 and x2 >=0 and x2<=279 and y1>=0 and y1 <=159 and y2>=0 and y2<=159) then return
5120 SP = DL(SC,0,0) + 1 : DL(SC,0,0)=SP : rem ? sp
5130 DL(SC,SP,0)=CO
5131 DL(SC,SP,1)=X1
5132 DL(SC,SP,2)=Y1
5133 DL(SC,SP,3)=X2
5134 DL(SC,SP,4)=Y2
5140 HCOLOR=CO : HPLOT X1,Y1 TO X2,Y2
5190 RETURN
5400 rem erase lines
5410 for SP = 1 TO DL(SC,0,0) : HCOLOR=0
5411 HPLOT DL(SC,SP,1),DL(SC,SP,2) TO DL(SC,SP,3),DL(SC,SP,4) : NEXT
5412 DL(SC,0,0)=0 : rem clear the list after erasing
5420 RETURN
5500 rem swap screens
5510 SC = NOT SC
5511 POKE 49236+(NOT SC),0 : rem select visible page that we're not drawing to
5515 poke 230,32*(sc+1):gosub 5400 : rem switch drawing page and erase lines
5520 RETURN