为CLISP GDI模块

This modern (=case-sensitive) clisp package module is a interface to gdi, the lowest level ms windows graphics api (Graphics Device Interface). It is a work in progress, and is copyright Dan Stanger 2002 and Reini Urban 2006-2009 It is licensed under the LGPL and all rights are assigned to the Free Software Foundation. Old style: (use-package "GDI")(defun f () (let* ((hdc (multiple-value-bind (retval h) (GDI::GetDC nil) (if retval h (error "GetDC ~S" h)))) (sy (multiple-value-bind (retval l) (GDI::GetDeviceCaps hdc GDI::LOGPIXELSY) (if retval l (error "GetDeviceCaps ~S" l)))) (logfont (GDI::make-logfont (- sy) 0 0 0 GDI::FW_BOLD 1 0 0 GDI::ANSI_CHARSET GDI::OUT_TT_PRECIS GDI::CLIP_DEFAULT_PRECIS GDI::PROOF_QUALITY GDI::VARIABLE_PITCH "Times New Roman")) (hfont (multiple-value-bind (retval h)

modules
gdi
document.pl
gdi