Lisp Game Programming <Step5-1>
ゲームのタイトル表示のためのFontを準備
Windows 7のFontを指定して利用
タイトルFontは72、メニューFontは16のサイズで設定
;; step5 <Font>
;; -----------------------------------------------------------------------------------------------
(defparameter *path-font72* "C:\\WINDOWS\\Fonts\\times.ttf")
(defparameter *path-font16* "C:\\WINDOWS\\Fonts\\msmincho.ttc")
(defparameter *font72* (make-instance 'sdl:ttf-font-definition :size 72 :filename (sdl:create-path *path-font72*)))
(defparameter *font16* (make-instance 'sdl:ttf-font-definition :size 16 :filename (sdl:create-path *path-font16*)))
(defvar *title-font*) ; title font
(defvar *menu-font*) ; menu font
(defun Set-font ()
(setf *title-font* (sdl:initialise-font *font72*)
*menu-font* (sdl:initialise-font *font16*)))