jsbasic/samples/sample.fsim.txt

84 lines
1.9 KiB
Plaintext
Raw Normal View History

2013-08-19 04:26:39 +00:00
0 REM Sky palette:
0 REM Clouds 6/1 (light blue)
0 REM Sky 6/6 (blue)
0 REM Dusk 6/2 (purple)
0 REM Night 6/0 (dark blue)
0 REM Ground palette:
0 REM Water 6/0 (dark blue)
0 REM Water (night) 0/0 (black)
0 REM Water 6/1 (turquoise)
0 REM Cement 1/2 (gray)
0 REM Grass 1/1 (green)
0 REM Forest 1/0 (dark green)
0 REM Sand 5/1 (khaki)
0 REM Tundra 1/3 (light green)
0 REM Ice 3/3 (white)
10 HGR : HGR2 : PG = 0
20 DIM SC(192), GC(192)
30 FOR Y = 0 TO 191 STEP 2
: SC(Y) = 6 : SC(Y+1) = 6
: GC(Y) = 5 : GC(Y+1) = 1
: NEXT
100 POKE 49236 + (1-PG), 0 : POKE 230, 32 + 32 * PG
120 M = 2 * ( 0.5 - (PDL(0) / 255) )
121 B = 192 * (PDL(1) / 255) - 96
122 B = B * 2
140 GOSUB 1000
150 PG = PG + 1 : IF PG > 1 THEN PG = 0
160 GOTO 100
999 END
1000 REM Draw sky/horizon; call w/ M, B (y=Mx + B); 0,0 is center
1010 Y1 = ( M * -140 ) + B + 96
1011 Y2 = ( M * 140 ) + B + 96
1012 IF Y1 < 0 AND Y2 < 0 THEN FOR Y = 0 TO 191
: HCOLOR= GC(Y) : HPLOT 0,Y TO 279,Y
: NEXT : RETURN
1013 IF Y1 > 279 AND Y2 > 279 THEN FOR Y = 0 TO 191
: HCOLOR= SC(Y) : HPLOT 0,Y TO 279,Y
: NEXT : RETURN
1014 IF Y1 = Y2 THEN Y1 = INT(Y1)
: FOR Y = 0 TO Y1 - 1
: HCOLOR= SC(Y) : HPLOT 0,Y TO 279,Y
: NEXT
: FOR Y = Y1 TO 191
: HCOLOR= GC(Y) : HPLOT 0,Y TO 279,Y
: NEXT
: RETURN
1015 REM TODO: Optimize for near-horizontal lines with solid above/below
: REM (y-b)/m = x
1020 X1 = ( -96 - B ) / M + 140
1021 X2 = ( 96 - B ) / M + 140
1022 DX = (X2 - X1) / 192
: REM TODO: flip colors if DX is negative
1040 XF = X1 : FOR Y = 0 TO 191 : X = INT(XF) : XF = XF + DX
1041 IF DX <= 0 THEN C1 = SC(Y) : C2 = GC(Y)
1042 IF DX > 0 THEN C1 = GC(Y) : C2 = SC(Y)
1050 IF X < 1 THEN HCOLOR= C2 : HPLOT 0,Y TO 279,Y : GOTO 1080
1051 IF X > 279 THEN HCOLOR= C1 : HPLOT 0,Y TO 279,Y : GOTO 1080
1052 HCOLOR= C1 : HPLOT 0,Y TO X-1, Y : HCOLOR= C2 : HPLOT X,Y TO 279,Y
1080 NEXT : RETURN