package RelationsAndBooleans;

/**
 * DangerScale.java
 *
 *
 * Created: Thu Mar 22 22:47:46 2001
 *
 * @author Stuart C. Shapiro
 */

public class DangerScale extends NGP.Graphics.FilledRectangle{
    private NGP.Graphics.Text _label;

    public DangerScale (NGP.Containers.DrawingPanel dp){
	super(dp);
	_label = new NGP.Graphics.Text(dp, "");
	_label.setLocation(new java.awt.Point(50, 410));
	setHeight(0);
    }

    public void setHeight(int h){
	setLocation(new java.awt.Point(50, 400-h));
	setDimension(new java.awt.Dimension(50, h));

	if (h<=200){
	    setColor(java.awt.Color.green);
	    _label.setString("                 ");
	}
	else if (h<=300){
	    setColor(java.awt.Color.orange);
	    _label.setColor(java.awt.Color.orange);
	    _label.setString("WARNING");
	}
	else {
	    setColor(java.awt.Color.red);
	    _label.setColor(java.awt.Color.red);
	    _label.setString("DANGER");
	}
	    }
}// DangerScale