suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

removed robby-specific references and commented out the line that clobbers heart.png in the collects directory

Browse Source
This commit is contained in:
Robby Findler 2010-06-20 15:28:23 -05:00
parent e15f6a1fb9
commit dd6f73255d
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/icons/private/mkheart.rkt
View File

@ -1,13 +1,11 @@
#lang racket/gui #lang racket/gui
(require mrlib/private/image-core-bitmap) (require mrlib/private/image-core-bitmap)
(define img (make-object bitmap% "/Users/robby/git/plt/collects/icons/plt-logo-red-shiny.png")) (define img (make-object bitmap% (build-path (collection-path "icons") "plt-logo-red-shiny.png")))
;(define img (make-object bitmap% "/Users/robby/git/plt/collects/icons/foot.png"))
(define-values (bmbytes bm-w bm-h) (bitmap->bytes img))
(printf "transforming\n")
(define amount .5) (define amount .5)
(define remove-margin 50) (define remove-margin 50)
(define-values (bmbytes bm-w bm-h) (bitmap->bytes img))
(define-values (left-bytes left-w left-h) (linear-transform bmbytes bm-w bm-h 1 0 (- amount) 1)) (define-values (left-bytes left-w left-h) (linear-transform bmbytes bm-w bm-h 1 0 (- amount) 1))
(define-values (right-bytes right-w right-h) (linear-transform bmbytes bm-w bm-h 1 0 amount 1)) (define-values (right-bytes right-w right-h) (linear-transform bmbytes bm-w bm-h 1 0 amount 1))
(define left-bm (bytes->bitmap left-bytes left-w left-h)) (define left-bm (bytes->bitmap left-bytes left-w left-h))
@ -53,4 +51,5 @@
(send heart-bdc clear) (send heart-bdc clear)
(draw-heart heart-bdc) (draw-heart heart-bdc)
(send heart-bdc set-bitmap #f) (send heart-bdc set-bitmap #f)
(send heart-bm save-file (build-path (collection-path "icons") "heart.png") 'png) ;; uncomment the next line to actually save the icon in the collects dir
;;(send heart-bm save-file (build-path (collection-path "icons") "heart.png") 'png)