/* box functions
 **
 ** Author: Paul W. Carlson     March 1992
 */

#include "ps_info.h"
#include "local_proto.h"

int box_path(double t, double b, double l, double r)
{
    fprintf(PS.fp, "%.1f %.1f %.1f %.1f B ", l, b, r, t);

    return 0;
}

int box_clip(double t, double b, double l, double r)
{
    box_path(t, b, l, r);
    fprintf(PS.fp, "clip newpath\n");

    return 0;
}

int box_fill(double t, double b, double l, double r, int color_number)
{
    set_rgb_color(color_number);
    box_path(t, b, l, r);
    fprintf(PS.fp, "F\n");

    return 0;
}

int box_draw(double t, double b, double l, double r)
{
    box_path(t, b, l, r);
    fprintf(PS.fp, "D\n");

    return 0;
}
