/*Translated by FOR_C, v3.4.2 (-), on 07/09/115 at 08:33:12 */
/*FOR_C Options SET: ftn=u io=c no=p op=aimnv pf=,p_dprpl s=dbov str=l x=f - prototypes */
#include <math.h>
#include "fcrt.h"
#include <stdio.h>
#include <stdlib.h>
#include "p_dprpl.h"
/*     program  DRDPRPL
 *>> 1996-07-12 DRDPRPL1  Krogh Special code for C conversion.
 *>> 1994-10-19 DRDPRPL
 *>> 1989-04-26 DRDPRPL
 *--D replaces "?": DR?PRPL, ?PRPL
 *     Demo driver for DPRPL.
 *     ------------------------------------------------------------------ */
 
int main( )
{
	char image[37];
	long int i;
	double x, y;
 
	/*     ------------------------------------------------------------------ */
	printf("          X      Y                     Y\n");
	for (i = 1; i <= 21; i++)
	{
		x = (double)( i - 11 )/10.0e0;
		y = 2.0e0*x*x - 1.0e0;
		dprpl( y, '*', (byte*)image, 36, -1.0e0, 1.0e0, TRUE );
        printf("  %10.1f%8.2f %36.36s\n", x, y, image);
	}
	/*        print '(2x,f10.1,f8.2,1x,a)', X,Y,IMAGE */
	exit(0);
} /* end of function */