Несколько растровых изображений на одном холсте - PullRequest
0 голосов
/ 20 октября 2019

Как я могу нарисовать несколько растровых изображений с помощью ракетки / графического интерфейса и / или ракетки / рисовать на одном и том же холсте, даже на фоне?

Я думаю, может быть, мне нужно нарисовать фон, а затем сделать надписи для содержаниярастровое изображение, но я не знаю.

Вот код для загрузки и рисования только фона.

#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)
...