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

fix draw-polygon' on pairs instead of point%'s

Browse Source 
Closes PR 12455

original commit: 5bfaea25febcc8d50a75861c692aecfc3cb49876
This commit is contained in:
Matthew Flatt 2011-12-23 07:25:59 -06:00
parent bf91136639
commit 0c98aca4c3
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/tests/gracket/draw.rkt
View File

@ -65,11 +65,12 @@
(send f show #t)))
(define star
(list (make-object point% 30 0)
(make-object point% 48 60)
(make-object point% 0 20)
(make-object point% 60 20)
(make-object point% 12 60)))
;; uses pairs instead of point%s
(list (cons 30 0)
(cons 48 60)
(cons 0 20)
(cons 60 20)
(cons 12 60)))
(define octagon
(list (make-object point% 60 60)