core.lisp

   1 (in-package :core)
   2
   3 (defparameter *screen-width* 1000)
   4 (defparameter *screen-height* 750)
   5
   6 ;; apply to load and save
   7
   8 (defun main ()
   9   (let ((name (format nil "Ru*** roLeplay Playground v~A" parameters:*rulp-version*)))
  10     (format t "rulp-~A on ~A-~A~%"
  11             parameters:*rulp-version*
  12             parameters:*rulp-system*
  13             parameters:*rulp-arch*)
  14 ;    (graphics:playground *screen-width* *screen-height* name)
  15     (bt:make-thread (lambda () (graphics:playground *screen-width* *screen-height* name)))
  16 ;    (gui:lobby)
  17     )
  18   ;(bt:make-thread (lambda () (lobby:editor-gui))) ;; here bt-thread it is just used for execute ltk without troubles
  19   ;; for now it is disabled
  20 ;  (graphics:add-plane (make-instance 'layers:plane :image (truename "media/board.tga")))
  21
  22 ;  (graphics:add-entity (make-instance 'layers:entity :img-path (truename "media/test.png") :size 1))
  23
  24 ;  (bt:make-thread (lambda () (graphics:playground *screen-width* *screen-height* "Ru*** Lisp Playground")))
  25 )
  26   ;; "Ru■■■ Lisp Playground"