Is there a bug with drawing text to images in B+?

; -----------------------------------------------------------------------------------------------------------------------------------
; This function draws rotated text at the specified location on the screen. 
; It works exactly like the text command.  
; The text is drawn in the current drawing color.
;
; The only limitation is that black text will not work with this function. 
; If you need black text, use Color 1,1,1 instead.
;
; This function disables TFormFilter.  You will need to renenable TformFilter after calling this function if you need it enabled.
; -----------------------------------------------------------------------------------------------------------------------------------
Function RotatedText(StringToOutput$, X, Y, Center_X=False, Center_Y=False, Angle)

	Local OldBuffer
	Local TempImage
	
	; Store the currently active drawing buffer.
		OldBuffer = GraphicsBuffer()

	; Create an image to hold the text we want to rotate.					
		TempImage = CreateImage(128, 128) ; StringWidth(StringToOutput$), StringHeight(StringToOutput$))
	
	; Set the drawing buffer to that of the image we want to put the text on.			
		SetBuffer ImageBuffer(TempImage)
	
	; Draw the text to the temporary image.
		Text 0, 0, Ev$
	
	; Rotate the image.  This changes the size of the image.			
;		TFormFilter False
;		RotateImage TempImage, Angle
		
	; Fix the image mask.
;		MaskImage TempImage, 0, 0, 0
		
	; Draw the rotated image at the specified location on the screen.	
		
		SetBuffer OldBuffer
		
;		If Center_X Then X = X - ImageWidth(TempImage)/2
;		If Center_Y Then Y = Y - ImageHeight(TempImage)/2
		
		DrawImage TempImage, X, Y
		
	; Clean up.
		FreeImage TempImage

End Function

; -----------------------------------------------------------------------------------------------------------------------------------
; This function draws rotated text at the specified location on the screen.  It works exactly like the text command.  
; The text is drawn in the current drawing color.
;
; Because the function uses masked images to draw the text, black text will not work with this function. 
; If you need black text, use Color 1,1,1 instead.

; Parameters:
; Angle is the angle to draw the text at.  0 = Unrotated, 90 = 90 degrees clockwise rotation.
; If you set masked to FALSE, them the text will be drawn with a solid black baground behind it.
; Border allows you to make the black background a few pixels larger than the text when drawing text which is not masked.
;
; Keep in mind that when you rotate the text, the location you specify will be the top left corner of the first letter.
; If you rotate the text by 90 degrees, and then print it at (0,0) the text will be drawn off the screen.
;
; This function disables TFormFilter.  You will need to renenable TformFilter after calling this function if you need it enabled.
; -----------------------------------------------------------------------------------------------------------------------------------
Function RotatedText(Font, StringToOutput$, X, Y, Center_X=False, Center_Y=False, Angle, Masked=True, Border=0)

	Local OldBuffer
	Local TempImage
		
	; Store the currently active drawing buffer.
		OldBuffer = GraphicsBuffer()

	; Set the font to draw the text in so that we can find out how big an image we need for our string.
		SetFont Font 

	; Create an image to hold the text we want to rotate.					
		TempImage = CreateImage(StringWidth(StringToOutput$), StringHeight(StringToOutput$))
	
	; Set the drawing buffer to that of the image we want to put the text on.			
		SetBuffer ImageBuffer(TempImage)

	; Set the font to draw the text in AGAIN, because we have to set the font for each buffer we want to draw to.
		SetFont Font 
	
	; Draw the text to the temporary image.
		Text 0, 0, StringToOutput$
	
	; Rotate the image.  This changes the size of the image.			
		TFormFilter False
		RotateImage TempImage, Angle
	
	; Draw the rotated image at the specified location on the screen.	
		
		SetBuffer OldBuffer
		
		If Center_X Then X = X - ImageWidth(TempImage)/2
		If Center_Y Then Y = Y - ImageHeight(TempImage)/2

		If Masked 		
			DrawImage TempImage, X, Y
		Else
			DrawBlock TempImage, X, Y
		EndIf
		
	; Clean up.
		FreeImage TempImage

End Function

; -----------------------------------------------------------------------------------------------------------------------------------
; This function draws a rectangle of the specified color using multiply blending to the current buffer.
; -----------------------------------------------------------------------------------------------------------------------------------
Function Draw_Rect(X1, Y1, X2, Y2, ColorR, ColorG, ColorB)

	Local LoopX, LoopY

	DestBuffer = GraphicsBuffer()
	
 
			
	LockBuffer(DestBuffer)
	For LoopY = Y1 To Y2
		For LoopX = X1 To X2

			RGB = ReadPixelFast(LoopX, LoopY, DestBuffer) 
		
			R = (RGB Shr 16) And 255 
			G = (RGB Shr 8 ) And 255
			B = (RGB       ) And 255
			
			R = R * (ColorR / 255.0)
			G = G * (ColorG / 255.0)
			B = B * (ColorB / 255.0)
			
			RGB = (R Shl 16) Or (G Shl 8) Or B
				
			WritePixelFast LoopX, LoopY, RGB, DestBuffer 
		
		Next
	Next
	UnlockBuffer(DestBuffer)

End Function