2019-04-21 19:04:02 +00:00
|
|
|
package apple2
|
|
|
|
|
|
|
|
import (
|
|
|
|
"fmt"
|
|
|
|
"image"
|
|
|
|
"image/color"
|
|
|
|
"image/png"
|
|
|
|
"os"
|
|
|
|
)
|
|
|
|
|
2019-04-21 22:18:14 +00:00
|
|
|
// Snapshot the currently visible screen
|
|
|
|
func Snapshot(a *Apple2) *image.RGBA {
|
2019-04-26 16:08:30 +00:00
|
|
|
isTextMode := a.io.isSoftSwitchActive(ioFlagText)
|
|
|
|
isHiResMode := a.io.isSoftSwitchActive(ioFlagHiRes)
|
2019-04-27 22:13:34 +00:00
|
|
|
// Todo: isMixMode
|
2019-04-21 19:04:02 +00:00
|
|
|
pageIndex := 0
|
|
|
|
if a.io.isSoftSwitchActive(ioFlagSecondPage) {
|
|
|
|
pageIndex = 1
|
|
|
|
}
|
|
|
|
|
2019-04-26 16:08:30 +00:00
|
|
|
if isTextMode {
|
2019-05-01 14:54:53 +00:00
|
|
|
//return snapshotTextMode(a, pageIndex)
|
|
|
|
return linesSeparatedFilter(snapshotTextMode(a, pageIndex))
|
2019-04-26 16:08:30 +00:00
|
|
|
} else {
|
|
|
|
if isHiResMode {
|
2019-04-27 22:13:34 +00:00
|
|
|
//return snapshotHiResModeReferenceMono(a, pageIndex)
|
|
|
|
return snapshotHiResModeReferenceColor(a, pageIndex)
|
|
|
|
//return snapshotHiResModeReferenceColorSolid(a, pageIndex)
|
2019-04-26 16:08:30 +00:00
|
|
|
} else {
|
2019-04-27 22:13:34 +00:00
|
|
|
// Lo res mode not supported
|
2019-04-26 16:08:30 +00:00
|
|
|
}
|
2019-04-21 19:04:02 +00:00
|
|
|
}
|
2019-04-26 16:08:30 +00:00
|
|
|
|
2019-04-27 22:13:34 +00:00
|
|
|
//fmt.Printf("g: %v, h: %v\n", isTextMode, isHiResMode)
|
2019-04-21 19:04:02 +00:00
|
|
|
return nil
|
|
|
|
//panic("Screen mode not supported")
|
|
|
|
}
|
|
|
|
|
|
|
|
func saveSnapshot(a *Apple2) {
|
2019-04-21 22:18:14 +00:00
|
|
|
img := Snapshot(a)
|
2019-04-21 19:04:02 +00:00
|
|
|
if img == nil {
|
|
|
|
return
|
|
|
|
}
|
|
|
|
|
|
|
|
f, err := os.Create("snapshot.png")
|
|
|
|
if err != nil {
|
|
|
|
panic(err)
|
|
|
|
}
|
|
|
|
defer f.Close()
|
|
|
|
|
|
|
|
fmt.Println("Saving snapshot")
|
|
|
|
|
|
|
|
png.Encode(f, img)
|
|
|
|
}
|
|
|
|
|
2019-05-01 14:54:53 +00:00
|
|
|
func linesSeparatedFilter(in *image.RGBA) *image.RGBA {
|
|
|
|
b := in.Bounds()
|
|
|
|
size := image.Rect(0, 0, b.Dx(), 4*b.Dy())
|
|
|
|
out := image.NewRGBA(size)
|
|
|
|
for y := b.Min.Y; y < b.Max.Y; y++ {
|
|
|
|
for x := b.Min.X; x < b.Max.X; x++ {
|
|
|
|
c := in.At(x, y)
|
|
|
|
out.Set(x, 4*y, c)
|
|
|
|
out.Set(x, 4*y+1, c)
|
|
|
|
out.Set(x, 4*y+2, c)
|
|
|
|
out.Set(x, 4*y+3, color.Black)
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return out
|
|
|
|
}
|
|
|
|
|
2019-04-21 19:04:02 +00:00
|
|
|
const (
|
2019-04-26 16:08:30 +00:00
|
|
|
charWidth = 7
|
|
|
|
charHeight = 8
|
|
|
|
textColumns = 40
|
|
|
|
textLines = 24
|
|
|
|
textPage1Address = uint16(0x0400)
|
|
|
|
textPage2Address = uint16(0x0800)
|
|
|
|
graphWidth = 280
|
|
|
|
graphHeight = 192
|
|
|
|
graphPage1Address = uint16(0x2000)
|
|
|
|
graphPage2Address = uint16(0x4000)
|
2019-04-21 19:04:02 +00:00
|
|
|
)
|
|
|
|
|
2019-04-26 16:08:30 +00:00
|
|
|
func getTextCharOffset(col int, line int) uint16 {
|
2019-04-21 19:04:02 +00:00
|
|
|
|
|
|
|
// See "Understand the Apple II", page 5-10
|
|
|
|
// http://www.applelogic.org/files/UNDERSTANDINGTHEAII.pdf
|
|
|
|
section := line / 8 // Top, middle and bottom
|
|
|
|
eigth := line % 8
|
2019-04-26 16:08:30 +00:00
|
|
|
return uint16(section*40 + eigth*0x80 + col)
|
|
|
|
}
|
|
|
|
|
|
|
|
func getTextChar(a *Apple2, col int, line int, page int) uint8 {
|
|
|
|
address := textPage1Address
|
|
|
|
if page == 1 {
|
|
|
|
address = textPage2Address
|
|
|
|
}
|
|
|
|
address += getTextCharOffset(col, line)
|
2019-04-21 19:04:02 +00:00
|
|
|
return a.mmu.internalPeek(address)
|
|
|
|
}
|
|
|
|
|
2019-04-21 22:18:14 +00:00
|
|
|
func snapshotTextMode(a *Apple2, page int) *image.RGBA {
|
2019-04-26 16:08:30 +00:00
|
|
|
// TODO: Missing inverse and flash modes
|
|
|
|
|
2019-05-01 14:54:53 +00:00
|
|
|
// Color for typical Apple ][ period green phosphor monitors
|
|
|
|
// See: https://superuser.com/questions/361297/what-colour-is-the-dark-green-on-old-fashioned-green-screen-computer-displays
|
|
|
|
p1GreenPhosphorColor := color.RGBA{65, 255, 0, 255}
|
|
|
|
|
2019-04-21 19:04:02 +00:00
|
|
|
width := textColumns * charWidth
|
|
|
|
height := textLines * charHeight
|
|
|
|
size := image.Rect(0, 0, width, height)
|
2019-04-21 22:18:14 +00:00
|
|
|
img := image.NewRGBA(size)
|
2019-04-21 19:04:02 +00:00
|
|
|
|
|
|
|
for x := 0; x < width; x++ {
|
|
|
|
for y := 0; y < height; y++ {
|
|
|
|
line := y / charHeight
|
|
|
|
col := x / charWidth
|
|
|
|
rowInChar := y % charHeight
|
|
|
|
colInChar := x % charWidth
|
|
|
|
char := getTextChar(a, col, line, page)
|
|
|
|
pixel := a.cg.getPixel(char, rowInChar, colInChar)
|
2019-05-01 14:54:53 +00:00
|
|
|
var colour color.Color
|
2019-04-21 19:04:02 +00:00
|
|
|
if pixel {
|
2019-05-01 14:54:53 +00:00
|
|
|
colour = p1GreenPhosphorColor
|
|
|
|
} else {
|
|
|
|
colour = color.Black
|
2019-04-21 19:04:02 +00:00
|
|
|
}
|
2019-04-21 22:18:14 +00:00
|
|
|
img.Set(x, y, colour)
|
2019-04-21 19:04:02 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
return img
|
|
|
|
}
|
2019-04-26 16:08:30 +00:00
|
|
|
|
|
|
|
func getGraphLineOffset(line int) uint16 {
|
|
|
|
|
|
|
|
// See "Understand the Apple II", page 5-14
|
|
|
|
// http://www.applelogic.org/files/UNDERSTANDINGTHEAII.pdf
|
|
|
|
section := line >> 6 // Top, middle and bottom
|
|
|
|
outerEigth := (line >> 3) & 0x07
|
|
|
|
innerEigth := line & 0x07
|
|
|
|
return uint16(section*40 + outerEigth*0x80 + innerEigth*0x400)
|
|
|
|
}
|
|
|
|
|
|
|
|
func getGraphLine(a *Apple2, line int, page int) []uint8 {
|
|
|
|
address := graphPage1Address
|
|
|
|
if page == 1 {
|
|
|
|
address = graphPage2Address
|
|
|
|
}
|
|
|
|
|
|
|
|
address += getGraphLineOffset(line)
|
|
|
|
hi := uint8(address >> 8)
|
|
|
|
lo := uint8(address)
|
|
|
|
|
|
|
|
memPage := a.mmu.internalPage(hi)
|
|
|
|
//fmt.Printf("line: %v, lo: %x\n", line, lo)
|
|
|
|
return memPage[lo : lo+40]
|
|
|
|
}
|
|
|
|
|
2019-04-27 22:13:34 +00:00
|
|
|
func snapshotHiResModeReferenceMono(a *Apple2, page int) *image.RGBA {
|
|
|
|
// As defined on "Apple II Reference Manual", page 19
|
2019-04-26 16:08:30 +00:00
|
|
|
size := image.Rect(0, 0, graphWidth, graphHeight)
|
|
|
|
img := image.NewRGBA(size)
|
|
|
|
|
|
|
|
for y := 0; y < graphHeight; y++ {
|
|
|
|
bytes := getGraphLine(a, y, page)
|
|
|
|
x := 0
|
|
|
|
for _, b := range bytes {
|
|
|
|
for j := uint(0); j < 7; j++ {
|
|
|
|
bit := (b >> j) & 1
|
|
|
|
colour := color.Black
|
|
|
|
if bit == 1 {
|
|
|
|
colour = color.White
|
|
|
|
}
|
|
|
|
img.Set(x, y, colour)
|
|
|
|
x++
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
return img
|
|
|
|
}
|
2019-04-27 22:13:34 +00:00
|
|
|
|
|
|
|
func snapshotHiResModeReferenceColor(a *Apple2, page int) *image.RGBA {
|
|
|
|
// As defined on "Apple II Reference Manual", page 19
|
|
|
|
size := image.Rect(0, 0, graphWidth, graphHeight)
|
|
|
|
img := image.NewRGBA(size)
|
|
|
|
|
|
|
|
// RGB values from https://mrob.com/pub/xapple2/colors.html
|
|
|
|
black := color.RGBA{0, 0, 0, 255}
|
|
|
|
violet := color.RGBA{255, 68, 253, 255}
|
|
|
|
red := color.RGBA{255, 106, 60, 255}
|
|
|
|
green := color.RGBA{20, 246, 60, 255}
|
|
|
|
blue := color.RGBA{20, 207, 253, 255}
|
|
|
|
white := color.RGBA{255, 255, 255, 255}
|
|
|
|
colorMap := [][][]color.Color{
|
|
|
|
{
|
|
|
|
/* 00 */ {black, black},
|
|
|
|
/* 01 */ {black, green},
|
|
|
|
/* 10 */ {violet, black},
|
|
|
|
/* 11 */ {white, white},
|
|
|
|
},
|
|
|
|
{
|
|
|
|
/* 00 */ {black, black},
|
|
|
|
/* 01 */ {black, red},
|
|
|
|
/* 10 */ {blue, black},
|
|
|
|
/* 11 */ {white, white},
|
|
|
|
},
|
|
|
|
}
|
|
|
|
|
|
|
|
for y := 0; y < graphHeight; y++ {
|
|
|
|
bytes := getGraphLine(a, y, page)
|
|
|
|
x := 0
|
|
|
|
previous := uint8(0)
|
|
|
|
for _, b := range bytes {
|
|
|
|
shift := b >> 7
|
|
|
|
for j := uint(0); j < 7; j++ {
|
|
|
|
bit := (b >> j) & 1
|
|
|
|
even := x%2 == 0
|
|
|
|
if even {
|
|
|
|
previous = bit
|
|
|
|
} else {
|
|
|
|
pair := colorMap[shift][(previous<<1)+bit]
|
|
|
|
img.Set(x-1, y, pair[0])
|
|
|
|
img.Set(x, y, pair[1])
|
|
|
|
}
|
|
|
|
x++
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
return img
|
|
|
|
}
|
|
|
|
|
|
|
|
func snapshotHiResModeReferenceColorSolid(a *Apple2, page int) *image.RGBA {
|
|
|
|
// As defined on "Apple II Reference Manual", page 19
|
|
|
|
// but with more solid colors
|
|
|
|
size := image.Rect(0, 0, graphWidth, graphHeight)
|
|
|
|
img := image.NewRGBA(size)
|
|
|
|
|
|
|
|
// RGB values from https://mrob.com/pub/xapple2/colors.html
|
|
|
|
black := color.RGBA{0, 0, 0, 255}
|
|
|
|
violet := color.RGBA{255, 68, 253, 255}
|
|
|
|
red := color.RGBA{255, 106, 60, 255}
|
|
|
|
green := color.RGBA{20, 246, 60, 255}
|
|
|
|
blue := color.RGBA{20, 207, 253, 255}
|
|
|
|
white := color.RGBA{255, 255, 255, 255}
|
|
|
|
colorMap := [][]color.Color{
|
|
|
|
{
|
|
|
|
/* 00 */ black,
|
|
|
|
/* 01 */ green,
|
|
|
|
/* 10 */ violet,
|
|
|
|
/* 11 */ white,
|
|
|
|
},
|
|
|
|
{
|
|
|
|
/* 00 */ black,
|
|
|
|
/* 01 */ red,
|
|
|
|
/* 10 */ blue,
|
|
|
|
/* 11 */ white,
|
|
|
|
},
|
|
|
|
}
|
|
|
|
|
|
|
|
for y := 0; y < graphHeight; y++ {
|
|
|
|
bytes := getGraphLine(a, y, page)
|
|
|
|
x := 0
|
|
|
|
previous := uint8(0)
|
|
|
|
for _, b := range bytes {
|
|
|
|
shift := b >> 7
|
|
|
|
for j := uint(0); j < 7; j++ {
|
|
|
|
bit := (b >> j) & 1
|
|
|
|
even := x%2 == 0
|
|
|
|
if even {
|
|
|
|
previous = bit
|
|
|
|
} else {
|
|
|
|
colour := colorMap[shift][(previous<<1)+bit]
|
|
|
|
img.Set(x-1, y, colour)
|
|
|
|
img.Set(x, y, colour)
|
|
|
|
}
|
|
|
|
x++
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
return img
|
|
|
|
}
|