CoMmAnD-格子花紋

有圖有真相

_____________________________________________________________________________________

城市馬

size 184 400
paper 50 10 45
fast
command square x y s c
{
pen ((s*x)+10) (x/2) c
line x y x c
line x (y+(50*s)) x (c+(50*s))
}

repeat a 0 400
{
pen 100
line 0 a 10 a
line 13 a 33 a
line 36 a 56 a
line 59 a 79 a
line 82 a 102 a
line 105 a 125 a
line 128 a 148 a
line 151 a 171 a
line 174 a 194 a
}

repeat g 105 125
{
repeat e 59 79
{
repeat z 1 7
{
square g 5 z 30
square e 5 z 30
}
}
}

repeat d 36 56
{
repeat h 128 148
{
repeat z 1 7
{
square d 10 z 35
square h 10 z 35
}
}
}

repeat c 13 33
{
repeat i 151 171
{
repeat z 1 7
{
square c 15 z 40
square i 15 z 40
}
}
}

repeat j 174 184
{
repeat b 0 10
{
repeat z 1 7
{
square j 20 z 45
square b 20 z 45
}
}
}

repeat f 82 102
{
repeat z 1 7
{
square f 2 z 27
}
}
____________________________________________________________________________________

配色二

參考－歐普藝術

三原型－仿歐普藝術

有圖有真相



利用黑白的強烈對比，造成視覺上的錯視；我想應該有沾到邊吧 :( _____________________________________________________________________________________

程式碼

size 280 300

Load dbngraphics.dbn

set c 50

repeat a 140 0
{
pen 100
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 275
{

pen 100
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 10
{
pen 0
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 265
{

pen 0
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 20
{
pen 100
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 255
{

pen 100
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 30
{
pen 0
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 245
{
pen 0
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 40
{
pen 100
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 235
{
pen 100
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 50
{
pen 0
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 225
{
pen 0
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 60
{
pen 100
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 215
{
pen 100
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 70
{
pen 0
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 205
{
pen 0
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 80
{
pen 100
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 195
{
pen 100
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 90
{
pen 0
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 185
{
pen 0
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 100
{
pen 100
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 175
{
pen 100
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 110
{
pen 0
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 165
{
pen 0
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 120
{
pen 100
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 155
{
pen 100
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}

repeat a 140 130
{
pen 0
triangle (c*2) (c*2) (C*2+40) a (c*3+25) (c*2)
triangle (c*2) (c*2) a (C*2+40) (c*2) (c*3+25)
rectangle (C*2) (C*3+25) (C*3+25) (C*2)
}

repeat b 140 145
{
pen 0
triangle (c*2) (c*3+25) (C*2+40) b (c*3+25) (c*3+25)
triangle (c*3+25) (c*2) b (C*2+40) (c*3+25) (c*3+25)

}



_____________________________________________________________________________________

WoRk2-Pattern

有圖有真相


基於都要唬爛一段，我也不免俗的來一下 → 俯衝而下的鳳凰

_____________________________________________________________________________________


程式碼



size 200 200
Repeat A 0 50

{
REPEAT B 0 50
{
pen 90

Line 50 50 (A*4) (B*4)

Line (B*4) (A*4) 50 50
}

}


_____________________________________________________________________________________