You are not logged in or registered. Please login or register to use the full functionality of this board...
SIGN IN Join Our Community For FREE


double spiral and gem seven
03-23-2017, 07:58 AM
Post: #1
 (Print Post)
double spiral and gem seven
[Image: LlKekV0.png]

Code Snippet: [Select]
#### license: creative commons cc0 1.0 (public domain)
#### http://creativecommons.org/publicdomain/zero/1.0/
proginf = "doublespiral 2017 mn"
function rgbcolour r g b c
python
    figcgapal[c] = (r, g, b)
    fig
    fig
v 1
c 400
w 3.14159 divby 2
for r 490 300 -.25
    e w minus 0.00413367105263 swap e w # 3.14159 / 4 / (490 - 300)
    for p -3.14159 3.14159 .003067958984375
        e w cos times 380 divby 2 int
        rc r divby 2 int
        rd 256 minus rc rgbcolour rc rc rc 11
        x p times 2 cos times e plus c int
        y p times 2 sin times e plus r minus 50  int
        m 6.28 plus 1.57 divby 108.503 divby 2
        now v plus m swap now v
        rc r divby 4 int mod 2
        iftrue rc
            now v int mod 2 times 11 pset x y now
            y2 y minus 1 pset x y2 now
            fig
        next
    now display
    next
now display lineinput

Code Snippet: [Select]
#### license: creative commons cc0 1.0 (public domain)
#### http://creativecommons.org/publicdomain/zero/1.0/
proginf = "gem seven 2017 mn"
function rgbcolour r g b c
python
    figcgapal[c] = (r, g, b)
    fig
    fig
v 1
c 400
w 3.14159 divby 2
xb
yb
for r 490 300 -.25
    e w minus 0.00413367105263 swap e w # 3.14159 / 4 / (490 - 300)
    for p 0 3.14159 0.44879857142857144 # 3.14159 / 7
        e w cos times 380 divby 2 int
        rc r divby 3 plus 40  int
        rd 256 minus rc rgbcolour rd rc 0 11
        x p times 2 cos times e plus c int
        y p times 2 sin times e plus r minus 50  int
        m 6.28 plus 1.57 divby 108.503 divby 2
        now v plus m swap now v
        rc r divby 4 int mod 2
        iftrue rc
            iftrue xb
                now v int mod 2 times 11 line xb yb x y now
            else    
                now v int mod 2 times 11 pset x y now
                fig
            xb x
            yb y
            fig
        next
    now display
    next
now display lineinput
Find all posts by this user
Like Post
05-17-2017, 02:47 PM
Post: #2
 (Print Post)
RE: double spiral and gem seven
Code Snippet: [Select]
#### license: creative commons cc0 1.0 (public domain)
#### http://creativecommons.org/publicdomain/zero/1.0/
function rgbcolour r g b c
python
    figcgapal[c] = (r, g, b)
    fig
    fig
v 1
c 400
w 3.14159 divby 2
function radians a
    x a times 3.141592653589793 divby 180 return x
    fig
for r 490 110 -.50    
    e w minus 0.00413367105263 swap e w # 3.14159 / 4 / (490 - 300)
    for p 1 360 .5
        e w cos times 380 divby 1 int
        rc r divby 2 int
        rd 256 minus rc rgbcolour rc 0 rc 11
        x p radians x times 2 cos times e plus c int
        y p radians y times 2 sin times e plus r minus 50  int
        m 6.28 plus 1.57 divby 108.503 divby 2
        now v plus m swap now v
        rc r #divby 4 int mod 2
        iftrue rc
            now v times 2 int mod 2 times 11 pset x y now
            y2 y minus 1 pset x y2 now
            fig
        next
    now display
    next
now display lineinput


Attached File(s) Image(s)
   
Find all posts by this user
Like Post
The following 1 user Likes figosdev's post:
bplus
05-17-2017, 04:45 PM
Post: #3
 (Print Post)
RE: double spiral and gem seven
Nice improvements!
Find all posts by this user
Like Post
The following 1 user Likes bplus's post:
figosdev



Forum Jump:


User(s) browsing this thread: 1 Guest(s)




QB64 Member Project - Pivet version one
QB64 Member Project - Qubic
QB64 Member Project - Inside Moves
QB64 Member Project - Martin Fractals version two
QB64 Member Project - Blokus
QB64 Member Project - Input
QB64 Member Project - Red Scrolling LED Sign
QB64 Member Project - Dakapo
QB64 Member Project - OpenGL Triangles
QB64 Member Project - Rotating Background
QB64 Member Project - Touche
QB64 Member Project - Isolation
QB64 Member Project - Score 4
QB64 Member Project - Amazon
QB64 Member Project - Basic Dithering
QB64 Member Project - Line Thickness
QB64 Member Project - Kings Valley verion one
QB64 Member Project - Kobolts Monopoly
QB64 Member Project - Othello
QB64 Member Project - MAPTRIANGLE
QB64 Member Project - Quarto
QB64 Member Project - Exit
QB64 Member Project - Spinning Color Wheel
QB64 Member Project - Foursight
QB64 Member Project - Sabotage
QB64 Member Project - Swirl
QB64 Member Project - Spiro Roses
QB64 Member Project - Martin Fractals version three
QB64 Member Project - Color Triangles
QB64 Member Project - Pivot version two
QB64 Member Project - ARB Checkers
QB64 Member Project - Splatter
QB64 Member Project - Kings Vallery version two
QB64 Member Project - Overboard
QB64 Member Project - Color Rotating Text
QB64 Member Project - 9 Board
QB64 Member Project - Domain
QB64 Member Project - Martin Fractals version four
QB64 Member Project - RGB Color Wheel
QB64 Member Project - Kings Court
QB64 Member Project - Full Color LED Sign
QB64 Member Project - Rubix's Magic
QB64 Member Project - Algeria Weather
QB64 Member Project - Connect Four
QB64 Member Project - Bowditch curve
QB64 Member Project - STxAxTIC 3D World
QB64 Member Project - Point Blank
QB64 Member Project - Dreamy Clock
QB64 Member Project - Martin Fractals version one