ProFound (version 1.0.1)

profoundDrawEllipse: Draw Ellipse

Description

Calculates the x and y location of an ellipse, allowing for the presence of boxiness.

Usage

profoundDrawEllipse(xcen = 0, ycen = 0, rad = 1, axrat = 1, ang = 0, box = 0, ...)

Arguments

xcen

Numeric vector; x centre/s of the ellipse/s.

ycen

Numeric vector; y centre/s of the ellipse/s.

rad

Numeric vector; the major axis extent of the ellipse/s.

axrat

Numeric vector; the axial ratio of the ellipse/s as given by radlo/radhi.

ang

Numeric vector; the angle of the ellipse/s in the usual ProFit sense, see profitMakeModel.

box

Numeric vector; the boxiness of the ellipse/s in the usual ProFit sense, see profitMakeModel.

…

Further arguments to be passed to lines to draw the ellipse/s.

Value

No value is returned, this function is run purely for the side effect of drawing an ellipse.

Details

This function uses all the standard ProFit conventions to define the input parameters

See Also

profoundGetEllipsesPlot, profoundGetEllipses, profoundGetEllipse

Examples

# NOT RUN {
library(ProFit)

model = list(
 sersic = list(
  xcen = 50,
  ycen = 50,
  mag = 15,
  re = 10,
  nser = 4,
  ang = 30,
  axrat = 0.3,
  box = 0.5
 )
)

image=profoundMakeModel(model)$z
temp=magimage(image)
contour(temp, col='red', drawlabels=FALSE, add=TRUE)
profoundDrawEllipse(model$sersic$xcen, model$sersic$ycen, rad=26, axrat=model$sersic$axrat,
ang=model$sersic$ang, box=model$sersic$box, col='blue', lty=2)

model = list(
 sersic = list(
  xcen = 50,
  ycen = 50,
  mag = 15,
  re = 10,
  nser = 4,
  ang = 30,
  axrat = 0.3,
  box = -0.5
 )
)

image=profoundMakeModel(model)$z
temp=magimage(image)
contour(temp, col='red', drawlabels=FALSE, add=TRUE)
profoundDrawEllipse(model$sersic$xcen, model$sersic$ycen, rad=30, axrat=model$sersic$axrat,
ang=model$sersic$ang, box=model$sersic$box, col='blue', lty=2)
# }