Плагин к программе Apophysis. Нужно подробное объяснение того, что тут происходит.

[NataliSha]

Плагин1)
#define _USE_MATH_DEFINES
#define APO_NOVARIABLES
#include "apoplugin.h"


APO_PLUGIN("ex");


int PluginVarPrepare(Variation* vp)
{
return TRUE; // Always return TRUE.
}


int PluginVarCalc(Variation* vp)
{
double FAngle = atan2(FTy, FTx);
double r = sqrt(FTx*FTx+FTy*FTy);
double n0 = sin(FAngle + r);
double n1 = cos(FAngle - r);
double m0 = sqr(n0) * n0;
double m1 = sqr(n1) * n1;

r = r * VVAR;
FPx = FPx + r * (m0 + m1);
FPy = FPy + r * (m0 - m1);

return TRUE;
}
Плагин 2)
// Must define this structure before we include apoplugin.h
typedef struct
{
double whorl_inside;
double whorl_outside;
} Variables;

#include "apoplugin.h"

// Set the name of this plugin
APO_PLUGIN("whorl");

// Define the Variables
APO_VARIABLES(
VAR_REAL(whorl_inside, 1.0),
VAR_REAL(whorl_outside, 1.0)
);

// You must call the argument "vp".
int PluginVarPrepare(Variation* vp)
{
// Always return TRUE.
return TRUE;
}

// You must call the argument "vp".
int PluginVarCalc(Variation* vp)
{
double a, r;
double sina, cosa;

r = sqrt(FTx*FTx + FTy*FTy);

if(r < VVAR)
{
a = atan2(FTy, FTx) + VAR(whorl_inside)/(VVAR - r);
}
else
{
a = atan2(FTy, FTx) + VAR(whorl_outside)/(VVAR - r);
}
fsincos(a, &sina, &cosa);
FPx += VVAR*r*cosa;
FPy += VVAR*r*sina;

return TRUE;
}