load dbnletters.dbn
size 200 200
fast
paper 10
number keycheck
{
set keyvalue 0
repeat a 1 26
{
same?
{
set keyvalue a
}
}
value (keyvalue)
}
set k 0
forever
{
pen
set k
letter k ((
notsmaller? k 26
{
set k 0
}
}
size 400 200
paper 100
set rseed
set bb (198621+
set mm (98621 +
number random n
{
set bl (rseed*bb+1)
set rseed (bl%mm)
value (rseed%n)
}
forever
{
fast
notsame?
{
repeat s 1 10
{
set
set
pause 1
}
repeat r 0 9
{
set h
repeat g 0 h
{
pen (100-(10*r))
line (
}
}
set j
same? (j%3) 1
{
repeat k 0 400
{
pen 100
line k j k (j*9/8)
}
}
}
}
設計理念:主題為抗爭,因為我使用X形的圖案,製作成一個拒馬,搭配鮮紅色的使用,
意境類似染血的拒馬,好像是在抗爭什麼,為這社會的正義不公抱屈!
程式碼:
size 400 400
paper 100
fast
command rect a b c d e
{
pen
line (a-b/2) (c-d/2) (e+a/2) (b-c/2)
line (a+b/2) (c-d/2) (e+a/2) (b+c/2)
line (a+b/2) (c+d/2) (e-a/2) (b+c/2)
line (a-b/2) (c+d/2) (e-a/2) (b-c/2)
}
forever
{
same?
{
rect
}
}