Program drops when putting an image in another image

[SMcNeill]

Question:  Is the use of _PUTIMAGE really something required here?

This seems like a much simpler process:

Code: QB64: [Select]

1. Main& = _NEWIMAGE(200, 200, 32)
2. Inner& = _NEWIMAGE(24, 24, 32)
3. SCREEN Main&
4. COLOR _RGBA32(255, 255, 255, 255), _RGBA32(127, 127, 127, 255)
5. DO
6.     CLS
7.     PRINT "Let us make a box."
8.     PRINT "Yes, let us."
9.     Box 100, 100, _RGBA32(0, 0, 255, 255)
10.     BoxInBox 50, 100, _RGBA32(0, 0, 255, 255), _RGBA32(255, 0, 0, 255)
11.     x = x + 1
12.     LOCATE 12, 1
13.     PRINT "Loop: "; x;
14.     _DISPLAY
15.     _LIMIT 2000
16. LOOP UNTIL _KEYDOWN(27)
17. END
18.  
19. SUB Box (x1, y1, kolor AS _UNSIGNED LONG)
20.     LINE (x1, y1)-STEP(24, 24), kolor, BF
21. END SUB
22.  
23. SUB BoxInBox (x1, y1, outerkolor AS _UNSIGNED LONG, innerkolor AS _UNSIGNED LONG)
24.     LINE (x1, y1)-STEP(24, 24), outerkolor, BF
25.     LINE (x1 + 4, y1 + 4)-STEP(15, 15), innerkolor, BF
26. END SUB
27.  

[OldMoses]

Thanks Steve, that's a much more elegant solution than trying to figure out where to free image after the fact.

[OldMoses]

Question:  Is the use of _PUTIMAGE really something required here?

In the main program I was using _PRINTSTRING to place a number in the box, it seemed that using sub images was easier in that instance.