如何在同一张画布上甚至在背景上绘制带有球拍/图形用户界面和/或球拍/绘图的几个位图?
我认为也许我需要绘制背景,然后制作标签以包含位图,但我不知道。
这里是加载和绘制背景的代码。
#lang racket/gui
(require racket/draw)
(define frame (new frame%
[label "BlaCEkJack"]
[width 800]
[height 800]
[style (list 'no-resize-border)]))
(define bg (read-bitmap "Fondo.png"))
(define bitmap-canvas%
(class canvas%
(init-field [bitmap #f])
(inherit get-dc)
(define/override (on-paint)
(send (get-dc) draw-bitmap bitmap 0 0))
(super-new)))
(define mycanvas (new bitmap-canvas% [parent frame] [bitmap bg]))
(send frame show #t)