17 lines
268 B
Racket
17 lines
268 B
Racket
#lang typed/racket
|
|
|
|
;; Test typed/pict
|
|
|
|
(require typed/pict)
|
|
|
|
(pict-children (blank 50 50))
|
|
(hline 1 5)
|
|
(vline 1 5)
|
|
(frame (circle 5) #:segment 2)
|
|
|
|
(define hl (hline 1 5))
|
|
(define-values (x y) (lt-find hl hl))
|
|
|
|
(standard-fish 40 20 #:direction 'left #:color "olive")
|
|
|