load(draw);

 

:lisp (defun $random-from-range (start end)

	(+ start (random (+ 1 (- end start))))

)

 

(defun $gridfunction() 

	(let (a '())  

		(setq a 

			(list '(MLIST SIMP)

				(list '(MLIST SIMP) ($random-from-range 1 100) ($random-from-range  1 100))

				(list '(MLIST SIMP) ($random-from-range 1 100) ($random-from-range  1 100))

				(list '(MLIST SIMP) ($random-from-range 1 100) ($random-from-range  1 100))

				(list '(MLIST SIMP) ($random-from-range 1 100) ($random-from-range  1 100))

				(list '(MLIST SIMP) ($random-from-range 1 100) ($random-from-range  1 100))

				(list '(MLIST SIMP) ($random-from-range 1 100) ($random-from-range  1 100))

			)

		)

	)

)

 

bs:gridfunction()

 

draw2d(

    xrange = [0,100],

    yrange = [0,100],

    point_size = 0.5,

    point_type = filled_circle,

    points(bs)

);