PasteRack.org
Paste # 64557
2022-07-22 12:34:39

Fork as a new paste.

Paste viewed 1391 times.


Embed:

  1. #lang racket
  2.  
  3. (require 2htdp/image)
  4. (define (pixels img)
  5.     (if (image? img)
  6.         (* (image-width img) (image-height img))
  7.         (error "it's not a image")))
  8. (define my-cir (circle 20 "solid" "purple"))
  9. (define my-rec (rectangle 20 20 "solid" "black"))
  10. my-cir
  11. my-rec
  12. (pixels my-cir)
  13. (pixels my-rec)

=>

image

image

1600

400