Skunkware 5/Skunkware 5.iso/lib/logolib/mdarray

Text File | 1995-05-03 | 253 b | 11 lines

to mdarray :sizes [:origin 1]
local "array
make "array (array first :sizes :origin)
if not emptyp bf :sizes ~
   [for [i :origin [:origin + (first :sizes) - 1]] ~
        [setitem :i :array (mdarray bf :sizes :origin)]]
output :array
end

bury "mdarray