TR's Radial Extruder (May 11th, 2015)

[TechnoRobbo]

TechnoRobbo's Radial Extruder 

Invented to create perfectly circular images for custom controls, it turned out to create interesting effects, so I posted it.

Version 1.1 includes Extend to Border feature.

(Special thanks to Red Ochre for the idea)

version 1.2 includes 

Subdivide

Reverse Rotation 

Reverse Overlap

Flip (image)

Shift (slices)

Menu: Effects ->Distort

CodeLab Source Code

Hidden Content:

// Submenu: Distort
// Name: TR's Radial Extruder
// Title: TR's Radial Extruder - v1.2
// Author: TechnoRobbo
// URL: http://www.technorobbo.com

#region UICode
double Amount1 = 0; // [-180,180] Starting Point
bool Amount2 = false; // [0,1] Even Pieces (Subdivide)
int Amount3 = 1; // [1,1000] Width
int Amount4 = 24; // [4,255] Subdivide
double Amount5 = 0.5; // [0,1] Shift
bool Amount6 = true; // [0,1] Extend to Border
bool Amount7 = false; // [0,1] Reverse Rotation
bool Amount8 = false; // [0,1] Reverse Overlap
bool Amount9 = false; // [0,1] Flip
#endregion

void Render(Surface dst, Surface src, Rectangle rect)
{
    // Delete any of these lines you don't need
    Rectangle selection = EnvironmentParameters.GetSelection(src.Bounds).GetBoundsInt();
    double CenterX = ((double)(selection.Right - selection.Left) / 2)+(double)selection.Left;
    double CenterY = ((double)(selection.Bottom - selection.Top) / 2)+(double)selection.Top;
    double circ = Math.PI * Math.Sqrt(CenterX * CenterX + CenterY * CenterY) * 2;
    
    double wide;

    double start = Amount1; 
    bool SubD = Amount2;
    ColorBgra CurrentPixel;
    double Wshift = Amount5;    
    bool wrap = Amount6;
    bool reverse = Amount7;
    bool overlap=Amount8;
    bool flip= Amount9;
    
    if (!SubD )
    {
        wide = (double)Amount3 * circ / 2000;
    }
    else
    {
        wide = circ * 2 / Amount4;
    }

    
    
    for (int y = rect.Top; y < rect.Bottom; y++)
    {
        if (IsCancelRequested) return;
        for (int x = rect.Left; x < rect.Right; x++)
        {
            
            double offx =(double)x - CenterX;
            double offy = (double)y - CenterY;
            double rot;
            
            if (!overlap)
            {
                rot = (Math.Atan2(offy,offx) + Math.PI)* circ / Math.PI;
            }else
            {
                rot = (Math.PI - Math.Atan2(offy,offx))* circ / Math.PI;
            }
            
            rot =(Wshift * wide + rot) % wide;
            
            double rad  = rot * Math.PI /circ + start;
            
            double nx,ny;
            double pythag = Math.Sqrt(offx * offx + offy * offy);
            
            if (reverse)rad = -rad;
            
            if (flip)
            {
                rad = -rad;
                nx = CenterX - Math.Cos(rad) * pythag;
                ny = CenterY - Math.Sin(rad) * pythag;

            }else{
                nx = Math.Cos(rad) * pythag + CenterX;
                ny = Math.Sin(rad) * pythag + CenterY;
            }
            
            
            if (wrap)
            {
                if (nx >= selection.Right) nx = selection.Right - Math.Abs(nx - selection.Right);
                if (nx < 0) nx =  Math.Abs(nx - 0);
                if (ny >= selection.Bottom)ny = selection.Bottom - Math.Abs(ny - selection.Bottom);
                if (ny < 0) ny = Math.Abs(ny - 0);
                dst[x,y] = src.GetBilinearSampleClamped((float)nx,(float)ny);
            }
            else
            {
                dst[x,y] = src.GetBilinearSample((float)nx,(float)ny);
            }
            

        }
    }
}
 

TRsRadialExtruder.zip

[Red ochre]

Glad you published! - it makes good jet engine impellers too.

[TechnoRobbo]

Glad you published! - it makes good jet engine impellers too. 

 

I wasn't going to but then while we were working on the knob controls and I did Taylor Swifts legs in a wheel I went, hmmmmm. So I blame Taylor Swift

[nitenurse79]

Thank you Mister Techno Robbo and Miss Taylor Swift for this plugin

 

Starting Pic:

 

End Result:

[TechnoRobbo]

Your welcome Miss Nite Nurse. Nice rendering too.

[DrewDale]

Cool plugin Cheers TR

[TechnoRobbo]

Thanks DD

[ReMake]

Very wonderful effect! Thank You, TR.

[TechnoRobbo]

Thank you ReMake

[Eli]

Very nice TR and thank you.  The picture with Taylors Swift's legs is so impressive that I just had to try it. I could not figure it out at first. Here is my test.

 

 

 

PS: I still owe you my nebula tutorial. I have been very busy but I have not forgotten it.

Edited May 6, 2015 by Eli

[mottoman]

Interesting plugin TR. Thank you for your work.

Here is my first try.

[TechnoRobbo]

Very cool motto

[ReMake]

Eli & mottoman, very interesting work.

 

TR, I wish You continued success in creating such wonderful effects! I hope the interest in this effect will not fade for a long time.

[Forever Angel]

I'm not new to paint.net but I am new to the webpage, and I have to say your effects are the bomb!

[TechnoRobbo]

Thanks!!!! I'm glad you like 'em FA.

 

Here's the whole lot of then http://forums.getpaint.net/index.php?/topic/26725-technorobbos-plugin-pak-feb11th-2014/?p=393689

[Pixey]

Ohhhh - this is so cool @TR - you are brilliant ........ thank you so much for this .

 

Some wonderful examples guys and gals .

 

 

 

[Seerose]

Techno Robbo! Thank you for the plugin and for your effort, and thanks even T.S. legs. 

 

 

*Even snapped in Berlin, Victory Column.

http://en.wikipedia.org/wiki/Berlin_Victory_Column

 

 

[TechnoRobbo]

Thanks Pixey. Thanks Seerose. Some really fine artwork ladies.
 

[sashwilko]

Sweet plugin, nice examples here.  Thanks TR.
 

Here's a shield of sorts.

[TechnoRobbo]

Nice Sash,

Very moody very impressive. And I see your a Doe Deere fan.

[TechnoRobbo]

Version 1.1 ready for downlaod

 

Version 1.1 includes Extend to Border feature.

(Special thanks to Red Ochre for the idea)

[Seerose]

@Techno Robbo! Thank you for the new version. 

[TechnoRobbo]

Your welcome Seerose.

[Eli]

I just had to do this;

Thank You!

[ReMake]

Very funny! Thank You, Eli.