Skip to content

Commit 63848da

Browse files
committed
fix erroneous conversion to monochrome bitmaps
1 parent d95d4a5 commit 63848da

File tree

2 files changed

+2
-4
lines changed

2 files changed

+2
-4
lines changed

plot-lib/plot/private/no-gui/plot2d.rkt

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -104,8 +104,7 @@
104104
#:aspect-ratio [aspect-ratio (plot-aspect-ratio)]
105105
#:legend-anchor [legend-anchor (plot-legend-anchor)])
106106
(define bm : (Instance (Class #:implements Bitmap% #:implements Plot-Metrics<%>))
107-
(make-object (plot-metrics-mixin bitmap%)
108-
(λ () pm) width height #t 1.0))
107+
(make-object (plot-metrics-mixin bitmap%) (λ () pm) width height))
109108
(define dc : (Instance DC<%>) (make-object bitmap-dc% bm))
110109
(define pm : (Instance Plot-Metrics<%>)
111110
(plot/dc renderer-tree dc 0 0 width height

plot-lib/plot/private/no-gui/plot3d.rkt

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -135,8 +135,7 @@
135135
#:aspect-ratio [aspect-ratio (plot-aspect-ratio)]
136136
#:legend-anchor [legend-anchor (plot-legend-anchor)])
137137
(define bm : (Instance (Class #:implements Bitmap% #:implements Plot-Metrics<%>))
138-
(make-object (plot-metrics-mixin (class bitmap% (super-new)))
139-
(λ () pm) width height #t 1.0))
138+
(make-object (plot-metrics-mixin (class bitmap% (super-new))) (λ () pm) width height))
140139
(define dc : (Instance DC<%>) (make-object bitmap-dc% bm))
141140
(define pm : (Instance Plot-Metrics<%>)
142141
(plot3d/dc renderer-tree dc 0 0 width height

0 commit comments

Comments
 (0)