曲率によってカーブの分割数を増減する

prim(0,0,"intrinsic:measuredperimeter",0)/npoints(0)

//
// 曲率の高いエリアほど分割数を増やしたカーブを生成する
// Run Over: Primitives
// input1: 元にするカーブ
//
float step = 16;      // 直線での間隔の長さ
float divRatio = 12;  // この値を高くするほど、コーナーの分割数が多くなる。0だと何も影響を与えない。
float stepScale = 2;  // stepに対する倍率。比較するポイント幅を広くする。

float curveLength = primintrinsic(0, "measuredperimeter", 0);
float length = 0;
int prim = addprim(0, "polyline");

int flag = -1;
while(flag < 0)
{
    // Prev Pos
    float l_prev = length - (step * stepScale);  
    float p_prev = l_prev / curveLength;
    vector prev = primuv(0, "P", 0, set(p_prev, 0));
    
    // 始端より前なら延長して補正する
    if(p_prev < 0)
    {
        vector p0 = primuv(0, "P", 0, set(0, 0));
        vector p1 = primuv(0, "P", 0, set(0.001, 0));
        vector v0 = normalize(p1 - p0) * curveLength * p_prev;
        prev = p0 + v0;
    }
    
    // Next Pos
    float l_next = length + (step * stepScale);
    float p_next = l_next / curveLength;
    vector next = primuv(0, "P", 0, set(p_next, 0));
    
    // 終端より後なら延長して補正する
    if(p_next > 1.0)
    {
        vector p0 = primuv(0, "P", 0, set(1 - 0.001, 0));
        vector p1 = primuv(0, "P", 0, set(1.0, 0));    
        vector v0 = normalize(p1 - p0) * curveLength * (p_next - 1.0);
        next = p0 + v0;
    }
    
    // prev,next両端の真ん中の座標
    vector center = (prev + next) * 0.5;
    
    vector pt = primuv(0, "P", 0, set(length/curveLength, 0));
    
    //        ---pt---
    //     ---    |r  ----
    // prev----center-----next
    //
    // 折れているほどptとcenterの差rが大きくなる
    // divideRatio=0の時、r=0になるので影響は全くない状態になる
    
    float r = length(center - pt) * divRatio / (step * stepScale);
 
    int point = addpoint(0, pt);
    addvertex(0, prim, point);
    
    // 次のポイント
    if(r < 0) r = 0;
        
    length += step / (1.0 + r);
    
    // 最後のポイントを打って終了
    if(length >= curveLength)
    {
        pt = primuv(0, "P", 0, set(1.0, 0));
        point = addpoint(0, pt);
        addvertex(0, prim, point);
        flag = 1;
    }
}

removeprim(0, @primnum, 1);