作業十

主題:DNA


說明:以X這個字母的連接 呈現出類似DNA的圖像


截圖:




影片:


程式碼:


load dbnletters.dbn

size 250 150 2
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
}
}