The Racket repository
03ff6f3abb
so I refactored it a bit to speed it up by adding a few more unsafes and lifting
computations out of the main loop. It sped up the 'time' in the program below
by slightly less than a factor of 2.
(define w 200)
(define h 200)
(define bm (make-bitmap w h))
(define bdc (make-object bitmap-dc% bm))
(send bdc set-smoothing 'aligned)
(send bdc set-text-foreground (send the-color-database find-color "blue"))
(send bdc draw-text "ab" 0 0)
(define the-bytes (make-bytes (* w h 4)))
(time
(let loop ([n 400])
(unless (zero? n)
(send bm get-argb-pixels 0 0 w h the-bytes)
(loop (- n 1)))))
|
||
|---|---|---|
| collects | ||
| doc | ||
| man/man1 | ||
| src | ||
| .gitattributes | ||
| .gitignore | ||
| .mailmap | ||
| README | ||
The Racket programming language =============================== Important executables: * DrRacket: Racket's integrated development environment (start here!). * Racket: the main command-line entry point for running racket programs and scripts. * GRacket: the GUI-enabled Racket executable. * raco: Racket's command-line toolset. More Information ---------------- Racket comes with extensive documentation: use DrRacket's `Help' menu, or run `raco docs'. Also, visit us at http://racket-lang.org/ for more Racket resources. Instructions for building Racket from source are in src/README. License ------- Racket Copyright (c) 2010 PLT Scheme Inc. Racket is distributed under the GNU Lesser General Public License (LGPL). This means that you can link Racket into proprietary applications, provided you follow the rules stated in the LGPL. You can also modify Racket; if you distribute a modified version, you must distribute it under the terms of the LGPL, which in particular means that you must release the source code for the modified software. See doc/release-notes/COPYING.LIB for more information.