感謝FaceBook的廣告所提供的靈感XDDD

(連擊兩至三次,可全選)
load dbngraphics.dbn
size 300 240
paper 0 50 100
fast
repeat a 1 20
{
set b 1
circle 150 124 (10*a) 0
}
repeat a 0 40
{
pen 0 0 100
line 0 (240-a) 300 (240-a)
line 0 (a) 300 (a)
}
repeat a 0 85
{
triangle (155) 80 (155+a) 150 240 150
}
repeat a 0 105
{
triangle (205+a) 70 300 150 305 70
}
repeat a 0 50
{
line (50+a) 200 (50+a) 150
line (50+a) 40 (50+a) 90
line (260+(a/5)) (70+a) 300 (70+a)
}
repeat a 0 5
{
line (150+a) 0 (150+a) 240
}
在筆記本上無意畫出來的怪畫面,利用線條描繪出來之後
忽然有種摺紙的感覺....
之後再用了漸層上色,愕然的發現,還可以玩了錯視
是哪一個正方形在上?哪一個在下?
看中間兩條線,到底是有平行還是不平行?
很想寫長一點,這樣搭配滑鼠去滾動視窗應該很有趣...
不過程式碼真的是太長了..........想太多還是?
以下是冗長的程式碼..........
(在文字框內空白處,連擊兩到三次(?)可以全選...)

