hg.stevelosh.com > antipodes

(in-package :ap.gen)


(define-constant +chunk-size+ (expt 2 8))

(defun make-empty-heightmap ()
  (make-array (list +chunk-size+ +chunk-size+)
    :element-type 'single-float
    :initial-element 0.0))

(defun generate-heightmap ()
  (make-empty-heightmap))
author	Steve Losh <steve@stevelosh.com>
date	Sat, 07 Jan 2017 12:54:06 +0000
parents	34cb41653c41
children	552921869758