SinCos patterns

If you have a design you're proud of, share the cfdg file here. It's also a good place to ask for feedback and collaborate.

Moderators: MtnViewJohn, chris, mtnviewmark

Post Reply
barcud
Posts: 8
Joined: Wed Oct 30, 2013 9:44 am

SinCos patterns

Post by barcud »

Code: Select all

startshape main[r  0]

CF::MinimumSize = 0.1
CF::Symmetry = CF::Cyclic,11,0.1,0.25

LMax = 1900
rot=0.6

wid = 2
hei = 1

shape main{
    loop MyX = -0,LMax,1 [ ] {
            MyFrame (MyX)[s (0.1 * (LMax - MyX)/800) 
                                        x  (cos(MyX/4) * 1-MyX/LMax) 
                                        y  (sin(MyX) * 1-MyX/LMax) 
                                        z MyX  
                                        r (MyX/rot)]
    }
}      

shape MyFrame(which){
     if(mod(which,2) ==0){
        SQUARE[s (1+0.25*sin(which)*wid) hei sat 1 b 0]
        SQUARE[s (1+0.25*sin(which)*(wid-0.003)) (hei-0.003) 
                        h (140 - which/3)  
                        sat 0.8
                        b (1.5+ 0.75*cos(which*22))  
                        r -0.25]  
    }else{
        SQUARE[s (1+0.25*sin(which)*wid) hei sat 1 b 0]
        SQUARE[s (1+0.25*sin(which)*(wid-0.007)) (hei-0.007) 
                            h (30 - which*2)  
                            sat 1 
                            b (1+ 0.25*cos(which*3)) 
                            r 1.25]
    }
}
Attachments
SinCosPattern_4d_1000.jpg
SinCosPattern_4d_1000.jpg (234.27 KiB) Viewed 817 times

barcud
Posts: 8
Joined: Wed Oct 30, 2013 9:44 am

Re: SinCos patterns

Post by barcud »

Code: Select all

startshape main[r  20]

CF::MinimumSize = 0.1
CF::Symmetry = CF::Cyclic,6,0.1,-0.1

LMax = 1400
rot=1

wid = 2
hei = 4

shape main{
    loop MyX = -600,LMax,0.25 [ ] {
            MyFrame (MyX)[s (0.05 * (LMax - MyX)/400) 
                                        x  (cos(MyX)*cos(MyX/4) * 1-MyX/LMax) 
                                        y  (sin(MyX)*cos(MyX/3) * 1-MyX/LMax) 
                                        z MyX  
                                        r (MyX/rot)]
    }
}      

shape MyFrame(which){
     if(mod(which,2) ==0){
        SQUARE[s (1+0.25*sin(which)*wid) hei sat 0 b 1]
    }else{
        SQUARE[s (1+0.25*sin(which)*wid) hei sat 1 b 0]
        SQUARE[s (1+0.25*sin(which)*(wid-0.005)) (hei-0.005) 
                            h (30 - which*2)  
                            sat 0.8 
                            b (1+ 0.25*cos(which*3)) 
                            r  if(which<400,1,-1)]
        }
}
Attachments
SinCosPattern_4e_1000.jpg
SinCosPattern_4e_1000.jpg (190.33 KiB) Viewed 814 times

barcud
Posts: 8
Joined: Wed Oct 30, 2013 9:44 am

Re: SinCos patterns

Post by barcud »

Code: Select all

startshape main[r  20]

CF::MinimumSize = 0.1
CF::Symmetry = CF::Cyclic,6,0.1,-0.1

LMax = 3400
rot=1

wid = 2
hei = 4

shape main{
    loop MyX = -600,LMax,0.25 [ ] {
            MyFrame (MyX)[s (0.05 * (LMax - MyX)/400) 
                                        x  (cos(MyX)*cos(MyX/4) * 1-MyX/LMax) 
                                        y  (sin(MyX)*cos(MyX/3) * 1-MyX/LMax) 
                                        z MyX  
                                        r (MyX/rot)]
    }
}      

shape MyFrame(which){
     if(mod(which,2) ==0){
        SQUARE[s (1+0.25*sin(which)*wid) hei sat 0 b 1]
    }else{
        SQUARE[s (1+0.25*sin(which)*wid) hei sat 1 b 0]
        SQUARE[s (1+0.25*sin(which)*(wid-0.005)) (hei-0.005) 
                            h (30 - which*2)  
                            sat 0.8 
                            b (1+ 0.25*cos(which*3)) 
                            r  if(which<1400,1,-1)]
        }
}
Attachments
SinCosPattern_4e1_1000.jpg
SinCosPattern_4e1_1000.jpg (193.71 KiB) Viewed 814 times

barcud
Posts: 8
Joined: Wed Oct 30, 2013 9:44 am

Re: SinCos patterns

Post by barcud »

Code: Select all

startshape main[r  90]

CF::MinimumSize = 0.1
CF::Symmetry = CF::Cyclic,9,0.1,0.1

LMax = 5500
rot=1.4

wid = 2
hei = 4

shape main{
    loop MyX = -LMax/2,LMax,5 [ ] {
            MyFrame (MyX)[s (0.025 * (LMax - MyX)/800) 
                                        x  (cos(MyX/5)*cos(MyX/7) * 1-MyX/LMax*2) 
                                        y  (sin(MyX/7)*cos(MyX/13) * 1-MyX/LMax/2) 
                                        z MyX  
                                        r (MyX/rot)]
    }
}      

shape MyFrame(which){
        SQUARE[s (1+0.25*sin(which)*wid) hei sat 0 b 0]
        SQUARE[s (1+0.25*sin(which)*(wid-0.2)) hei 
                            h (120 - which/6)  
                            sat 1
                            b (1.5+ cos(which)) 
                            r  0.25]
}
Attachments
SinCosPattern_4f_1000.jpg
SinCosPattern_4f_1000.jpg (137.84 KiB) Viewed 813 times

barcud
Posts: 8
Joined: Wed Oct 30, 2013 9:44 am

Re: SinCos patterns

Post by barcud »

Removed the symmetry and replaced it by a rotate loop so I can change the hue in the loop

Code: Select all

startshape main

CF::MinimumSize = 0.1

LMax = 29000
rot=2.7

wid = 2
hei = 6

allrot=9

shape main{
    loop MyCol = 0,allrot,1[x -0.8 y -0.1 r (360/allrot) h (360/(allrot))]{
        loop MyX = 18000,LMax,7 [ ] {
            MyFrame (MyX)[s (0.025 * (LMax - MyX)/800) 
                                        x  (cos(MyX/15)*cos(MyX/7) * 1-MyX/LMax*2) 
                                        y  (sin(MyX/7)*cos(MyX/13) * 1-MyX/LMax/2) 
                                        z MyX  
                                        r (MyX/rot)]
        }
    }   
}      

shape MyFrame(which){
        SQUARE[s (1+0.25*sin(which)*wid) hei sat 0 b 0]
        SQUARE[s (1+0.25*sin(which)*(wid-0.2)) hei 
                            h (which/10)  
                            sat (0.9+0.3*sin(which/4))
                            b (1.5+ cos(which/3)) 
                            r  (1+0.5*sin(which*3))]
}
Attachments
SinCosPattern_4h.jpg
SinCosPattern_4h.jpg (190.32 KiB) Viewed 809 times

Post Reply