empty what is full

pitfall/pitfall/color.rkt

@@ -24,8 +24,8 @@
                      (hash-set! dictionary 'CA stroke-opacity))
                    (define ref-dict (make-ref dictionary))
                    (ref-end ref-dict)
-                   (set-$doc-opacity-count! doc (add1 ($doc-opacity-count doc)))
-                   (list ref-dict (string->symbol (format "Gs~a" ($doc-opacity-count doc)))))))
+                   (define opacity-index (add1 (length (hash-keys ($doc-opacity-registry doc)))))
+                   (list ref-dict (string->symbol (format "Gs~a" opacity-index))))))
     (hash-set! (page-ext_gstates (page doc)) name dictionary)        
     (add-content doc (format "/~a gs" name))))
 
@@ -103,26 +103,6 @@
                               (if (integer? x) (inexact->exact x) x))]
     [_ #false]))
 
-#;(define (color-mixin [% object%])
-    (class %
-      (super-new)
-      (field [@opacity-registry (make-hash)]
-             [@opacity-count 0]
-             [@grad-count 0]
-             [(@current-fill-color current-fill-color) #false])
-
-    
-    
-      
-
-      
-
-      
-
-      
-    
-      ))
-
 (define named-colors
   (hash "aliceblue" '(240 248 255)
         "antiquewhite" '(250 235 215)

pitfall/pitfall/core.rkt

@@ -10,13 +10,10 @@
               root
               info
               opacity-registry
-              opacity-count
-              grad-count
               current-fill-color
               ctm
               ctm-stack
               font-families
-              font-count
               current-font-size
               current-font
               registered-fonts
@@ -24,8 +21,7 @@
               text-options
               x
               y
-              image-registry
-              image-count) #:transparent #:mutable)
+              image-registry) #:transparent #:mutable)
 
 
 ;; for JPEG and PNG

pitfall/pitfall/document.rkt

@@ -26,13 +26,10 @@
   (for ([(key val) (in-hash (hash-ref options 'info (hasheq)))]) 
     (hash-set! info key val))
   (define opacity-registry (make-hash))
-  (define opacity-count 0)
-  (define grad-count 0)
   (define current-fill-color #false)
   (define ctm default-ctm-value)
   (define ctm-stack null)
   (define font-families (make-hash))
-  (define font-count 0)
   (define current-font-size 12)
   (define current-font #false)
   (define registered-fonts (make-hash))
@@ -41,20 +38,16 @@
   (define x 0)
   (define y 0)
   (define image-registry (make-hash))
-  (define image-count 0)
   (define new-doc ($doc options
                         pages
                         refs
                         'dummy-root-value-that-will-be-replaced-below
                         info
                         opacity-registry
-                        opacity-count
-                        grad-count
                         current-fill-color
                         ctm
                         ctm-stack
                         font-families
-                        font-count
                         current-font-size
                         current-font
                         registered-fonts
@@ -62,8 +55,7 @@
                         text-options
                         x
                         y
-                        image-registry
-                        image-count))
+                        image-registry))
   (set-current-ref-id! 1)
   (register-ref-listener (λ (ref) (store-ref new-doc ref)))
   (set-$doc-root! new-doc (make-ref (mhasheq 'Type 'Catalog
@@ -213,7 +205,7 @@
         (write-bytes-out "xref")
         (write-bytes-out (format "0 ~a" (add1 (length @refs))))
         (write-bytes-out "0000000000 65535 f ")
-        (for ([ref (in-list (reverse @refs))])
+        (for ([ref (in-list @refs)])
           (write-bytes-out
            (string-append (~r ($ref-offset ref) #:min-width 10 #:pad-string "0") " 00000 n ")))
         (write-bytes-out "trailer")

pitfall/pitfall/fonts.rkt

@@ -32,8 +32,8 @@
   (match (hash-ref ($doc-font-families doc) cache-key #f) ; check if the font is already in the PDF
     [(? values val) (set-$doc-current-font! doc val)]
     [_ ; if not, load the font
-     (set-$doc-font-count! doc (add1 ($doc-font-count doc)))
-     (define id (string->symbol (format "F~a" ($doc-font-count doc))))
+     (define font-index (add1 (length (hash-keys ($doc-font-families doc)))))
+     (define id (string->symbol (format "F~a" font-index)))
      (set-$doc-current-font! doc (PDFFont-open src family id))
      ;; check for existing font families with the same name already in the PDF
      (match (hash-ref ($doc-font-families doc) (get-field name ($doc-current-font doc)) #f)

pitfall/pitfall/images.rkt

@@ -104,8 +104,8 @@
       (cond
         [(and (string? src) (hash-ref ($doc-image-registry doc) src #f))]
         [else
-         (set-$doc-image-count! doc (add1 ($doc-image-count doc)))
-         (define image-id (string->symbol (format "I~a" ($doc-image-count doc))))
+         (define image-idx (add1 (length (hash-keys ($doc-image-registry doc)))))
+         (define image-id (string->symbol (format "I~a" image-idx)))
          (define new-image (open-pdf-image src image-id))
          (when (string? src) (hash-set! ($doc-image-registry doc) src new-image))
          new-image]))