SMTEST.C

/*********************************************************************
    (c) 1984 - 2003 by Scientific Endeavors Corporation.
        All rights reserved.
    This program draws a Smith chart.
*********************************************************************/
#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', "smith.tkf");         /* GraphiC initialization */
    startplot(DRK_GRAY);
    metricunits(0);                 /* Ensure scaling in inch units */
    rotate(1);                                   /* Plot is rotated */
    page(6.884f, 9.0f);               /* Size of page and plot area */
    area2d(5.5f, 7.6f);
    color(LGT_RED);                 /* Bright red heading and chart */
    heading("SMITH CHART");
    smdraw(14);                   /* Smith chart with yellow labels */
    color(BRT_WHITE);                         /* Bright white curve */
    plotrx(.7f, .5f);
    smove(.25f);
    color(CYAN);                            /* Cyan date-time stamp */
    dateit((Uchar)'\310');
    endplot();                          /* GraphiC closing routines */
    stopplot();
}