;;; Copyright 2009-2011 Christoph Senjak

(in-package :uxul-world)

(defparameter *cfont* nil)
(defvar *zoomx* 1.0)
(defvar *zoomy* 1.0)
(defvar *offset*)
(defvar *ptr*)

(defun run-testing-room ()
  (start-game :room-function #'make-testing-room))

(defun run-room (item-list)
  (start-game :room-function
	      #'(lambda () (create-room-from-item-list item-list))))

(defun start-game (&key (music nil)
		   (room-function #'make-additional-testing-room)
		   (15-fps nil))
  (declare (ignore music))
  "Start the Game: Call room-function for getting the room-object to
run. Music is ignored so far. 15-fps makes only every second frame be
drawn (for very slow computers)"
;  (sdl:set-video-driver "directx")
     (sdl:with-init (sdl:sdl-init-video) ;sdl:sdl-init-video sdl:sdl-init-audio)
       (sdl:window +screen-width+ +screen-height+
		   :title-caption "Uxul World"
		   :icon-caption "Uxul World"
		   :flags sdl:sdl-opengl
		   ;:opengl T
		   ;:flags (logior sdl:sdl-hw-accel  sdl:sdl-hw-surface)
		   ;:flags (logior sdl:sdl-hw-surface) #| sdl:sdl-fullscreen )|# 
		   )
       (setf cl-opengl-bindings:*gl-get-proc-address*
	     #'sdl-cffi::sdl-gl-get-proc-address)
       ;;(if music (sdl-mixer:OPEN-AUDIO :frequency 44100))

       (gl:hint :perspective-correction-hint :nicest)

       (let ((*graphics-table* (make-hash-table :test #'equal))
	     (*spritesheet-id* (load-spritesheet))
	     (*buffer-id* (car (gl:gen-buffers 1)))
	     (*zoomx* (/ 1.0 +screen-width+))
	     (zoomxi (/ .01 +screen-width+))
	     (*zoomy* (/ 1.0 +screen-height+))
	     (zoomyi (/ .01 +screen-height+)))
	 (if 15-fps
	     (setf (sdl:frame-rate) 15)
	     (setf (sdl:frame-rate) 30))
	 
	 (setf *current-room* (funcall room-function))

	 ;(sdl:clear-display (sdl:color :r 0 :g 0 :b 0));; :update-p nil)

	 ;;(if music (sdl-mixer:play-sample levelmusic))
      
	 (sdl:with-events ()
	   (:quit-event () 
			#|(if music
			(progn (sdl-mixer:halt-music)
			(sdl-mixer:halt-sample :channel t)
			(sdl-mixer:free levelmusic)
			(sdl-mixer:close-audio))
			t
			)|# t)
	   (:key-down-event (:key key)
			    (cond
			      ((sdl:key= key :SDL-KEY-ESCAPE)
			       (sdl:push-quit-event))
			      ((sdl:key= key :SDL-KEY-U)
			       (incf *zoomx* zoomxi)
			       (incf *zoomy* zoomyi))
			      ((sdl:key= key :SDL-KEY-D)
			       (decf *zoomx* zoomxi)
			       (decf *zoomy* zoomyi))
			      (T
			       (on-key-down *current-room* key))))
	   (:mouse-button-down-event
	    (:button btn)
	    (cond
	      ((= btn sdl:mouse-wheel-up)
	       (incf *zoomx* zoomxi) (incf *zoomy* zoomyi))
	      ((= btn sdl:mouse-wheel-down)
	       (decf *zoomx* zoomxi) (decf *zoomy* zoomyi))))
	   (:key-up-event (:key key)
			  (on-key-up *current-room* key))
	   (:idle
	      (invoke *current-room*)
	      (when 15-fps
		(invoke *current-room*))
	      (let ((float-size (cffi:foreign-type-size :float))
		    (obj-num 0))
		(dolist (i (get-objects *current-room*
					'uxul-world::game-object))
		  (and (redraw i) (visible i) (incf obj-num)))

	      (gl:clear :color-buffer-bit :depth-buffer-bit)
	      (gl:enable :texture-2d :blend)
	      (gl:blend-func :src-alpha :one-minus-src-alpha)
	      (gl:load-identity)
	      (gl:bind-buffer :array-buffer *buffer-id*)
	      (%gl:buffer-data :array-buffer
			       (* float-size
				  4 ; vertices per sprite
				  4 ; components per vertice
				  obj-num)
			       (cffi:null-pointer) :stream-draw)
	      (gl:with-mapped-buffer
		  (p :array-buffer :write-only)
		(let ((*ptr* p) (*offset* 0))
		  (draw *current-room*)))
	      (%gl:tex-coord-pointer 2 :float
	      			     (* 4 ; components per vertex
	      				float-size)
	      			     (cffi:null-pointer))
	      (%gl:vertex-pointer 2 :float
	      			  (* 4  ; components per vertex
	      			     (cffi::foreign-type-size :float))
	      			  (cffi:make-pointer (* 2
	      						float-size)))
	      (gl:enable-client-state :texture-coord-array)
	      (gl:enable-client-state :vertex-array)
	      (gl:bind-texture :texture-2d *spritesheet-id*)
	      (%gl:draw-arrays :quads 0 (* 4 obj-num))
	      (gl:disable-client-state :vertex-array)
	      (gl:disable-client-state :texture-coord-array)
	      (gl:flush)
	      (gl:bind-buffer :array-buffer 0)
	      (sdl:update-display)))))))



;; ;; For Debugging

;; (defun preview-animation (frameskip &rest images)

;;      (sdl:with-init (sdl:sdl-init-video sdl:sdl-init-audio)
;;        (sdl:window +screen-width+ +screen-height+
;; 		   :title-caption "Uxul World"
;; 		   :icon-caption "Uxul World"
;; 		   :flags (logior sdl:sdl-hw-accel)
;; 		   #| :flags (logior sdl:sdl-hw-surface sdl:sdl-fullscreen )|#  )
;;        (let ((*graphics-table*
;; 	      #-ecl (trivial-garbage:make-weak-hash-table
;; 		     :weakness :value
;; 		     :test #'equal)
;; 	      #+ecl (make-hash-table :test #'equal)
;; 	      )
;; 	     (my-anim (apply #'make-animation frameskip images))
;; 	     )
	 
;; 	 (setf (sdl:frame-rate) 30)
;; 	 (sdl:clear-display (sdl:color :r 64 :g 64 :b 46));; :update-p nil)
      
;; 	 (sdl:with-events ()
;; 	   (:quit-event () t)
;; 	   (:key-down-event (:key key)
;; 			    (cond
;; 			      ((sdl:key= key :SDL-KEY-ESCAPE)
;; 			       (sdl:push-quit-event))))
;; 	   (:idle
;; 	    (progn
;; 	      (sdl:clear-display (sdl:color :r 64 :g 64 :b 46));; :update-p nil)


;; 	      (draw my-anim)
	      
;; 	      (sdl:update-display)
;; 	 ))))))