package vnc

import (
	"encoding/binary"
	"fmt"
	"image"
)

//var _ draw.Drawer = (*ServerConn)(nil)
//var _ draw.Image = (*ServerConn)(nil)

// Color represents a single color in a color map.
type Color struct {
	pf      *PixelFormat
	cm      *ColorMap
	cmIndex uint32 // Only valid if pf.TrueColor is false.
	R, G, B uint16
}

type ColorMap [256]Color

// NewColor returns a new Color object.
func NewColor(pf *PixelFormat, cm *ColorMap) *Color {
	return &Color{
		pf: pf,
		cm: cm,
	}
}

// Rectangle represents a rectangle of pixel data.
type Rectangle struct {
	X, Y          uint16
	Width, Height uint16
	EncType       EncodingType
	Enc           Encoding
}

func NewRectangle() *Rectangle {
	return &Rectangle{}
}

func (clr *Color) Write(c Conn) error {
	var err error
	order := clr.pf.order()
	pixel := clr.cmIndex
	if clr.pf.TrueColor == 1 {
		pixel = uint32(clr.R) << clr.pf.RedShift
		pixel |= uint32(clr.G) << clr.pf.GreenShift
		pixel |= uint32(clr.B) << clr.pf.BlueShift
	}

	switch clr.pf.BPP {
	case 8:
		err = binary.Write(c, order, byte(pixel))
	case 16:
		err = binary.Write(c, order, uint16(pixel))
	case 32:
		err = binary.Write(c, order, uint32(pixel))
	}

	return err
}

// Marshal implements the Marshaler interface.
func (c *Color) Marshal() ([]byte, error) {
	order := c.pf.order()
	pixel := c.cmIndex
	if c.pf.TrueColor == 1 {
		pixel = uint32(c.R) << c.pf.RedShift
		pixel |= uint32(c.G) << c.pf.GreenShift
		pixel |= uint32(c.B) << c.pf.BlueShift
	}

	var bytes []byte
	switch c.pf.BPP {
	case 8:
		bytes = make([]byte, 1)
		bytes[0] = byte(pixel)
	case 16:
		bytes = make([]byte, 2)
		order.PutUint16(bytes, uint16(pixel))
	case 32:
		bytes = make([]byte, 4)
		order.PutUint32(bytes, pixel)
	}

	return bytes, nil
}

func (clr *Color) Read(c Conn) error {
	order := clr.pf.order()
	var pixel uint32

	switch clr.pf.BPP {
	case 8:
		var px uint8
		if err := binary.Read(c, order, &px); err != nil {
			return err
		}
		pixel = uint32(px)
	case 16:
		var px uint16
		if err := binary.Read(c, order, &px); err != nil {
			return err
		}
		pixel = uint32(px)
	case 32:
		var px uint32
		if err := binary.Read(c, order, &px); err != nil {
			return err
		}
		pixel = uint32(px)
	}

	if clr.pf.TrueColor == 1 {
		clr.R = uint16((pixel >> clr.pf.RedShift) & uint32(clr.pf.RedMax))
		clr.G = uint16((pixel >> clr.pf.GreenShift) & uint32(clr.pf.GreenMax))
		clr.B = uint16((pixel >> clr.pf.BlueShift) & uint32(clr.pf.BlueMax))
	} else {
		*clr = clr.cm[pixel]
		clr.cmIndex = pixel
	}
	return nil
}

// Unmarshal implements the Unmarshaler interface.
func (c *Color) Unmarshal(data []byte) error {
	if len(data) == 0 {
		return nil
	}

	order := c.pf.order()

	var pixel uint32
	switch c.pf.BPP {
	case 8:
		pixel = uint32(data[0])
	case 16:
		pixel = uint32(order.Uint16(data))
	case 32:
		pixel = order.Uint32(data)
	}

	if c.pf.TrueColor == 1 {
		c.R = uint16((pixel >> c.pf.RedShift) & uint32(c.pf.RedMax))
		c.G = uint16((pixel >> c.pf.GreenShift) & uint32(c.pf.GreenMax))
		c.B = uint16((pixel >> c.pf.BlueShift) & uint32(c.pf.BlueMax))
	} else {
		*c = c.cm[pixel]
		c.cmIndex = pixel
	}

	return nil
}

func colorsToImage(x, y, width, height uint16, colors []Color) *image.RGBA64 {
	rect := image.Rect(int(x), int(y), int(x+width), int(y+height))
	rgba := image.NewRGBA64(rect)
	a := uint16(1)
	for i, color := range colors {
		rgba.Pix[4*i+0] = uint8(color.R >> 8)
		rgba.Pix[4*i+1] = uint8(color.R)
		rgba.Pix[4*i+2] = uint8(color.G >> 8)
		rgba.Pix[4*i+3] = uint8(color.G)
		rgba.Pix[4*i+4] = uint8(color.B >> 8)
		rgba.Pix[4*i+5] = uint8(color.B)
		rgba.Pix[4*i+6] = uint8(a >> 8)
		rgba.Pix[4*i+7] = uint8(a)
	}
	return rgba
}

// Marshal implements the Marshaler interface.
func (r *Rectangle) Write(c Conn) error {

	var err error
	if err = binary.Write(c, binary.BigEndian, r.X); err != nil {
		return err
	}
	if err = binary.Write(c, binary.BigEndian, r.Y); err != nil {
		return err
	}
	if err = binary.Write(c, binary.BigEndian, r.Width); err != nil {
		return err
	}
	if err = binary.Write(c, binary.BigEndian, r.Height); err != nil {
		return err
	}
	if err = binary.Write(c, binary.BigEndian, r.EncType); err != nil {
		return err
	}

	return r.Enc.Write(c, r)
}

func (r *Rectangle) Read(c Conn) error {
	var err error

	if err = binary.Read(c, binary.BigEndian, &r.X); err != nil {
		return err
	}
	if err = binary.Read(c, binary.BigEndian, &r.Y); err != nil {
		return err
	}
	if err = binary.Read(c, binary.BigEndian, &r.Width); err != nil {
		return err
	}
	if err = binary.Read(c, binary.BigEndian, &r.Height); err != nil {
		return err
	}
	if err = binary.Read(c, binary.BigEndian, &r.EncType); err != nil {
		return err
	}
	switch r.EncType {
	case EncCopyRect:
		r.Enc = &CopyRectEncoding{}
	case EncTight:
		r.Enc = &TightEncoding{}
	case EncTightPng:
		r.Enc = &TightPngEncoding{}
	case EncRaw:
		r.Enc = &RawEncoding{}
	case EncDesktopSizePseudo:
		r.Enc = &DesktopSizePseudoEncoding{}
	case EncDesktopNamePseudo:
		r.Enc = &DesktopNamePseudoEncoding{}
	case EncXCursorPseudo:
		r.Enc = &XCursorPseudoEncoding{}
	default:
		return fmt.Errorf("unsupported encoding %s", r.EncType)
	}
	return r.Enc.Read(c, r)
}

// Area returns the total area in pixels of the Rectangle.
func (r *Rectangle) Area() int { return int(r.Width) * int(r.Height) }