【作業十】UNA

以我的英文名字UNA為發想
只運用U、N、A三個字母設計

load dbnletters.dbn
size 200 300
fast
paper 100


number keycheck
{
set keyvalue 0
repeat a 1 26
{
same? 100
{
set keyvalue a
}
}
value (keyvalue)
}

set k 0
forever
{


pen (/2) (/2)


set k

letter k ((/12)*12+2) ((/12)*12+2)

notsmaller? k 26
{
set k 0
}
}

【作業九】針筒

乍看像條碼 仔細看會發現其實是針筒
以最近的疫苗事件去發想創作的

size 200 400
paper 100
fast
command rect x y w h c
{
pen x (y/4)
repeat w (-w) w
{

line (x+w/10) (y-h*2) (x+w/2) (y+h*1)
}
}
forever
{

same? 100

{
rect 5 10
}
}