在筆記本上一時的靈感,利用線條構成
以下是長到不行的程式碼
Load dbngraphics.dbn
size 400 500
paper 100
fast
repeat a 0 40
{
repeat b 0 2
{
pen 75
line (200+a*5) ((b*200)+5) (200+a*5) ((b*200)+95)
line (a*5) ((b*200)+105) (a*5) ((b*200)+195)
line 0 ((b*200)+(a/2)*5) (200) ((b*200)+(a/2)*5)
line 200 ((b*200+100)+(a/2)*5) (400) ((b*200+100)+(a/2)*5)
}
}
pen 100
line 300 0 300 500
line 100 0 100 500
//field
//
repeat a 0 4
{
field (60+(a*10)) (490-(a*10)) (100) 450 (30-(a*10))
}
repeat a 0 4
{
field 100 (485-(a*10)) (140-(a*10)) 445 (10+(a*10))
}
repeat a 0 4
{
field (100) (445) (140-(a*10)) (405+(a*10)) (30-(a*10))
}
repeat a 0 4
{
field (60+(a*10)) 450 100 (410+(a*10)) (10+(a*10))
}
//
repeat a 0 4
{
field (50+(a*10)) (400-(a*10)) (100) 350 (50-(a*10))
}
repeat a 0 4
{
field 100 (395-(a*10)) (150-(a*10)) 345 (10+(a*10))
}
repeat a 0 4
{
field (100) (295+(a*10)) (150-(a*10)) (345) (50-(a*15))
}
repeat a 0 4
{
field (50+(a*10)) 350 100 (300+(a*10)) (10+(a*10))
}
//
repeat a 0 5
{
field (40+(a*10)) (280-(a*10)) (100) 220 (70-(a*15))
}
repeat a 0 5
{
field 100 (275-(a*10)) (160-(a*10)) 215 (10+(a*15))
}
repeat a 0 5
{
field (100) (215) (160-(a*10)) (155+(a*10)) (70-(a*15))
}
repeat a 0 5
{
field (40+(a*10)) 220 100 (160+(a*10)) (10+(a*15))
}
//
repeat a 0 6
{
field (30+(a*10)) (150-(a*10)) (100) 80 (90-(a*15))
}
repeat a 0 6
{
field 100 (145-(a*10)) (170-(a*10)) 75 (10+(a*15))
}
repeat a 0 6
{
field (100) (75) (170-(a*10)) (5+(a*10)) (90-(a*15))
}
repeat a 0 6
{
field (30+(a*10)) 80 100 (10+(a*10)) (10+(a*15))
}
//rec
//---------------------left-----------------------------------
//a-01-le
repeat a 0 4
{
pen 100
rectangle (60+(a*10)) (490-(a*10)) (100) 450
}
repeat a 0 4
{
pen 100
rectangle 100 (485-(a*10)) (140-(a*10)) 445
}
//a-02-le
repeat a 0 4
{
pen 100
rectangle (50+(a*10)) (400-(a*10)) (100) 350
}
repeat a 0 4
{
pen 100
rectangle 100 (395-(a*10)) (150-(a*10)) 345
}
//a-03-le
repeat a 0 5
{
pen 100
rectangle (40+(a*10)) (280-(a*10)) (100) 220
}
repeat a 0 5
{
pen 100
rectangle 100 (275-(a*10)) (160-(a*10)) 215
}
//a-04-le
repeat a 0 6
{
pen 100
rectangle (30+(a*10)) (150-(a*10)) (100) 80
}
repeat a 0 6
{
pen 100
rectangle 100 (145-(a*10)) (170-(a*10)) 75
}
//--------------------right----------------------------------------
//a-01-ri
repeat a 0 4
{
pen 100
rectangle (100) (445) (140-(a*10)) (405+(a*10))
}
repeat a 0 4
{
pen 100
rectangle (60+(a*10)) 450 100 (410+(a*10))
}
//a-02-ri
repeat a 0 4
{
pen 100
rectangle (100) (345) (150-(a*10)) (295+(a*10))
}
repeat a 0 4
{
pen 100
rectangle (50+(a*10)) 350 100 (300+(a*10))
}
//a-03-ri
repeat a 0 5
{
pen 100
rectangle (100) (215) (160-(a*10)) (155+(a*10))
}
repeat a 0 5
{
pen 100
rectangle (40+(a*10)) 220 100 (160+(a*10))
}
//a-04-ri
repeat a 0 6
{
pen 100
rectangle (100) (75) (170-(a*10)) (5+(a*10))
}
repeat a 0 6
{
pen 100
rectangle (30+(a*10)) 80 100 (10+(a*10))
}
//---------------------b---------------------------------
//field
//
repeat a 0 6
{
field (230+(a*10)) (420) (300) (350+(a*10)) (90-(a*15))
}
repeat a 0 6
{
field (300) (425) (370-(a*10)) (355+(a*10)) (10+(a*15))
}
repeat a 0 6
{
field (300) (495-(a*10)) (370-(a*10)) (425) (90-(a*15))
}
repeat a 0 6
{
field (230+(a*10)) (490-(a*10)) (300) (420) (10+(a*15))
}
//
repeat a 0 5
{
field (240+(a*10)) (280) (300) (220+(a*10)) (70-(a*15))
}
repeat a 0 5
{
field (240+(a*10)) (340-(a*10)) 300 (280) (10+(a*15))
}
repeat a 0 5
{
field (300) (345-(a*10)) (360-(a*10)) (285) (70-(a*15))
}
repeat a 0 5
{
field (300) (285) (360-(a*10)) (225+(a*10)) (10+(a*15))
}
//
repeat a 0 4
{
field (250+(a*10)) (195-(a*10)) (300) (145) (10+(a*15))
}
repeat a 0 4
{
field (300) (150) (350-(a*10)) (100+(a*10)) (10+(a*15))
}
repeat a 0 4
{
field (300) (200-(a*10)) (350-(a*10)) (150) (50-(a*10))
}
repeat a 0 4
{
field (250+(a*10)) (145) 300 (95+(a*10)) (50-(a*10))
}
//
repeat a 0 4
{
field (260+(a*10)) (85-(a*10)) (300) (45) (10+(a*10))
}
repeat a 0 4
{
field (300) (50) (340-(a*10)) (10+(a*10)) (10+(a*10))
}
repeat a 0 4
{
field (300) (90-(a*10)) (340-(a*10)) (50) (30-(a*10))
}
repeat a 0 4
{
field (260+(a*10)) 45 300 (5+(a*10)) (30-(a*10))
}
//rec
//---------------------left-----------------------------------
//b-01-le
repeat a 0 6
{
pen 100
rectangle (230+(a*10)) (420) (300) (350+(a*10))
}
repeat a 0 6
{
pen 100
rectangle (300) (425) (370-(a*10)) (355+(a*10))
}
//b-02-le
repeat a 0 5
{
pen 100
rectangle (240+(a*10)) (280) (300) (220+(a*10))
}
repeat a 0 5
{
pen 100
rectangle (300) (285) (360-(a*10)) (225+(a*10))
}
//b-03-le
repeat a 0 5
{
pen 100
rectangle (250+(a*10)) (195-(a*10)) (300) (145)
}
repeat a 0 5
{
pen 100
rectangle (300) (150) (350-(a*10)) (100+(a*10))
}
//b-04-le
repeat a 0 4
{
pen 100
rectangle (260+(a*10)) (85-(a*10)) (300) (45)
}
repeat a 0 4
{
pen 100
rectangle (300) (50) (340-(a*10)) (10+(a*10))
}
//--------------------right----------------------------------------
//b-01-ri
repeat a 0 6
{
pen 100
rectangle (300) (495-(a*10)) (370-(a*10)) (425)
}
repeat a 0 6
{
pen 100
rectangle (230+(a*10)) (490-(a*10)) (300) (420)
}
//b-02-ri
repeat a 0 5
{
pen 100
rectangle (300) (345-(a*10)) (360-(a*10)) (285)
}
repeat a 0 5
{
pen 100
rectangle (240+(a*10)) (340-(a*10)) 300 (280)
}
//b-03-ri
repeat a 0 5
{
pen 100
rectangle (300) (200-(a*10)) (350-(a*10)) (150)
}
repeat a 0 5
{
pen 100
rectangle (250+(a*10)) (145) 300 (95+(a*10))
}
//b-04-ri
repeat a 0 4
{
pen 100
rectangle (300) (90-(a*10)) (340-(a*10)) (50)
}
repeat a 0 4
{
pen 100
rectangle (260+(a*10)) 45 300 (5+(a*10))
}
沒有留言:
張貼留言