aboutsummaryrefslogtreecommitdiff
path: root/label-exp
diff options
context:
space:
mode:
Diffstat (limited to 'label-exp')
-rw-r--r--label-exp/main.go402
1 files changed, 402 insertions, 0 deletions
diff --git a/label-exp/main.go b/label-exp/main.go
new file mode 100644
index 0000000..442c021
--- /dev/null
+++ b/label-exp/main.go
@@ -0,0 +1,402 @@
+package main
+
+import (
+ "errors"
+ "html/template"
+ "image"
+ "image/color"
+ "image/draw"
+ "image/png"
+ "io"
+ "log"
+ "net/http"
+ "os"
+ "strconv"
+ "time"
+
+ "github.com/boombuler/barcode"
+ "github.com/boombuler/barcode/qr"
+
+ "janouch.name/sklad/bdf"
+)
+
+// scaler is a scaling image.Image wrapper.
+type scaler struct {
+ image image.Image
+ scale int
+}
+
+// ColorModel implements image.Image.
+func (s *scaler) ColorModel() color.Model {
+ return s.image.ColorModel()
+}
+
+// Bounds implements image.Image.
+func (s *scaler) Bounds() image.Rectangle {
+ r := s.image.Bounds()
+ return image.Rect(r.Min.X*s.scale, r.Min.Y*s.scale,
+ r.Max.X*s.scale, r.Max.Y*s.scale)
+}
+
+// At implements image.Image.
+func (s *scaler) At(x, y int) color.Color {
+ if x < 0 {
+ x = x - s.scale + 1
+ }
+ if y < 0 {
+ y = y - s.scale + 1
+ }
+ return s.image.At(x/s.scale, y/s.scale)
+}
+
+// -----------------------------------------------------------------------------
+
+func decodeBitfieldErrors(b byte, errors [8]string) []string {
+ var result []string
+ for i := uint(0); i < 8; i++ {
+ if b&(1<<i) != 0 {
+ result = append(result, errors[i])
+ }
+ }
+ return result
+}
+
+func printStatusInformation(d []byte) {
+ log.Println("-- status")
+
+ // Error information 1.
+ for _, e := range decodeBitfieldErrors(d[8], [8]string{
+ "no media", "end of media", "cutter jam", "?", "printer in use",
+ "printer turned off", "high-voltage adapter", "fan motor error"}) {
+ log.Println("error:", e)
+ }
+
+ // Error information 2.
+ for _, e := range decodeBitfieldErrors(d[9], [8]string{
+ "replace media", "expansion buffer full", "communication error",
+ "communication buffer full", "cover open", "cancel key",
+ "media cannot be fed", "system error"}) {
+ log.Println("error:", e)
+ }
+
+ // Media width.
+ log.Println("media width:", d[10], "mm")
+
+ // Media type.
+ switch b := d[11]; b {
+ case 0x00:
+ log.Println("media: no media")
+ case 0x4a:
+ log.Println("media: continuous length tape")
+ case 0x4b:
+ log.Println("media: die-cut labels")
+ default:
+ log.Println("media:", b)
+ }
+
+ // Mode.
+ log.Println("mode:", d[15])
+
+ // Media length.
+ log.Println("media width:", d[17], "mm")
+
+ // Status type.
+ switch b := d[18]; b {
+ case 0x00:
+ log.Println("status type: reply to status request")
+ case 0x01:
+ log.Println("status type: printing completed")
+ case 0x02:
+ log.Println("status type: error occurred")
+ case 0x04:
+ log.Println("status type: turned off")
+ case 0x05:
+ log.Println("status type: notification")
+ case 0x06:
+ log.Println("status type: phase change")
+ default:
+ log.Println("status type:", b)
+ }
+
+ // Phase type.
+ switch b := d[19]; b {
+ case 0x00:
+ log.Println("phase state: receiving state")
+ case 0x01:
+ log.Println("phase state: printing state")
+ default:
+ log.Println("phase state:", b)
+ }
+
+ // Phase number.
+ log.Println("phase number:", int(d[20])*256+int(d[21]))
+
+ // Notification number.
+ switch b := d[22]; b {
+ case 0x00:
+ log.Println("notification number: not available")
+ case 0x03:
+ log.Println("notification number: cooling (started)")
+ case 0x04:
+ log.Println("notification number: cooling (finished)")
+ default:
+ log.Println("notification number:", b)
+ }
+}
+
+// genLabelData converts an image to the printer's raster format.
+func genLabelData(src image.Image, offset int) (data []byte) {
+ // TODO: Margins? For 29mm, it's 6 pins from the start, 306 printing pins.
+ bounds := src.Bounds()
+ pixels := make([]bool, 720)
+ for y := bounds.Min.Y; y < bounds.Max.Y; y++ {
+ off := offset
+ for x := bounds.Max.X - 1; x >= bounds.Min.X; x-- {
+ // TODO: Anything to do with the ColorModel?
+ r, g, b, a := src.At(x, y).RGBA()
+ pixels[off] = r == 0 && g == 0 && b == 0 && a != 0
+ off++
+ }
+
+ data = append(data, 'g', 0x00, 90)
+ for i := 0; i < 90; i++ {
+ var b byte
+ for j := 0; j < 8; j++ {
+ b <<= 1
+ if pixels[i*8+j] {
+ b |= 1
+ }
+ }
+ data = append(data, b)
+ }
+ }
+ return
+}
+
+func printLabel(src image.Image) error {
+ data := []byte(nil)
+
+ // Raster mode.
+ // Should be the only supported mode for QL-800.
+ data = append(data, 0x1b, 0x69, 0x61, 0x01)
+
+ // Automatic status mode (though it's the default).
+ data = append(data, 0x1b, 0x69, 0x21, 0x00)
+
+ // Print information command.
+ dy := src.Bounds().Dy()
+ data = append(data, 0x1b, 0x69, 0x7a, 0x02|0x04|0x40|0x80, 0x0a, 29, 0,
+ byte(dy), byte(dy>>8), byte(dy>>16), byte(dy>>24), 0, 0x00)
+
+ // Auto cut, each 1 label.
+ data = append(data, 0x1b, 0x69, 0x4d, 0x40)
+ data = append(data, 0x1b, 0x69, 0x41, 0x01)
+
+ // Cut at end (though it's the default).
+ // Not sure what it means, doesn't seem to have any effect to turn it off.
+ data = append(data, 0x1b, 0x69, 0x4b, 0x08)
+
+ // 3mm margins along the direction of feed. 0x23 = 35 dots, the minimum.
+ data = append(data, 0x1b, 0x69, 0x64, 0x23, 0x00)
+
+ // Compression mode: no compression.
+ // Should be the only supported mode for QL-800.
+ data = append(data, 0x4d, 0x00)
+
+ // The graphics data itself.
+ data = append(data, genLabelData(src, 6)...)
+
+ // Print command with feeding.
+ data = append(data, 0x1a)
+
+ // ---
+
+ // Linux usblp module, located in /drivers/usb/class/usblp.c
+ // (at least that's where the trails go, I don't understand the code)
+ f, err := os.OpenFile("/dev/usb/lp0", os.O_RDWR, 0)
+ if err != nil {
+ return err
+ }
+ defer f.Close()
+
+ // Flush any former responses in the printer's queue.
+ for {
+ dummy := make([]byte, 32)
+ if _, err := f.Read(dummy); err == io.EOF {
+ break
+ }
+ }
+
+ // Clear the print buffer.
+ invalidate := make([]byte, 400)
+ if _, err := f.Write(invalidate); err != nil {
+ return err
+ }
+
+ // Initialize.
+ if _, err := f.WriteString("\x1b\x40"); err != nil {
+ return err
+ }
+
+ // Request status information.
+ if _, err := f.WriteString("\x1b\x69\x53"); err != nil {
+ return err
+ }
+
+ // We need to poll the device.
+ status := make([]byte, 32)
+ for {
+ if n, err := f.Read(status); err == io.EOF {
+ time.Sleep(10 * time.Millisecond)
+ } else if err != nil {
+ return err
+ } else if n < 32 {
+ return errors.New("invalid read")
+ } else {
+ break
+ }
+ }
+ printStatusInformation(status)
+
+ // Print the prepared data.
+ if _, err := f.Write(data); err != nil {
+ return err
+ }
+
+ // TODO: We specifically need to wait for a transition to the receiving
+ // state, and try to figure out something from the statuses.
+ // We may also receive an error status instead of the transition to
+ // the printing state. Or even after it.
+ start := time.Now()
+ for {
+ if time.Now().Sub(start) > 3*time.Second {
+ break
+ }
+ if n, err := f.Read(status); err == io.EOF {
+ time.Sleep(100 * time.Millisecond)
+ } else if err != nil {
+ return err
+ } else if n < 32 {
+ return errors.New("invalid read")
+ } else {
+ printStatusInformation(status)
+ }
+ }
+ return nil
+}
+
+// -----------------------------------------------------------------------------
+
+var font *bdf.Font
+
+// TODO: By rotating the label we can make it smaller, as an alternate mode.
+func genLabel(text string, width int) image.Image {
+ // Create a scaled bitmap of the QR code.
+ qrImg, _ := qr.Encode(text, qr.H, qr.Auto)
+ qrImg, _ = barcode.Scale(qrImg, 306, 306)
+ qrRect := qrImg.Bounds()
+
+ // Create a scaled bitmap of the text label.
+ textRect, _ := font.BoundString(text)
+ textImg := image.NewRGBA(textRect)
+ draw.Draw(textImg, textRect, image.White, image.ZP, draw.Src)
+ font.DrawString(textImg, image.ZP, text)
+
+ // TODO: We can scale as needed to make the text fit.
+ scaledTextImg := scaler{image: textImg, scale: 3}
+ scaledTextRect := scaledTextImg.Bounds()
+
+ // Combine.
+ combinedRect := qrRect
+ combinedRect.Max.Y += scaledTextRect.Dy() + 20
+
+ combinedImg := image.NewRGBA(combinedRect)
+ draw.Draw(combinedImg, combinedRect, image.White, image.ZP, draw.Src)
+ draw.Draw(combinedImg, combinedRect, qrImg, image.ZP, draw.Src)
+
+ target := image.Rect(
+ (width-scaledTextRect.Dx())/2, qrRect.Dy()+10,
+ combinedRect.Max.X, combinedRect.Max.Y)
+ draw.Draw(combinedImg, target, &scaledTextImg, scaledTextRect.Min, draw.Src)
+ return combinedImg
+}
+
+var tmpl = template.Must(template.New("form").Parse(`
+ <!DOCTYPE html>
+ <html><body>
+ <table><tr>
+ <td valign=top>
+ <img border=1 src='?img&amp;width={{.Width}}&amp;text={{.Text}}'>
+ </td>
+ <td valign=top>
+ <form><fieldset>
+ <p><label for=width>Tape width in pt:</label>
+ <input id=width name=width value='{{.Width}}'>
+ <p><label for=text>Text:</label>
+ <input id=text name=text value='{{.Text}}'>
+ <p><input type=submit value='Update'>
+ <input type=checkbox id=print name=print>
+ <label for=print>Print label</label>
+ </fieldset></form>
+ </td>
+ </tr></table>
+ </body></html>
+`))
+
+func handle(w http.ResponseWriter, r *http.Request) {
+ if err := r.ParseForm(); err != nil {
+ http.Error(w, err.Error(), 500)
+ return
+ }
+
+ var params = struct {
+ Width int
+ Text string
+ }{
+ Text: r.FormValue("text"),
+ }
+
+ var err error
+ params.Width, err = strconv.Atoi(r.FormValue("width"))
+ if err != nil {
+ params.Width = 306 // Default to 29mm tape.
+ }
+
+ label := genLabel(params.Text, params.Width)
+ if r.FormValue("print") != "" {
+ if err := printLabel(label); err != nil {
+ log.Println("print error:", err)
+ }
+ }
+
+ if _, ok := r.Form["img"]; !ok {
+ w.Header().Set("Content-Type", "text/html")
+ tmpl.Execute(w, &params)
+ return
+ }
+
+ w.Header().Set("Content-Type", "image/png")
+ if err := png.Encode(w, label); err != nil {
+ http.Error(w, err.Error(), 500)
+ return
+ }
+}
+
+func main() {
+ var err error
+ fi, err := os.Open("../../ucs-fonts-75dpi100dpi/100dpi/luBS24.bdf")
+ if err != nil {
+ log.Fatalln(err)
+ }
+ font, err = bdf.NewFromBDF(fi)
+ if err != nil {
+ log.Fatalln(err)
+ }
+ if err := fi.Close(); err != nil {
+ log.Fatalln(err)
+ }
+
+ log.Println("Starting server")
+ http.HandleFunc("/", handle)
+ log.Fatal(http.ListenAndServe(":8080", nil))
+}