function cube(x as integer, y as integer, size# as float)
   s# = size#/2
   depth = s#
   box x-s#,y-s#,x+s#,y-s#+1
   box x-s#,y+s#,x+s#,y+s#+1
   box x-s#,y-s#,x-s#+1,y+s#
   box x+s#,y-s#,x+s#+1,y+s#

   line x-s#,y-s#,x,y-s#-depth
   line x+s#,y-s#,x+size#,y-s#-depth
   box x,y-s#-depth,x+size#,(y-s#-depth)+1
   line x+s#,y+s#,x+size#,y+s#-depth
   box x+size#,y-s#-depth,x+size#+1,y+s#-depth
endfunction