Lenguaje simple ¿Cómo hacer que el tablero de dibujo dibuje algo en la imagen?

Escribí un fragmento de código que se puede utilizar para hacer dibujos, mostrar imágenes y borrar imágenes:

.Versión 2

.Assembly Window Assembly 1

. Se hace clic en la subrutina _Botón Mostrar imagen_ 'Mostrar imagen

Panel 1.Imagen base = #Mi imagen

Se hace clic en la subrutina _Botón borrar imagen_ 'Borrar imagen

Panel. 1.Imagen base = { }

.Se hace clic en la subrutina _botón dibujar_ 'Dibujar imagen

.Variable local Número de imagen, entero

Número de imagen = Cargar imagen ( #Mi imagen)

Panel1.Dibujar imagen (Número de imagen, 0, 0, Panel1.Ancho, Panel1.Alto,)

Descargar imagen (Número de imagen)

. Subrutina _button clear_clicked 'Borrar la imagen dibujada

Panel1.clear(, , , )

Donde #MyPicture son los datos de su propia imagen

.