[gsharp-cvs] CVS gsharp

rstrandh rstrandh at common-lisp.net
Tue Jun 6 20:47:42 UTC 2006

Update of /project/gsharp/cvsroot/gsharp
In directory clnet:/tmp/cvs-serv5042

Modified Files:
Log Message:
Removed useless code related to the old font-rendering system.

--- /project/gsharp/cvsroot/gsharp/score-pane.lisp	2006/06/05 00:53:41	1.29
+++ /project/gsharp/cvsroot/gsharp/score-pane.lisp	2006/06/06 20:47:42	1.30
@@ -3,8 +3,7 @@
 (defclass score-view (view) ())  
 (defclass score-pane (esa-pane-mixin application-pane)
-  ((pixmaps :initform (make-hash-table :test #'eq) :reader pane-pixmaps)
-   (darker-gray-progressions :initform (make-array 10 :initial-element nil :adjustable t)
+  ((darker-gray-progressions :initform (make-array 10 :initial-element nil :adjustable t)
 			     :reader darker-gray-progressions)
    (lighter-gray-progressions :initform (make-array 10 :initial-element nil :adjustable t)
 			      :reader lighter-gray-progressions)))
@@ -26,23 +25,6 @@
 	(setf (aref result i) (make-gray-color (/ i 16)))
 	finally (return result)))
-;;; Given a pane and a matrix representing a glyph in a font, return a server-side
-;;; pixmap that corresponds to that matrix for that pane.  Create pixmaps
-;;; on demand to avoid initial delays and too many pixmaps in the server.
-;;; The elements of the matrix are integers from 0 to 16 inclusive, representing how
-;;; many pixels are white in a 4x4 grid.
-(defun pane-pixmap (pane matrix)
-  (or (gethash matrix (pane-pixmaps pane))
-      (let* ((dimensions (array-dimensions matrix))
-	     (height (car dimensions))
-	     (width (cadr dimensions))
-	     (pixmap (with-output-to-pixmap (medium pane :height height :width width)
-		       (loop for r from 0 below height do
-			     (loop for c from 0 below width do
-				   (draw-point* medium c r
-						:ink (aref *gray-levels*
-							   (aref matrix r c))))))))
-	(setf (gethash matrix (pane-pixmaps pane)) pixmap))))

More information about the Gsharp-cvs mailing list