Page **1** of **1**

### SinCos patterns

Posted: **Wed Jul 28, 2021 3:14 am**

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]
}
}
```

### Re: SinCos patterns

Posted: **Wed Jul 28, 2021 5:27 am**

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)]
}
}
```

### Re: SinCos patterns

Posted: **Wed Jul 28, 2021 5:35 am**

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)]
}
}
```

### Re: SinCos patterns

Posted: **Wed Jul 28, 2021 6:37 am**

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]
}
```

### Re: SinCos patterns

Posted: **Wed Jul 28, 2021 12:42 pm**

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))]
}
```