Added colored hires mode and monochrome keyboard toggle

This commit is contained in:
Will Angenent 2019-11-25 19:38:58 +00:00
parent 9323078bc0
commit 85417562c1
3 changed files with 130 additions and 51 deletions

View File

@ -7,8 +7,8 @@ An Apple //e emulator written in Go using [ebiten](https://github.com/hajimehosh
* MOS 6502 CPU
* Keyboard
* 40 column text mode
* Low resolution color graphics
* High resolution monochrome graphics
* Low resolution monochrome and color graphics
* High resolution monochrome and color graphics
* Upper memory bank switching: $d000 page and ROM/RAM
* Main memory page1/page2 switching in text, lores and hires
* Disk image reading & writing
@ -34,7 +34,7 @@ Download `apple2e.rom` from
## Keyboard shortcuts
* ctrl-alt-R reset
* ctrl-alt-M mute
* ctrl-alt-M toggle monochrome/color display
* ctrl-alt-C caps lock
* ctrl-alt-F show FPS

View File

@ -26,8 +26,9 @@ var (
disableDosDelay *bool // Disable DOS delay functions
breakAddress *uint16 // Break address from the command line
resetKeysDown bool // Keep track of ctrl-alt-R key down state
fpsKeysDown bool // Keep track of ctrl-alt-F key down state
resetKeysDown bool // Keep track of ctrl-alt-R key down state
fpsKeysDown bool // Keep track of ctrl-alt-F key down state
monochromeKeysDown bool // Keep track of ctrl-alt-M key down state
)
// checkSpecialKeys checks
@ -53,14 +54,27 @@ func checkSpecialKeys() {
} else {
fpsKeysDown = false
}
// Check for ctrl-alt-M and toggle FPS display
if ebiten.IsKeyPressed(ebiten.KeyControl) && ebiten.IsKeyPressed(ebiten.KeyAlt) && ebiten.IsKeyPressed(ebiten.KeyM) {
monochromeKeysDown = true
} else if ebiten.IsKeyPressed(ebiten.KeyControl) && ebiten.IsKeyPressed(ebiten.KeyAlt) && !ebiten.IsKeyPressed(ebiten.KeyM) && monochromeKeysDown {
monochromeKeysDown = false
video.Monochrome = !video.Monochrome
} else {
monochromeKeysDown = false
}
}
// update is the main ebiten loop
func update(screen *ebiten.Image) error {
keyboard.Poll() // Convert ebiten's keyboard state to an interal value
checkSpecialKeys() // Poll the keyboard and check for R and F keys
if !(fpsKeysDown || monochromeKeysDown) {
keyboard.Poll() // Convert ebiten's keyboard state to an interal value
}
system.FrameCycles = 0 // Reset cycles processed this frame
system.LastAudioCycles = 0 // Reset processed audio cycles
exitAtBreak := true // Die if a BRK instruction is seen
@ -122,7 +136,7 @@ func main() {
// Start the ebiten main loop
ebiten.SetRunnableInBackground(true)
ebiten.Run(update, 280*video.ScreenSizeFactor, 192*video.ScreenSizeFactor, 2, "Apple //e")
ebiten.Run(update, 560, 384, 1, "Apple //e")
// The main loop has ended, flush any data to the disk image if any writes have been done.
disk.FlushImage()

View File

@ -12,9 +12,6 @@ import (
)
const (
// ScreenSizeFactor is the fFactor by which the whole screen is resized
ScreenSizeFactor = 1
textVideoMemory = 0x400 // Base location of page 1 text video memory
flashFrames = 11 // Number of frames when FLASH mode is toggled
)
@ -23,19 +20,27 @@ const (
type drawTextLoresByte func(*ebiten.Image, int, int, uint8) error
var (
flashCounter int // Counter used for flashing characters on the text screen
flashOn bool // Are we currently flashing?
loresSquares [16]*ebiten.Image // Colored blocks for lores rendering
flashCounter int // Counter used for flashing characters on the text screen
flashOn bool // Are we currently flashing?
monochromeLoresSquares [16]*ebiten.Image // Monochrome blocks for lores rendering
colorLoresSquares [16]*ebiten.Image // Colored blocks for lores rendering
colors [16]color.NRGBA // 4-bit Colors
// ShowFPS determines if the FPS is shown in the corner of the video
ShowFPS bool
ShowFPS bool
Monochrome bool
)
// initLoresSquares creates 16 colored squares for the lores renderer
func initLoresSquares() {
var err error
for i := 0; i < 16; i++ {
loresSquares[i], err = ebiten.NewImage(7, 4, ebiten.FilterNearest)
monochromeLoresSquares[i], err = ebiten.NewImage(7, 4, ebiten.FilterNearest)
if err != nil {
panic(err)
}
colorLoresSquares[i], err = ebiten.NewImage(7, 4, ebiten.FilterNearest)
if err != nil {
panic(err)
}
@ -45,27 +50,36 @@ func initLoresSquares() {
// https://mrob.com/pub/xgithub.com/freewilll/apple2/colors.html
// https://archive.org/details/IIgs_2523063_Master_Color_Values
alpha := uint8(0xff)
loresSquares[0x00].Fill(color.NRGBA{0, 0, 0, alpha})
loresSquares[0x01].Fill(color.NRGBA{221, 0, 51, alpha})
loresSquares[0x02].Fill(color.NRGBA{0, 0, 153, alpha})
loresSquares[0x03].Fill(color.NRGBA{221, 34, 221, alpha})
loresSquares[0x04].Fill(color.NRGBA{0, 119, 34, alpha})
loresSquares[0x05].Fill(color.NRGBA{85, 85, 85, alpha})
loresSquares[0x06].Fill(color.NRGBA{34, 34, 255, alpha})
loresSquares[0x07].Fill(color.NRGBA{102, 170, 255, alpha})
loresSquares[0x08].Fill(color.NRGBA{136, 85, 0, alpha})
loresSquares[0x09].Fill(color.NRGBA{255, 102, 0, alpha})
loresSquares[0x0A].Fill(color.NRGBA{170, 170, 170, alpha})
loresSquares[0x0B].Fill(color.NRGBA{255, 153, 136, alpha})
loresSquares[0x0C].Fill(color.NRGBA{17, 221, 0, alpha})
loresSquares[0x0D].Fill(color.NRGBA{255, 255, 0, alpha})
loresSquares[0x0E].Fill(color.NRGBA{68, 255, 153, alpha})
loresSquares[0x0F].Fill(color.NRGBA{255, 255, 255, alpha})
colors[0x00] = color.NRGBA{0, 0, 0, alpha}
colors[0x01] = color.NRGBA{221, 0, 51, alpha}
colors[0x02] = color.NRGBA{0, 0, 153, alpha}
colors[0x03] = color.NRGBA{221, 34, 221, alpha}
colors[0x04] = color.NRGBA{0, 119, 34, alpha}
colors[0x05] = color.NRGBA{85, 85, 85, alpha}
colors[0x06] = color.NRGBA{34, 34, 255, alpha}
colors[0x07] = color.NRGBA{102, 170, 255, alpha}
colors[0x08] = color.NRGBA{136, 85, 0, alpha}
colors[0x09] = color.NRGBA{255, 102, 0, alpha}
colors[0x0A] = color.NRGBA{170, 170, 170, alpha}
colors[0x0B] = color.NRGBA{255, 153, 136, alpha}
colors[0x0C] = color.NRGBA{17, 221, 0, alpha}
colors[0x0D] = color.NRGBA{255, 255, 0, alpha}
colors[0x0E] = color.NRGBA{68, 255, 153, alpha}
colors[0x0F] = color.NRGBA{255, 255, 255, alpha}
for i := 0; i < 0x10; i++ {
colorLoresSquares[i].Fill(colors[i])
avgIntensity := float64(int(colors[i].R)+int(colors[i].G)+int(colors[i].B)) / 3
avgColor := color.NRGBA{byte(avgIntensity * 0.2), byte(avgIntensity * 0.75), byte(avgIntensity * 0.2), alpha}
monochromeLoresSquares[i].Fill(avgColor)
}
}
// Init the video data structures used for rendering
func Init() {
ShowFPS = false
Monochrome = true
initTextCharMap()
initLoresSquares()
@ -95,8 +109,8 @@ func drawText(screen *ebiten.Image, x int, y int, value uint8) error {
}
op := &ebiten.DrawImageOptions{}
op.GeoM.Scale(ScreenSizeFactor, ScreenSizeFactor)
op.GeoM.Translate(ScreenSizeFactor*7*float64(x), ScreenSizeFactor*8*float64(y))
op.GeoM.Scale(2, 2)
op.GeoM.Translate(2*7*float64(x), 2*8*float64(y))
r := image.Rect(0, 0, 7, 8)
op.SourceRect = &r
@ -107,8 +121,10 @@ func drawText(screen *ebiten.Image, x int, y int, value uint8) error {
op.ColorM.Translate(1, 1, 1, 0)
}
// Make it look greenish
op.ColorM.Scale(0.20, 0.75, 0.20, 1)
if Monochrome {
// Make it look greenish
op.ColorM.Scale(0.20, 0.75, 0.20, 1)
}
return screen.DrawImage(charMap[value], op)
}
@ -121,9 +137,17 @@ func drawLores(screen *ebiten.Image, x int, y int, value uint8) error {
// Render top & bottom squares
for i := 0; i < 2; i++ {
op := &ebiten.DrawImageOptions{}
op.GeoM.Scale(ScreenSizeFactor, ScreenSizeFactor)
op.GeoM.Translate(ScreenSizeFactor*7*float64(x), ScreenSizeFactor*8*float64(y)+float64(i)*4)
if err := screen.DrawImage(loresSquares[values[i]], op); err != nil {
op.GeoM.Scale(2, 2)
op.GeoM.Translate(2*7*float64(x), 2*8*float64(y)+2*float64(i)*4)
var loresSquare *ebiten.Image
if Monochrome {
loresSquare = monochromeLoresSquares[values[i]]
} else {
loresSquare = colorLoresSquares[values[i]]
}
if err := screen.DrawImage(loresSquare, op); err != nil {
return err
}
}
@ -187,11 +211,8 @@ func drawTextOrLoresScreen(screen *ebiten.Image) error {
// drawHiresScreen draws an entire hires screen. If it's in mixed mode, the lower end is drawn in text.
func drawHiresScreen(screen *ebiten.Image) error {
if ScreenSizeFactor != 1 {
panic("Hires mode for ScreenSizeFactor != 1 not implemented")
}
pixels := make([]byte, 280*192*4)
pixels := make([]byte, 560*384*4)
halfPixels := make([]byte, 14)
// Loop over all hires lines
for y := 0; y < 192; y++ {
@ -207,21 +228,65 @@ func drawHiresScreen(screen *ebiten.Image) error {
yOffset += 0x2000
}
// For each byte, flip the 7 bits and write it to the pixels array
// Initialize 4-bit 4-color and 14 half-pixels
var color uint8 // Current 4-bit color
colorPos := uint8(0) // Current half-pixel in the 4-bit color
for i := 0; i < 14; i++ {
halfPixels[i] = 0
}
// For each byte, expand the 7 bits to the 14 half-pixels array
// If the high bit is set, shift one half pixel over.
// Don't shift half-bits in monochrome mode
for x := 0; x < 40; x++ {
offset := yOffset + x
value := mmu.ReadPageTable[offset>>8][offset&0xff]
value &= 0x7f
phaseShifted := value >> 7
var hp uint8
if Monochrome {
hp = 0
} else {
hp = phaseShifted
}
halfPixels[0] = halfPixels[13] // Rotate the last phase shifted pixel in
// Double up the pixels into half pixels starting at offset hp
for bit := 0; bit < 7; bit++ {
b := float64(value & 1)
halfPixels[hp] = value & 1
hp = hp + 1
if hp < 14 {
halfPixels[hp] = value & 1
hp = hp + 1
}
value = value >> 1
p := (y*280 + x*7 + bit) * 4
}
pixels[p+0] = byte(0xff * float64(0.20) * b)
pixels[p+1] = byte(0xff * float64(0.75) * b)
pixels[p+2] = byte(0xff * float64(0.20) * b)
pixels[p+3] = 0xff
for hp = 0; hp < 14; hp++ {
// Update the color bit in colorPos with the half pixel value
color &= ((1 << colorPos) ^ 0xf)
color |= halfPixels[hp] << colorPos
colorPos = (colorPos + 1) & 3
// Draw two lines at a time
for rowDouble := 0; rowDouble < 2; rowDouble++ {
p := ((y*2+rowDouble)*560 + x*2*7 + int(hp)) * 4
if Monochrome {
b := float64(halfPixels[hp])
pixels[p+0] = byte(0xff * float64(0.20) * b)
pixels[p+1] = byte(0xff * float64(0.75) * b)
pixels[p+2] = byte(0xff * float64(0.20) * b)
pixels[p+3] = 0xff
} else {
pixels[p+0] = colors[color].R
pixels[p+1] = colors[color].G
pixels[p+2] = colors[color].B
pixels[p+3] = 0xff
}
}
}
}
}