cdr如何画线

在Common Lisp（CDR）中，如果你想要在屏幕上画线，你可以使用图形库或者直接操作窗口系统。以下是一些基本的方法：

使用CLIM图形库

CLIM是Common Lisp中用于图形界面的库。以下是一个简单的例子，展示了如何在CLIM中画线：

```lisp

(defparameter display (open-display :software :display-name "my-display"))

(defun draw-line (start end)

(with-output-to-display display

(draw-line start end)))

(defun main ()

(draw-line (make-point 100 100) (make-point 200 200))

(close-display display))

(main)

```

使用Xlib

如果你在Unix-like系统上，可以使用Xlib库来直接操作X窗口系统。以下是一个简单的例子：

```lisp

(defpackage :xlib-test

(:use :common-lisp :xlib))

(in-package :xlib-test)

(defun main ()

(let ((display (open-display nil nil)))

(let ((screen (screen-display display)))

(let ((root-window (root-window screen)))

(let ((gc (create-gc display root-window)))

(draw-line display root-window gc 100 100 200 200)

(destroy-gc display gc)

(close-display display))))))

(main)

```

请注意，你需要安装并配置好Xlib库才能运行上述代码。

使用其他图形库

还有许多其他的图形库可以用于Common Lisp，例如CLX、CL-Gtk等。具体使用方法取决于你选择的库。

希望这些信息能帮助你！如果你有更具体的需求或者遇到问题，请随时提问。