INTEST.C

/****************************************************************************
       (c) 1984 - 2003 by Scientific Endeavors Corporation.
        All rights reserved.

        This program is an example of inserting a TKF file into a plot.
****************************************************************************/

#include <graphic.h>                           /* Include all needed files */

#if TCQ                                 /* Set stack for Borland (Turbo) C */
extern unsigned _stklen = 0x3000;
#endif

/****************************************************************************
    Main program
****************************************************************************/
void GPC_MAIN(void)
{
    bgnplot(1, 'g', "insert.tkf");               /* GraphiC Initialization */
    startplot(BRT_WHITE);
    font(2, "simplex.fnt", '\310', "triplex.fnt", '\311'); /* Select fonts */
    rotate(1);                                  /* Plot rotated 90 degrees */
    metricunits(0);                                 /* Plots are in inches */

    page(6.884f, 9.0f);                      /* Size of page and plot area */

    color(GREEN);                                 /* Green box around plot */
    box();

    color(LGT_MAGENTA);               /* Light magenta centered plot title */
    tmargin(.5f);
    lmargin(0.f);
    ctline("\311Test of Plot Insert", .25f);

    insert("clr.tkf", 2, -1.f, 2.25f, 4.5f, 0);      /* Insert 2nd picture */

    color(YELLOW);                                       /* Yellow caption */
    tmargin(7.0f);
    ctline("Plot Caption", .2f);

    color(MAGENTA);                             /* Magenta date-time stamp */
    dateit((Uchar)'\310');

    endplot();                                 /* GraphiC closing routines */
    stopplot();
}