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

229 lines
9.5 KiB
Plaintext

0 rem VECTOR FONT by Golden Child
1 rem enter a message, it will render the text, hit space to enter a new message
2 gosub 10000 : hgr : a$="":for i=32 to 127:a$=a$+chr$(i):next:de$="Apple Soft Basic"
10 gosub 5000 : GOSUB 7000
15 INPUT "Message?";a$ : if a$="" then a$=de$
20 sz=16:xo=5:yo=0:x9=139:y9=80:
21 rem for sz=2 to 8 step .5:for an=0 to 350 step 15 : REM ? an,an/180*3.1415
22 for w=0 to 24 : sz=(8-2)*w/24+2 : an=w*360/24
23 xo=-len(a$)/2*4:xp=-2*4:xo=xp:yo=0:for i=1 to len(a$):
24 c1= asc(mid$(a$,i,1)) : if (c1>=asc(" ")) and (c1<=127) then c=c1-asc(" ")+1:rem ?C;" ";i;" ";CHR$(C1) : rem ? c1,c
25 x2=-999:for pt=1 to l(c,0,0): x1=l(c,pt,1):y1=l(c,pt,2) :rem ? c,pt
26 a=an/180*3.14159265359:x3=x9+(xo+x1)*sz*cos(a)-(yo+y1)*sz*sin(a):y3=y9-(yo+y1)*sz*cos(a)-(xo+x1)*sz*sin(a):rem ? x1","y1" ("x2","y2")"
28 REM s2=1.75:a2=340/180*3.14:x8=120:y8=120:x5=xo:y5=yo:x6=x8+(x5+x1)*s2*cos(a2)-(y5+y1)*s2*sin(a2):y6=y8-(y5+y1)*s2*cos(a2)-(x5+x1)*s2*sin(a2):rem ? x1","y1" ("x2","y2")"
29 rem if (x2<>-999) and (x1<>-999) then hcolor=6: if x6>0 and x6 < 280 and y6>0 and y6<160 and x7>0 and x7<280 and y7>0 and y7<160 then hplot x6,y6 to x7,y7 : rem hplot x1*sz+xo,-(y1*sz)+yo to x2*sz+xo,-(y2*sz)+yo
35 rem if (x2<>-999) and (x1<>-999) then hcolor=5: if x6>0 and x6 < 280 and y6>0 and y6<160 and x7>0 and x7<280 and y7>0 and y7<160 and x3 < 280 and y3>0 and y3<160 and x4>0 and x4<280 and y4>0 and y4<160 then hplot x3,y3 to x6,y6 : HPLOT x4,y4 to x7,y7
36 if (x2<>-999) and (x1<>-999) then hcolor=3: if x3>0 and x3 < 280 and y3>0 and y3<160 and x4>0 and x4<280 and y4>0 and y4<160 then s1=x1:s2=y2:s3=x2:s4=y2:x1=x3:x2=x4:y1=y3:y2=y4:co=3:gosub 5100:GOSUB 7100:x1=s1:y2=s2:x2=s3:y2=s4:rem hplot x3,y3 to x4,y4 :
37 x7=x6:y7=y6
38 x2=x1:y2=y1:x4=x3:y4=y3:next: xo=xo+4: if xo > 8*4 OR C=1 then xo=xp:yo=yo-5
39 next
40 gosub 5500 : GOSUB 7500 : rem ? an
50 next
60 rem next
70 GOSUB 7900
71 IF PEEK(49152)>128 THEN GOTO 15
75 PRINT "loop. hit space for new message":GOTO 70
99 end
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
8032 data 0,0,-998 : rem space
8033 data 1.5,4,1.5,1.5,-999,1.25,0,1.25,.5,1.75,.5,1.75,0,1.25,0,-998 : rem !
8034 DATA 1,4,1,3,-999,2,4,2,3,-998 : REM "
8035 data 1,4,1,0,-999,2,4,2,0,-999,0,1.5,3,1.5,-999,0,2.5,3,2.5,-998: rem #
8036 data 3,3.5,2.5,4,.5,4,0,3.5,0,2.5,.5,2,2.5,2,3,1.5,3,.5,2.5,0,.5,0,0,.5,-999,1.0,0,1.0,4,-999,2,0,2,4,-998 : rem $
8037 data 0,0,3,4,-999,0,3,1,3,1,4,0,4,0,3,-999,2,0,2,1,3,1,3,0,2,0,-998 : rem %
8038 data 3,2,1.5,0,.5,0,0,1,0,2,1.5,3,1.5,3.5,1,4,.5,4,0,3.5,0,3,3,0,-998 : rem &
8039 data 1.5,4,1.5,3,-998 : rem '
8040 data 2,4,1,3,1,1,2,0,-998 : rem (
8041 data 1,4,2,3,2,1,1,0,-998 : rem )
8042 data 1.5,.5,1.5,3.5,-999,0,2,3,2,-999,0,1,3,3,-999,0,3,3,1,-998 : rem *
8043 data 1.5,.5,1.5,3.5,-999,0,2,3,2,-998 : rem +
8044 data 1.25,.5,1.25,1,1.75,1,1.75,.5,1.5,0,1,0,1.5,0,1.5,.5,1.25,.5,-998 : rem ,
8045 data 0,2,3,2,-998 : rem -
8046 data 1.25,.5,1.25,1,1.75,1,1.75,.5,1.25,.5,-998 : rem .
8047 data 0,0,3,4,-998 : rem /
8048 DATA 0,0,0,4,3,4,3,0,0,0,3,4,-998 : REM 0
8049 DATA 3,0,3,4,-998 : REM 1
8050 DATA 0,4,3,4,3,2,0,2,0,0,3,0,-998 : REM 2
8051 DATA 0,4,3,4,3,2,0,2,3,2,3,0,0,0,-998 : REM 3
8052 DATA 0,4,0,2,3,2,3,4,3,0,-998 : REM 4
8053 DATA 3,4,0,4,0,2,3,2,3,0,0,0,-998 : REM 5
8054 DATA 3,4,0,4,0,0,3,0,3,2,0,2,-998 : REM 6
8055 DATA 0,4,3,4,3,0,-998 : REM 7
8056 DATA 0,0,3,0,3,4,0,4,0,0,-999,0,2,3,2,-998 : REM 8
8057 DATA 0,0,3,0,3,4,0,4,0,2,3,2,-998 : REM 9
8058 data 1.25,.5,1.25,1,1.75,1,1.75,.5,1.25,.5,-999,1.25,2,1.25,2.5,1.75,2.5,1.75,2,1.25,2,-998 : rem :
8059 data 1.25,.5,1.25,1,1.75,1,1.75,.5,1.5,0,1,0,1.5,0,1.5,.5,1.25,.5,-999,1.25,2,1.25,2.5,1.75,2.5,1.75,2,1.25,2,-998 : rem ;
8060 data 3,4,0,2,3,0, -998 : rem <
8061 data 0,2.5,3,2.5,-999,0,1.5,3,1.5,-998 : rem =
8062 data 0,4,3,2,0,0, -998 : rem >
8063 data 0,3.5,.5,4,2.5,4,3,3.5,3,2.5,2.5,2,1.5,2,1.5,1.5,-999,1.25,.5,1.25,1,1.75,1,1.75,.5,1.25,.5,-998 : rem ?
8064 data 2,2.5,1,2.5,1,1.5,2,1.5,2,2.5,2,1.5,3,2,3,3,2,4,1,4,0,3,0,1,1,0,2,0,-998 : rem @
9000 DATA 0,0,0,3.5,0.5,4,2.5,4,3,3.5,3,0,-999,0,2,3,2,-998 : rem a
9001 data 0,0,0,4,2.5,4,3,3.5,3,2.5,2.5,2,0,2,-999,2.5,2,3,1.5,3,.5,2.5,0,0,0,-998 : rem b
9002 data 3,.5,2.5,0,.5,0,0,.5,0,3.5,.5,4,2.5,4,3,3.5,-998 : rem c
9003 data 0,0,0,4,2.5,4,3,3.5,3,.5,2.5,0,0,0,-998 : rem d
9004 DATA 3,4,0,4,0,0,3,0,-999,0,2,3,2,-998 : rem e
9005 DATA 0,0,0,4,3,4,-999,0,2,2,2,-998 : rem f
9006 DATA 3,3.5,2.5,4,.5,4,0,3.5,0,.5,.5,0,2.5,0,3,.5,3,2,1.5,2,-998 : rem g
9007 DATA 0,0,0,4,-999,3,0,3,4,-999,0,2,3,2,-998 : rem h
9008 DATA 1.5,0,1.5,4,-998 : rem i
9009 DATA 3,4,3,.5,2.5,0,.5,0,0,.5,-998 : rem j
9011 DATA 0,0,0,4,-999,0,2,1,2,3,4,-999,1,2,3,0,-998 : rem k
9012 DATA 0,4,0,0,3,0,-998 : rem L
9013 data 0,0,0,4,1.5,2.5,3,4,3,0,-998 : rem m
9014 data 0,0,0,4,3,0,3,4,-998 : rem n
9015 data 3,.5,2.5,0,.5,0,0,.5,0,3.5,.5,4,2.5,4,3,3.5,3,.5,-998 : rem o
9016 DATA 0,0,0,4,2.5,4,3,3.5,3,2.5,2.5,2,0,2,-998 : rem p
9017 data 3,.5,2.5,0,.5,0,0,.5,0,3.5,.5,4,2.5,4,3,3.5,3,.5,-999,3,0,1.5,1.5,-998 : rem q
9010 DATA 0,0,0,4,2.5,4,3,3.5,3,2.5,2.5,2,0,2,-999,1,2,3,0,-998 : rem r
9019 data 3,3.5,2.5,4,.5,4,0,3.5,0,2.5,.5,2,2.5,2,3,1.5,3,.5,2.5,0,.5,0,0,.5,-998 : rem s
9020 data 0,4,3,4,-999,1.5,0,1.5,4,-998 :rem T
9021 data 0,4,0,.5,.5,0,2.5,0,3,.5,3,4,-998 :rem u
9022 data 0,4,0,1.5,1.5,0,3,1.5,3,4,-998 :rem v
9023 data 0,4,0,0,1.5,1.5,3,0,3,4,-998 :rem w
9024 data 0,4,0,3,3,1,3,0,-999,3,4,3,3,0,1,0,0,-998 :rem x
9025 data 0,4,0,3,1.5,2,3,3,3,4,-999,1.5,2,1.5,0,-998: rem y
9026 data 0,4,3,4,3,3,0,1,0,0,3,0,-998: rem z
9091 data 2,4,1,4,1,0,2,0,-998 : rem [
9092 data 0,4,3,0,-998 : rem \
9093 data 1,4,2,4,2,0,1,0,-998 : rem ]
9094 data 0,2.5,1.5,4,3,2.5,-998 : rem ^
9095 data 0,0,3,0,-998 : rem _
9096 data 1,4,2,3, -998 : rem `
9097 data 0,2.5,3,2.5,3,0,0,0,0,1.5,3,1.5, -998 : rem a lowercase
9098 data 0,4,0,0,3,0,3,2.5,0,2.5,-998 : rem b
9099 data 3,2.5,0,2.5,0,0,3,0,-998 : rem c
9100 data 3,4,3,0,0,0,0,2.5,3,2.5, -998 : rem d
9101 data 0,1.5,3,1.5,3,2.5,0,2.5,0,0,3,0,-998 : rem e
9102 data 3,2.5,.5,2.5,0,2,0,1.5,2,1.5,0,1.5,0,0, -998 : rem f
9103 data 3,1.5,0,1.5,0,2.5,3,2.5,3,0,0,0,-998 : rem g
9104 data 0,4,0,0,0,2.5,3,2.5,3,0,-998 : rem h
9105 data 1.5,0,1.5,2,-999,1.5,2.5,1.5,3,-998 : rem i
9106 data 3,2,3,0,0,0,-999,3,2.5,3,3,-998 : rem j
9107 data 0,4,0,0,0,1.5,3,2.5,0,1.5,3,0, -998 : rem k
9108 data 1.5,0,1.5,4,1.0,4,-998 : rem l
9109 data 0,0,0,2.5,1.5,2.5,1.5,0,-999,1.5,2.5,3,2.5,3,0,-998 : rem m
9110 data 0,0,0,2.5,2.5,2.5,3,2.0,3,0,-998 : rem n
9111 data 0,0,0,2.5,3,2.5,3,0,0,0,-998 : rem o
9112 data 0,0,0,2.5,3,2.5,3,1.5,0,1.5,-998 : rem p
9113 data 3,0,3,2.5,0,2.5,0,1.5,3,1.5,-998 : rem q
9114 data 0,0,0,2,.5,2.5,3,2.5,-998 : rem r
9115 data 3,2.5,0,2.5,0,1.5,3,1.5,3,0,0,0,-998 : rem s
9116 data 0,2.5,3,2.5,-999,1.5,4,1.5,0,-998 : rem t
9117 data 0,2.5,0,.5,.5,0,3,0,3,2.5,-998 : rem u
9118 data 0,2.5,0,1.5,1.5,0,3,1.5,3,2.5,-998 : rem v
9119 data 0,2.5,0,0.5,.5,0,1.5,0,1.5,2.5,-999,1.5,0,3,0,3,2.5,-998 : rem w
9120 data 0,2.5,3,0,-999,3,2.5,0,0,-998 : rem x
9121 data 0,2.5,0,1.5,3,1.5,3,2.5,3,0,0,0,-998 : rem y
9122 data 0,2.5,3,2.5,0,0,3,0,-998 : rem z
9123 data 2,4,1,3,1,2.5,.5,2,1,1.5,1,1,2,0,-998 : rem {
9124 data 1.5,4,1.5,0,-998 : rem |
9125 data 1,4,2,3, 2,2.5, 2.5,2, 2,1.5,2,1,1,0,-998 : rem }
9126 data 0,3,1,4,2,3,3,4,-998 : rem ~
9127 data 0,3,1,4,-999,0,2,2,4,-999,0,1,3,4,-999,0,0,3,3,-999,1,0,3,2,-999,2,0,3,1,-999,0,0,0,4,3,4,3,0,0,0,-998 : rem del
9128 data -997
10000 dim l(128,24,2) : rem 5,0,0 is number of points
10005 nm=1
10010 pt=0
10020 read n :
10025 if n = -997 then return
10030 if n = -998 then nm=nm+1 : goto 10010
10040 ? "nm="nm" pt="pt" ";:pt=pt+1:l(nm,pt,1)=n : l(nm,0,0)=pt
10050 if n<>-999 then read n
10060 l(nm,pt,2)=n
10065 ? l(nm,pt,1)","l(nm,pt,2)
10070 goto 10020
6000 rem converge 1,2, current value of x,y 3,4, target 56 distance 7 maxspeed 8 maxdist
6100
7000 dim FL(2000,100,6) : F = 1 : REM FRAMELIST F
7001 return
7100 rem draw line on frame
7111 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
7120 FP = FL(F,0,0) + 1 : FL(F,0,0)=FP : rem ? FP FRAME POINT, F=FRAME NUMBER
7130 FL(F,FP,0)=CO
7131 FL(F,FP,1)=X1
7132 FL(F,FP,2)=Y1
7133 FL(F,FP,3)=X2
7134 FL(F,FP,4)=Y2
7140 REM HCOLOR=CO : HPLOT X1,Y1 TO X2,Y2
7199 RETURN
7500 rem swap screens and return
7501 F=F+1
7599 return
7900 FC=F: REM GOSUB 5000:
7905 FOR F=1 TO FC-1
7910 for FP = 1 TO FL(F,0,0) : CO=FL(F,FP,0)
7911 X1=FL(F,FP,1) : Y1=FL(F,FP,2) :X2=FL(F,FP,3):Y2=FL(F,FP,4) : GOSUB 5100
7915 NEXT : GOSUB 5500 : NEXT : F = FC
7925 FC=F : FOR F=FC-1 TO 1 STEP -1
7930 for FP = 1 TO FL(F,0,0) : CO=FL(F,FP,0)
7941 X1=FL(F,FP,1) : Y1=FL(F,FP,2) :X2=FL(F,FP,3):Y2=FL(F,FP,4) : GOSUB 5100
7955 NEXT : GOSUB 5500 : NEXT : F = FC
7960 RETURN