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)
);