TPhongShading

type TPhongShading = class(TCustomPhongShading)

public

  LightSourceIntensity: Single;

  LightSourceDistanceTerm: Single;

  LightSourceDistanceFactor: Single;

  LightDestFactor: Single;

  LightColor: TBGRAPixel;

  SpecularFactor: Single;

  SpecularIndex: Single;

  AmbientFactor: Single;

  DiffusionFactor: Single;

  NegativeDiffusionFactor: Single;

  DiffuseSaturation: Boolean;

  constructor Create;

  procedure Draw();

  procedure DrawScan(); override;

  procedure DrawCone();

  procedure DrawVerticalCone();

  procedure DrawHorizontalCylinder();

  procedure DrawVerticalCylinder();

  procedure DrawSphere();

  procedure DrawRectangle();

protected

  procedure DrawMapNormal();

  procedure DrawScannerNormal();

  procedure DrawColorNormal();

  procedure DrawMapSSE();

  procedure DrawScannerSSE();

  procedure DrawColorSSE();

end;

TPhongShading

TCustomPhongShading

TObject