load dbnletters.dbnsize 200 200fastpaper 100number keycheck{set keyvalue 0repeat a 1 26{ same? 100 { set keyvalue a }}value (keyvalue)}set k 0forever{pen (/2) 0set k letter k ((/12)*12+2) ((/12)*12+2)notsmaller? k 26{ set k 0 }}
沒有留言:
張貼留言