Example - 3-D Stem Plot of an FFTFor example, fast Fourier transforms are calculated at points around the unit circle on the complex plane. So, it is interesting to visualize the plot around the unit circle. Calculating the unit circle.
Mir2 Actor.pas
if (IsFace) and (FaceIndex > -1) then
begin
d := aFrmMain.WFaceimg.Images[FaceIndex * 10 + (FaceFram) mod 8]
/// if HorseSurface<>nil then
// dSurface.Draw (dx+shiftx, dy + hpy + ShiftY-60, d.ClientRect, d, TRUE)
// else
if d <> nil then
begin
if HorseSurface <> nil then
dsurface.Draw(SayX - d.Width div 2, dy + hpy + ShiftY - 60,
d.ClientRect, d, True)
else
dsurface.Draw(SayX - d.Width div 2, dy + hpy + ShiftY - 50,
d.ClientRect, d, True)
end
end
end
