mirror of
https://github.com/badvision/lawless-legends.git
synced 2025-03-01 03:30:04 +00:00
Forgot the new code.
This commit is contained in:
Martin Haye
parent
317fa2c890
commit
f2da9203e0
344
Platform/Apple/virtual/src/plasma/util3d.pla
Normal file
344
Platform/Apple/virtual/src/plasma/util3d.pla
Normal file
@ -0,0 +1,344 @@
|
|||||||
|
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
// Copyright (C) 2015 The 8-Bit Bunch. Licensed under the Apache License, Version 1.1
|
||||||
|
// (the "License"); you may not use this file except in compliance with the License.
|
||||||
|
// You may obtain a copy of the License at <http://www.apache.org/licenses/LICENSE-1.1>.
|
||||||
|
// Unless required by applicable law or agreed to in writing, software distributed under
|
||||||
|
// the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF
|
||||||
|
// ANY KIND, either express or implied. See the License for the specific language
|
||||||
|
// governing permissions and limitations under the License.
|
||||||
|
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
|
||||||
|
include "gamelib.plh"
|
||||||
|
include "globalDefs.plh"
|
||||||
|
include "playtype.plh"
|
||||||
|
include "diskops.plh"
|
||||||
|
include "party.plh"
|
||||||
|
include "sndseq.plh"
|
||||||
|
include "gen_images.plh"
|
||||||
|
include "gen_modules.plh"
|
||||||
|
include "gen_players.plh"
|
||||||
|
|
||||||
|
// Constants
|
||||||
|
const CLOCK_X = 119
|
||||||
|
const CLOCK_Y = 176
|
||||||
|
const CLOCK_RADIUS = 14
|
||||||
|
|
||||||
|
const LAMP_Y = 168
|
||||||
|
const LAMP_XBYTE = 10
|
||||||
|
|
||||||
|
// Exported functions go here. First a predef for each one, then a table with function pointers
|
||||||
|
// in the same order as the constants are defined in the the header.
|
||||||
|
predef _showClock()#1
|
||||||
|
predef _showCompassDir(dir)#1
|
||||||
|
predef _nextLampFrame()#1
|
||||||
|
word[] funcTbl = @_showClock, @_showCompassDir, @_nextLampFrame
|
||||||
|
|
||||||
|
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
// Definitions used by assembly code
|
||||||
|
asm __defs
|
||||||
|
|
||||||
|
; Use hi-bit ASCII for Apple II
|
||||||
|
!convtab "../../include/hiBitAscii.ct"
|
||||||
|
|
||||||
|
; Headers
|
||||||
|
!source "../../include/global.i"
|
||||||
|
!source "../../include/plasma.i"
|
||||||
|
!source "../../include/mem.i"
|
||||||
|
!source "../../include/fontEngine.i"
|
||||||
|
|
||||||
|
; Optional debug printing support
|
||||||
|
DEBUG = 0
|
||||||
|
|
||||||
|
; General use
|
||||||
|
tmp = $2
|
||||||
|
pTmp = $4
|
||||||
|
|
||||||
|
end
|
||||||
|
|
||||||
|
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
// Specialized line routine for drawing the clock. Plots in black or white only.
|
||||||
|
// Parameters:
|
||||||
|
// page : 0=page1, $60=page2
|
||||||
|
// color: 0=black, $7F=white
|
||||||
|
// len : number of pixels to plot
|
||||||
|
// xbyte: x/7, e.g. 0-39 byte offset within screen row
|
||||||
|
// xbit : (3<<(x%7)) & $7F
|
||||||
|
// xinc : fraction 0..$FF telling how often to advance on X axis
|
||||||
|
// xdir : 0=left, 1=right
|
||||||
|
// y : hi-res line number 0..191
|
||||||
|
// yinc : fraction 0..$FF telling how often to advance on X axis
|
||||||
|
// ydir : 0=up, 1=down
|
||||||
|
asm plotLinePixels(page, color, len, xbyte, xbit, xinc, xdir, y, yinc, ydir)#0
|
||||||
|
!zone {
|
||||||
|
.param_page = evalStkL+9
|
||||||
|
.param_color = evalStkL+8
|
||||||
|
.param_len = evalStkL+7
|
||||||
|
.param_xbyte = evalStkL+6
|
||||||
|
.param_xbit = evalStkL+5
|
||||||
|
.param_xinc = evalStkL+4
|
||||||
|
.param_xdir = evalStkL+3
|
||||||
|
.param_y = evalStkL+2
|
||||||
|
.param_yinc = evalStkL+1
|
||||||
|
.param_ydir = evalStkL+0
|
||||||
|
.xfrac = tmp
|
||||||
|
.yfrac = tmp+1
|
||||||
|
+asmPlasmNoRet 10
|
||||||
|
lda #0
|
||||||
|
sta .xfrac
|
||||||
|
sta .yfrac
|
||||||
|
.getline
|
||||||
|
txa
|
||||||
|
pha
|
||||||
|
lda .param_y,x
|
||||||
|
jsr GetScreenLine
|
||||||
|
pla
|
||||||
|
tax
|
||||||
|
lda pTmp+1
|
||||||
|
eor .param_page,x ; $60 flips to page 2, 0 for page 1
|
||||||
|
sta pTmp+1
|
||||||
|
clc ; signal to take X path first
|
||||||
|
.pix
|
||||||
|
dec .param_len,x ; decrement count of pixels todo
|
||||||
|
bmi .done ; get out if it goes negative
|
||||||
|
|
||||||
|
ldy .param_xbyte,x ; byte number on line
|
||||||
|
lda .param_color,x ; get color mask
|
||||||
|
eor (pTmp),y ; funny logic to plot in color - part 1
|
||||||
|
and .param_xbit,x ; bit mask within byte
|
||||||
|
eor (pTmp),y ; funny logic - part 2
|
||||||
|
ora #$80 ; force hi-bit colors for entire clock face (no mixing)
|
||||||
|
sta (pTmp),y ; store the result
|
||||||
|
|
||||||
|
lda .param_xbit,x ; check bit mask:
|
||||||
|
and #$60 ; was it the rightmost pixel?
|
||||||
|
eor #$40
|
||||||
|
bne + ; if not, done w/ plotting
|
||||||
|
lda .param_color,x ; it was, so we need to plot
|
||||||
|
iny ; ...next byte's...
|
||||||
|
eor (pTmp),y
|
||||||
|
and #1 ; ...first pixel
|
||||||
|
eor (pTmp),y
|
||||||
|
ora #$80 ; force hi-bit colors for entire clock face (no mixing)
|
||||||
|
sta (pTmp),y
|
||||||
|
dey ; back to where we were
|
||||||
|
|
||||||
|
+ bcs .movey ; skip X processing if we just did it
|
||||||
|
.movex ; check and move on X axis
|
||||||
|
lda .xfrac
|
||||||
|
clc
|
||||||
|
adc .param_xinc,x ; bump the X fraction
|
||||||
|
sta .xfrac
|
||||||
|
bcc .movey ; if not a whole number bump, don't move on X
|
||||||
|
lda .param_xbit,x
|
||||||
|
ldy .param_xdir,x ; check X direction (0=left, 1=right)
|
||||||
|
bne .right
|
||||||
|
.left
|
||||||
|
lsr ; 1 bit to the left
|
||||||
|
cmp #$20
|
||||||
|
bne +
|
||||||
|
ora #$40
|
||||||
|
+ cmp #1
|
||||||
|
bne .ltrt
|
||||||
|
dec .param_xbyte,x ; finished with byte, move 1 byte left
|
||||||
|
lda #$40 ; high bit of next-to-left byte
|
||||||
|
bne .ltrt ; always taken
|
||||||
|
.right
|
||||||
|
asl ; 1 bit to right
|
||||||
|
bpl .ltrt
|
||||||
|
and #$7F
|
||||||
|
bne .ltrt
|
||||||
|
inc .param_xbyte,x ; finished with byte, move 1 byte right
|
||||||
|
lda #3 ; low bit of next-to-right byte
|
||||||
|
.ltrt
|
||||||
|
sta .param_xbit,x
|
||||||
|
sec ; signal to take the Y path next time
|
||||||
|
bcs .pix ; plot at the new position
|
||||||
|
.movey
|
||||||
|
lda .yfrac
|
||||||
|
clc
|
||||||
|
adc .param_yinc,x ; bump the Y fraction
|
||||||
|
sta .yfrac
|
||||||
|
bcc .movex ; if not a whole number bump, don't move on Y, go bump X
|
||||||
|
lda .param_ydir,x ; check Y direction (0=up, 1=down)
|
||||||
|
bne .down
|
||||||
|
.up
|
||||||
|
dec .param_y,x ; prev line (up)
|
||||||
|
bcs .getline ; always taken
|
||||||
|
.down
|
||||||
|
inc .param_y,x ; next line (down)
|
||||||
|
bcs .getline ; always taken
|
||||||
|
.done
|
||||||
|
rts
|
||||||
|
}
|
||||||
|
end
|
||||||
|
|
||||||
|
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
def horzSegment(color, len, x, y)#0
|
||||||
|
//params: page, color, len, xbyte, xbit, xinc, xdir, y, yinc, ydir
|
||||||
|
plotLinePixels($60, color, len, x/7, (3<<(x%7)) & $7F, $FF, 1, y, 0, 0)
|
||||||
|
end
|
||||||
|
|
||||||
|
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
def putSegment(color, len, isOuter, x, y)#0
|
||||||
|
if isOuter
|
||||||
|
horzSegment(color ^ $7F, len, x, y)
|
||||||
|
else
|
||||||
|
horzSegment(color ^ $7F, 1, x, y)
|
||||||
|
horzSegment(color, len-3, x+2, y)
|
||||||
|
horzSegment(color ^ $7F, 1, x+len, y)
|
||||||
|
fin
|
||||||
|
end
|
||||||
|
|
||||||
|
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
// Draw a filled, outlined circle
|
||||||
|
def drawCircle(color, radius, x0, y0)#0
|
||||||
|
word x, y, dx, dy, err, r2, p
|
||||||
|
|
||||||
|
// Clear extents buffer
|
||||||
|
r2 = radius << 1
|
||||||
|
memset($280, 0, r2)
|
||||||
|
|
||||||
|
// Midpoint circle algorithm, but instead of plotting points, just record max extents
|
||||||
|
x = radius-1
|
||||||
|
y = 0
|
||||||
|
dx = 1
|
||||||
|
dy = 1
|
||||||
|
err = dx - r2
|
||||||
|
|
||||||
|
while (x >= y)
|
||||||
|
p = $280 + y
|
||||||
|
^p = max(^p, x)
|
||||||
|
|
||||||
|
p = $280 + x
|
||||||
|
^p = max(^p, y)
|
||||||
|
|
||||||
|
if err <= 0
|
||||||
|
y++
|
||||||
|
err = err + dy
|
||||||
|
dy = dy + 2
|
||||||
|
elsif err > 0
|
||||||
|
x--
|
||||||
|
dx = dx + 2
|
||||||
|
err = err + dx - r2
|
||||||
|
fin
|
||||||
|
|
||||||
|
loop
|
||||||
|
|
||||||
|
// Using the extents, draw an outline circle
|
||||||
|
for y = 0 to radius-1
|
||||||
|
x = ^($280+y)
|
||||||
|
putSegment(color, x<<1, y>=radius-2, x0-x, y0-y)
|
||||||
|
putSegment(color, x<<1, y>=radius-2, x0-x, y0+y)
|
||||||
|
next
|
||||||
|
end
|
||||||
|
|
||||||
|
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
def drawHand(color, hour, isShort)#0
|
||||||
|
word xdir, xinc, ydir, yinc, len
|
||||||
|
ydir = (hour > 3 and hour < 9) & 1 // 3..9 = 1
|
||||||
|
xdir = (hour < 6) & 1 // 1..6 = 1
|
||||||
|
xinc = (^("123210123210"+hour) - '0') * 85
|
||||||
|
yinc = (^("210123210123"+hour) - '0') * 85
|
||||||
|
len = (hour % 3) ?? (CLOCK_RADIUS*3/2)-4 :: CLOCK_RADIUS-2
|
||||||
|
if isShort
|
||||||
|
len = len * 3 / 5
|
||||||
|
fin
|
||||||
|
//params: page, color, len, xbyte, xbit, xinc, xdir, y, yinc, ydir
|
||||||
|
plotLinePixels($60, color, len, CLOCK_X/7, (3<<(CLOCK_X%7)) & $7F, xinc, xdir, CLOCK_Y, yinc, ydir)
|
||||||
|
end
|
||||||
|
|
||||||
|
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
def drawHands(color, hour, min)#0
|
||||||
|
word n
|
||||||
|
n = min/5
|
||||||
|
drawHand(color, n ?? n :: 12, FALSE)
|
||||||
|
n = hour % 12
|
||||||
|
drawHand(color, n ?? n :: 12, TRUE)
|
||||||
|
end
|
||||||
|
|
||||||
|
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
def _showClock()#1
|
||||||
|
word cursX, cursY, color
|
||||||
|
|
||||||
|
// Show page 1 while we do work on page 2
|
||||||
|
flipToPage1
|
||||||
|
setWindow(CLOCK_Y-CLOCK_RADIUS, CLOCK_Y+CLOCK_RADIUS, (CLOCK_X-CLOCK_RADIUS)/7*7, (CLOCK_X+CLOCK_RADIUS+13)/7*7)
|
||||||
|
|
||||||
|
// Calculate new color
|
||||||
|
color = global->b_hour < 6 or global->b_hour >= 18 ?? 0 :: $7F
|
||||||
|
if color <> prevClockColor
|
||||||
|
// Draw entire circle in new color
|
||||||
|
copyWindow(0) // page 1 to page 2, in case mem-mgr op has been performed
|
||||||
|
drawCircle(color, CLOCK_RADIUS, CLOCK_X, CLOCK_Y)
|
||||||
|
elsif prevClockColor <> 99
|
||||||
|
// Erase old clock hands
|
||||||
|
drawHands(prevClockColor, prevClockHour, prevClockMinute)
|
||||||
|
fin
|
||||||
|
|
||||||
|
// Draw new clock hands
|
||||||
|
drawHands(color ^ $7F, global->b_hour, global->b_minute)
|
||||||
|
|
||||||
|
// Copy the image from pg 2 to pg 1
|
||||||
|
cursX, cursY = getCursor()
|
||||||
|
copyWindow($60) // page 2 to page 1
|
||||||
|
setWindow2()
|
||||||
|
setCursor(cursX, cursY)
|
||||||
|
|
||||||
|
// And record parameters for erasing the clock hands next time
|
||||||
|
prevClockColor = color
|
||||||
|
prevClockHour = global->b_hour
|
||||||
|
prevClockMinute = global->b_minute
|
||||||
|
nextSignificantMinute = global->b_minute - (global->b_minute % 5) + 5
|
||||||
|
return 0
|
||||||
|
end
|
||||||
|
|
||||||
|
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
def _showCompassDir(dir)#1
|
||||||
|
word cursX, cursY, str
|
||||||
|
cursX, cursY = getCursor()
|
||||||
|
setWindow(173, 182, 28, 49) // Top, Bottom, Left, Right
|
||||||
|
clearWindow()
|
||||||
|
when dir
|
||||||
|
is 15; is 0; is 1; str = "E"; break
|
||||||
|
is 2; str = "SE"; break
|
||||||
|
is 3; is 4; is 5; str = "S"; break;
|
||||||
|
is 6; str = "SW"; break;
|
||||||
|
is 7; is 8; is 9; str = "W"; break;
|
||||||
|
is 10; str = "NW"; break;
|
||||||
|
is 11; is 12; is 13; str = "N"; break;
|
||||||
|
is 14; str = "NE"; break;
|
||||||
|
wend
|
||||||
|
centerStr(str, 21)
|
||||||
|
copyWindow(0) // mapIs3D and texturesLoaded are always true, since we're in util3d :)
|
||||||
|
setWindow2()
|
||||||
|
setCursor(cursX, cursY)
|
||||||
|
return 0
|
||||||
|
end
|
||||||
|
|
||||||
|
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
def _nextLampFrame()#1
|
||||||
|
word n, pTile
|
||||||
|
|
||||||
|
n = lampFrame - LAMP_1
|
||||||
|
n = n + lampDir
|
||||||
|
while n < 0
|
||||||
|
n = n + (LAMP_COUNT-1) // because PLASMA's modulo operator adopts C's (IMO useless) behavior
|
||||||
|
loop
|
||||||
|
if n >= (LAMP_COUNT-1)
|
||||||
|
n = n % (LAMP_COUNT-1)
|
||||||
|
fin
|
||||||
|
n = n + LAMP_1
|
||||||
|
if (rand16() % 100) < 10
|
||||||
|
lampDir = -lampDir
|
||||||
|
fin
|
||||||
|
pTile = pGlobalTileset + (n << 5) + 1 // +1 to skip to the header (# of tiles)
|
||||||
|
blit(FALSE, pTile, getScreenLine(LAMP_Y)+LAMP_XBYTE, 16, 2)
|
||||||
|
blit(FALSE, pTile, getScreenLine(LAMP_Y)+LAMP_XBYTE+$2000, 16, 2)
|
||||||
|
lampFrame = n
|
||||||
|
return 0
|
||||||
|
end
|
||||||
|
|
||||||
|
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
// Boilerplate module initialization code
|
||||||
|
return @funcTbl
|
||||||
|
done
|
||||||
14
Platform/Apple/virtual/src/plasma/util3d.plh
Normal file
14
Platform/Apple/virtual/src/plasma/util3d.plh
Normal file
@ -0,0 +1,14 @@
|
|||||||
|
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
// Copyright (C) 2019 The 8-Bit Bunch. Licensed under the Apache License, Version 1.1
|
||||||
|
// (the "License"); you may not use this file except in compliance with the License.
|
||||||
|
// You may obtain a copy of the License at <http://www.apache.org/licenses/LICENSE-1.1>.
|
||||||
|
// Unless required by applicable law or agreed to in writing, software distributed under
|
||||||
|
// the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF
|
||||||
|
// ANY KIND, either express or implied. See the License for the specific language
|
||||||
|
// governing permissions and limitations under the License.
|
||||||
|
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
|
||||||
|
// Each module-exported function needs its own constant, 0..n
|
||||||
|
const util3d_showClock = 0
|
||||||
|
const util3d_showCompassDir = 2
|
||||||
|
const util3d_nextLampFrame = 4
|
||||||
Loading…
x
Reference in New Issue
Block a user