apgbpal/apgbpal.go

package main

// Binary apgbpal creates a 56-byte file named "test.pal" in the current working
// directory. I hope it might be an Analogue Pocket GB Palette file, but I don't
// know that for sure yet.

// apgbpal is licensed under 0BSD.
//
// Zero-Clause BSD
// =============
//
// Permission to use, copy, modify, and/or distribute this software for
// any purpose with or without fee is hereby granted.
//
// THE SOFTWARE IS PROVIDED “AS IS” AND THE AUTHOR DISCLAIMS ALL
// WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES
// OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE
// FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY
// DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN
// AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
// OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.


import (
	"fmt"
	"log"
	"os"
	"strconv"
	"strings"
)

type RGBA struct {
	R byte
	G byte
	B byte
	A byte
}

func (c RGBA) Bytes() [4]byte {
	return [4]byte{c.R, c.G, c.B, c.A}
}

func HexByteAt(str string, index int) (byte, error) {
	if len(str) < index+2 {
		return 0, fmt.Errorf("no hex byte at %d in too short string %q", index, str)
	}
	big, err := strconv.ParseUint(str[index:index+1], 16, 8)
	if err != nil {
		return 0, fmt.Errorf("can't parse hex byte at %d in string %q: %w", index, str, err)
	}
	return byte(big), nil
}

func ParseRGBA(str string) (RGBA, error) {
	s := strings.TrimSpace(str)
	s = strings.ToLower(s)
	s, _ = strings.CutPrefix(s, "#")
	var ret RGBA
	switch len(s) {
	case 6:
		ret.A = 0xFF
	case 8:
		var err error
		ret.A, err = HexByteAt(s, 6)
		if err != nil {
			return RGBA{}, fmt.Errorf("can't parse alpha channel: %v", err)
		}
	default:
		return RGBA{}, fmt.Errorf("%q is not an RGBA value: wrong length after trimming", str)
	}
	var err error
	if ret.R, err = HexByteAt(s, 0); err != nil {
		return RGBA{}, fmt.Errorf("can't parse red channel: %v", err)
	}
	if ret.G, err = HexByteAt(s, 2); err != nil {
		return RGBA{}, fmt.Errorf("can't parse green channel: %v", err)
	}
	if ret.B, err = HexByteAt(s, 4); err != nil {
		return RGBA{}, fmt.Errorf("can't parse blue channel: %v", err)
	}
	return ret, nil
}

type BGPal [4]RGBA

func (b BGPal) Bytes() [20]byte {
	var ret [20]byte
	ret[0] = 'b'
	ret[1] = 'g'
	ret[2] = ':'
	for c := 0; c < 4; c++ {
		bb := b[c].Bytes()
		for i := 0; i < 4; i++ {
			ret[3+i+4*c] = bb[i]
		}
	}
	ret[19] = '\n'
	return ret
}

func MustParseBGPal(strs []string) BGPal {
	if len(strs) != 4 {
		log.Fatalf("MustParseBGPal requires length 4, got %d", len(strs))
	}
	var ret BGPal
	for i := 0; i < 4; i++ {
		var err error
		ret[i], err = ParseRGBA(strs[i])
		if err != nil {
			log.Fatalf("MustParseBGPal can't parse at %d: %v", i, err)
		}
	}
	return ret
}

type OBJPal [3]RGBA

func (o OBJPal) Bytes(indexchar byte) [18]byte {
	var ret [18]byte
	ret[0] = 'o'
	ret[1] = 'b'
	ret[2] = 'j'
	ret[3] = indexchar
	ret[4] = ':'
	for c := 0; c < 3; c++ {
		oo := o[c].Bytes()
		for i := 0; i < 4; i++ {
			ret[5+i+4*c] = oo[i]
		}
	}
	ret[17] = '\n'
	return ret
}

func MustParseOBJPal(strs []string) OBJPal {
	if len(strs) == 4 {
		log.Println("Discarding index 0 of OBJ pal")
		strs = strs[1:]
	}
	if len(strs) != 3 {
		log.Fatalf("MustParseObjPal requires length 3, got %d", len(strs))
	}
	var ret OBJPal
	for i := 0; i < 3; i++ {
		var err error
		ret[i], err = ParseRGBA(strs[i])
		if err != nil {
			log.Fatalf("MustParseOBJPal can't parse at %d: %v", i, err)
		}
	}
	return ret
}

type APGBPal struct {
	BG   BGPal
	OBJ0 OBJPal
	OBJ1 OBJPal
}

func (a APGBPal) Bytes() [56]byte {
	var ret [56]byte
	for i, b := range a.BG.Bytes() {
		ret[i] = b
	}
	for i, b := range a.OBJ0.Bytes('0') {
		ret[i+20] = b
	}
	for i, b := range a.OBJ1.Bytes('1') {
		ret[i+38] = b
	}
	return ret
}

func main() {
	f, err := os.OpenFile(
		"test.pal",
		os.O_WRONLY|os.O_CREATE|os.O_EXCL,
		0644)
	if err != nil {
		log.Fatalf("can't create test.pal: %v", err)
	}
	aUpPal := APGBPal{
		BG:   MustParseBGPal([]string{"ffffff", "ff8484", "943a3a", "000000"}),
		OBJ0: MustParseOBJPal([]string{"7bff31", "008400", "000000"}),
		OBJ1: MustParseOBJPal([]string{"63a5ff", "0000ff", "000000"}),
	}
	palb := aUpPal.Bytes()
	n, err := f.Write(palb[:])
	if err != nil {
		log.Fatalf("can't save test.pal: %v", err)
	}
	if n != 56 {
		log.Fatalf("unexpected write length: %d", n)
	}
	f.Close()
	os.Exit(0)
}