in reply to Reflections on graphic screwing!

There is a question: What is being reflected in the chrome screws?

From a quick overview of the code, it doesn't look like a reflection, but the result of your shading algorithm as it progresses along the y axis: 

            my $color = ( abs( $newPoint->[A] ) * 256 + (100 - $newY) 
+);

[download]

Which seems odd, since the coloring of each point of a turn should be equal for all turns. Or am I missing something?

Try -M=4 -P=1.5 -S=200 -L=10 substituting above line with: 

            my $color = ( abs( $newPoint->[A] ) * 256 );

[download]
perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'

Replies are listed 'Best First'.
Re^2: Reflections on graphic screwing!
by BrowserUk (Patriarch) on Apr 02, 2017 at 19:01 UTC
    From a quick overview of the code, it doesn't look like a reflection, but the result of your shading algorithm as it progresses along the y axis:

    Spot on! Just a pleasing result of a happy accident. I tried something (that couldn't actually work), but the result was the rather pleasing chromium affect complete with semi-random "reflections".

    Which seems odd, since the coloring of each point of a turn should be equal for all turns. Or am I missing something?

    Because the height of the turns is not mod 256, but the colors are, the interaction between the two produces the variability in the "reflections".

    substituting above line with: my $color = ( abs( $newPoint->[A] ) * 256 );

    Spot on again. In my current version of the code, that original line is now coded as these two:

                my $color = abs( $newPoint->[A] ) * 256;
            $R and $color =  ( $color + 100 - $newY ) % 256;

    [download]

    Given /R to turn the "reflections" on or off. I've also added a 'gold plated' option, but that's not particularly successful yet. It is quite difficult to come up with 256 rgb values that form a pleasing spectral continuum from dark to light. The best I've come up with so far is this.

    With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority". The enemy of (IT) success is complexity.
    In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
[d/l]
[select]

In Section Cool Uses for Perl