ftp.nice.ch/pub/next/science/mathematics/HippoDraw.2.0.s.tar.gz#/HippoDraw/Hippo.bproj/Draw.subproj/Circle.m

This is Circle.m in view mode; [Download] [Up]

#import "draw.h"

/*
 * This line is just a stub to get genstrings to generate
 * a .strings file entry for the name of this type of Graphic.
 * The name is used in the Undo New <Whatever> menu item.
 *
 * NXLocalString("Circle", NULL, "Name of the tool that draws ovals, i.e., the %s of the New %s operation.")
 */

@implementation Circle : Graphic

+ initialize
/*
 * This bumps the class version so that we can compatibly read
 * old Graphic objects out of an archive.
 */
{
    [Circle setVersion:1];
    return self;
}

- (Graphic *)colorAcceptorAt:(const NXPoint *)point
/*
 * An oval accepts a dropped color if the drop occurs
 * within the bounds of the circle itself.
 */
{
    if ([self hit:point]) return self;
    return nil;
}

- (float)naturalAspectRatio
/*
 * The natural aspect ratio of an oval is 1.0 (a circle).
 */
{
    return 1.0;
}

- draw
{
    if (bounds.size.width < 1.0 || bounds.size.height < 1.0) return self;

    if ([self fill]) {
	PSgsave();
	[self setFillColor];
	PSFilledOval(bounds.origin.x, bounds.origin.y, bounds.size.width, bounds.size.height);
	PSgrestore();
    }
    if (!gFlags.nooutline) {
	[self setLineColor];
	PSFramedOval(bounds.origin.x, bounds.origin.y, bounds.size.width, bounds.size.height);
    }

    return self;
}

- (BOOL)hit:(const NXPoint *)p
/*
 * Hit only if inside the interior of the oval.
 */
{
    NXCoord x, y;
    NXPoint center;
    double angle, radius, diameter;

    if ([super hit:p]) {
	center.x = bounds.origin.x + bounds.size.width / 2.0;
	center.y = bounds.origin.y + bounds.size.height / 2.0;
	diameter = MIN(bounds.size.width, bounds.size.height);
	x = fabs(center.x - p->x) / (bounds.size.width / diameter);
	y = fabs(center.y - p->y) / (bounds.size.height / diameter);
	angle = atan2(y, x);
	radius = diameter / 2.0;
	return(x < radius * cos(angle) && y < radius * sin(angle));
    } else {
	return NO;
    }
}


@end

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.