[langband-cvs] CVS: langband base.lisp,1.173.2.7,1.173.2.8 global.lisp,1.323.2.10,1.323.2.11 util.lisp,1.123.2.27,1.123.2.28

[Stig E S. <st...@us...>]

Update of /cvsroot/langband/langband
In directory sc8-pr-cvs1:/tmp/cvs-serv32375

Modified Files:
      Tag: v017_loop_experiment_2
	base.lisp global.lisp util.lisp 
Log Message:
adding idx values

Index: base.lisp
===================================================================
RCS file: /cvsroot/langband/langband/base.lisp,v
retrieving revision 1.173.2.7
retrieving revision 1.173.2.8
diff -C2 -d -r1.173.2.7 -r1.173.2.8
*** base.lisp	23 Sep 2003 14:40:41 -0000	1.173.2.7
--- base.lisp	23 Sep 2003 15:08:17 -0000	1.173.2.8
***************
*** 577,584 ****
  
  (declaim (inline idx-paint-value))
! (defun idx-paint-value (idx colour)
    (logior +lbbf-idx+
  	  (dpb idx (byte 8 2) 0)
! 	  (dpb colour (byte 8 10) 0)
  	  ))
  
--- 577,584 ----
  
  (declaim (inline idx-paint-value))
! (defun idx-paint-value (attr idx)
    (logior +lbbf-idx+
  	  (dpb idx (byte 8 2) 0)
! 	  (dpb attr (byte 8 10) 0)
  	  ))
  

Index: global.lisp
===================================================================
RCS file: /cvsroot/langband/langband/global.lisp,v
retrieving revision 1.323.2.10
retrieving revision 1.323.2.11
diff -C2 -d -r1.323.2.10 -r1.323.2.11
*** global.lisp	23 Sep 2003 13:01:35 -0000	1.323.2.10
--- global.lisp	23 Sep 2003 15:08:17 -0000	1.323.2.11
***************
*** 2094,2097 ****
--- 2094,2106 ----
    (setf (gethash id *defsettings*) value))
  
+ (defun idx-value (idx)
+   "Returns value stored in an index on the C-side."
+   (org.langband.ffi:c-get-idx-value idx))
+ 
+ (defun (setf idx-value) (value idx)
+   "Returns value stored in an index on the C-side."
+   (org.langband.ffi:c-set-idx-value idx value))
+ 
+ 
  ;;; === Deprecated functions
  

Index: util.lisp
===================================================================
RCS file: /cvsroot/langband/langband/util.lisp,v
retrieving revision 1.123.2.27
retrieving revision 1.123.2.28
diff -C2 -d -r1.123.2.27 -r1.123.2.28
*** util.lisp	23 Sep 2003 13:01:35 -0000	1.123.2.27
--- util.lisp	23 Sep 2003 15:08:17 -0000	1.123.2.28
***************
*** 884,891 ****
    (declare (ignorable player))
    (when (is-frame-shown? variant +buttons-frame+)
      (let ((win (get-window +buttons-frame+))
  	  (row 0))
!       (setf (window-coord win +effect+ 0 row) (text-paint-value +term-white+ (+ #.(char-code #\a) 20)))
!       (setf (window-coord win +foreground+ 0 row) 0) ;;(tile-paint-value 10 10))
        (refresh-window win)
      )))
--- 884,893 ----
    (declare (ignorable player))
    (when (is-frame-shown? variant +buttons-frame+)
+     (setf (idx-value 0) 66)
      (let ((win (get-window +buttons-frame+))
  	  (row 0))
!       ;;(setf (window-coord win +effect+ 0 row) (text-paint-value +term-white+ (+ #.(char-code #\a) 20)))
!       (setf (window-coord win +foreground+ 0 row) (idx-paint-value +term-white+ 0))
!       ;;(setf (window-coord win +foreground+ 0 row) 0) ;;(tile-paint-value 10 10))
        (refresh-window win)
      )))