summaryrefslogtreecommitdiffstats
path: root/code/hpgl.c
blob: f9436b408f18ce26c14219c6ae73aeca35391915 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
#include <stdio.h>
#include <stdlib.h>
#include <stdint.h>


void
pos (int x, int y, int b)
{
  int16_t lr[2];
  int i;


  lr[0] = 3 * y + 10000;
  lr[1] = 15000 - x * 3;

  lr[0] &= ~1;
  lr[1] &= ~1;

  if (!b)
    lr[1] |= 1;


  fprintf (stderr, "%6d %6d %d\n", x, y, b);

  for (i = 0; i < 15; ++i)
    {
      fwrite (lr, sizeof (lr), 1, stdout);
    }
}


int
main (int argc, char *argv[])
{
  char c;
  char buf[1024];
  int ic, len;
  int commas;
  int beam = 0, oldbeam = 0;
  int x, y;

  buf[0] = 0;
  len = 0;
  commas = 0;

  while ((ic = getchar ()) != EOF)
    {
      c = ic;
      if ((c == ' ') || (c == '\t'))
        continue;

      buf[len++] = c;
      buf[len] = 0;

//      fprintf(stderr,"A>%s<A\n",buf);

      if (!strcmp (buf, "PA"))
        {
          len = 0;
          commas = 0;
          continue;
        }

      if (!strcmp (buf, "PU"))
        {
          len = 0;
          commas = 0;
          beam = 0;
          continue;
        }

      if (!strcmp (buf, "PD"))
        {
          len = 0;
          commas = 0;
          beam = 1;
          continue;
        }

      if (!strncmp (buf, "SP", 2))
        {
          commas = 0;
          if (c == ';')
            len = 0;
          continue;
        }

      if (c == ',')
        commas++;


      if (((commas) && ((c == ';') || (c == '\n'))) || (commas == 2))
        {


          if (sscanf (buf, "%d,%d", &x, &y) == 2)
            {
              if (beam)
                {
                  if (!oldbeam)
                    {

                      pos (x, y, 0);

                    }
                  pos (x, y, beam);


                }
              oldbeam = beam;
            }


          len = 0;
          commas = 0;

        }


      if ((c == ';') || (c == '\n'))
        {
          commas = 0;
          len = 0;
        }

    }

  return 0;
}