text2.c

Go to the documentation of this file.

#include <math.h>

#include <grass/gis.h>
#include "driver.h"
#include "driverlib.h"

static int am_inside;
static int dont_draw;
static int t, b, l, r;
static double basex, basey;
static double curx, cury;

static void remember(double x, double y)
{
    if ((int)x > r)
        r = (int)x;
    if ((int)x < l)
        l = (int)x;
    if ((int)y > b)
        b = (int)y;
    if ((int)y < t)
        t = (int)y;

    curx = x;
    cury = y;
}

static void text_draw(double x, double y)
{
    int X1 = (int)x;
    int Y1 = (int)y;
    int X2 = (int)curx;
    int Y2 = (int)cury;

    if (am_inside) {
        COM_Cont_abs(X1, Y1);
    }
    else {
        COM_Move_abs(X2, Y2);
        COM_Cont_abs(X1, Y1);
        am_inside = 1;
    }

    curx = x;
    cury = y;
}

static void text_move(double x, double y)
{
    int X1 = (int)x;
    int Y1 = (int)y;

    if (am_inside)
        COM_Move_abs(X1, Y1);

    curx = x;
    cury = y;
}

void drawchar(double text_size_x, double text_size_y,
              double sinrot, double cosrot, unsigned char character)
{
    unsigned char *X;
    unsigned char *Y;
    int n_vects;
    int i;
    int ax, ay;
    double x, y;
    void (*Do) (double, double);
    int ix, iy;

    x = basex;
    y = basey;

    get_char_vects(character, &n_vects, &X, &Y);

    Do = text_move;

    for (i = 1; i < n_vects; i++) {
        if (X[i] == ' ') {
            Do = text_move;
            continue;
        }

        ix = 10 + X[i] - 'R';
        iy = 10 - Y[i] + 'R';
        ax = (int)(text_size_x * (double)ix);
        ay = (int)(text_size_y * (double)iy);

        if (dont_draw) {
            remember(x + (ax * cosrot - ay * sinrot),
                     y - (ax * sinrot + ay * cosrot));
        }
        else {
            (*Do) (x + (ax * cosrot - ay * sinrot),
                   y - (ax * sinrot + ay * cosrot));
            Do = text_draw;
        }
    }
    /*  This seems to do variable spacing
       ix = 10 + X[i] - 'R';
     */
    ix = 20;
    iy = 0;
    ax = (int)(text_size_x * (double)ix);
    ay = (int)(text_size_y * (double)iy);
    if (!dont_draw)
        text_move(basex + (ax * cosrot - ay * sinrot),
                  basey - (ax * sinrot + ay * cosrot));
    else
        remember(basex + (ax * cosrot - ay * sinrot),
                 basey - (ax * sinrot + ay * cosrot));
}

void soft_text_ext(int x, int y,
                   double text_size_x, double text_size_y,
                   double text_rotation, const char *string)
{
    t = 999999;
    b = 0;
    l = 999999;
    r = 0;
    dont_draw = 1;
    soft_text(x, y, text_size_x, text_size_y, text_rotation, string);
    dont_draw = 0;
}

void get_text_ext(int *top, int *bot, int *left, int *rite)
{
    *top = t;
    *bot = b;
    *left = l;
    *rite = r;
}

# define RpD ((2 * M_PI) / 360.)        /* radians/degree */
# define D2R(d) (double)(d * RpD)       /* degrees->radians */

void soft_text(int x, int y,
               double text_size_x, double text_size_y, double text_rotation,
               const char *string)
{
    double sinrot = sin(D2R(text_rotation));
    double cosrot = cos(D2R(text_rotation));

    am_inside = 0;
    curx = basex = (double)x;
    cury = basey = (double)y;
    while (*string) {
        drawchar(text_size_x, text_size_y, sinrot, cosrot, *string++);
        basex = curx;
        basey = cury;
    }
}

void onechar(int x, int y,
             double text_size_x, double text_size_y, double text_rotation,
             unsigned char achar)
{
    double sinrot = sin(D2R(text_rotation));
    double cosrot = cos(D2R(text_rotation));

    am_inside = 0;
    curx = basex = (double)x;
    cury = basey = (double)y;
    drawchar(text_size_x, text_size_y, sinrot, cosrot, achar);
}