Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/18/84; site sdcsvax.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!allegra!mit-eddie!genrad!decvax!ittvax!dcdwest!sdcsvax!hutch
From: hutch@sdcsvax.UUCP (Jim Hutchison)
Newsgroups: net.graphics,net.sources
Subject: plot for fractal source which uses plot(3) instead of core
Message-ID: <972@sdcsvax.UUCP>
Date: Wed, 10-Jul-85 20:17:12 EDT
Article-I.D.: sdcsvax.972
Posted: Wed Jul 10 20:17:12 1985
Date-Received: Sat, 13-Jul-85 10:29:40 EDT
Organization: UCSD EMU Project (Educational Microcomputer Unix)
Lines: 53
Xref: watmath net.graphics:896 net.sources:3134

*** REPLACE THIS LINE WITH YOUR MESSAGE ***

Due to a number of flames and or requests I am posting this
copy of the routine plot() which does not use core.
It uses plot(3) line() instead.  The initial openpl() and
closepl() are left to the reader to use in conjunction.

/*
 * Plot_line()
 *
 * Draw a line by length and angle relative to current x,y
 *
 * Author: Jim Hutchison (hutch@sdcsvax)
 * (this is free, but credit me)
 */

#include 
#include "g.h"

static double crntx = 0.0, crnty = 0.0;

set_coord(x,y)
double x,y;
{
    crntx = x;
    crnty = y;
}

/*
 *	Plot a line by length and angle from current position
 */

plot_line(length,angle)
double length,angle;
{
double dx,dy;

    MOD(angle,TWOPI);

    dx = length * cos(angle);
    dy = length * sin(angle);

    line( crntx, crnty, crntx + dx, crnty + dy);
    crntx += dx;
    crnty += dy;	/* don't forget openpl() and closepl() */
}
-- 
/*
	Jim Hutchison	UUCP:	{dcdwest,ucbvax}!sdcsvax!hutch
			ARPA:	hutch@sdcsvax

    < Ofcourse these statements are only mine, not my employers. >
*/