;+
; IDL routine to stuff a Yohkoh logo in the corner of an image
; 

PRO stuff_yo_logo, image, corner

;
; Input:
;	image = byte array to put logo in
;	corner = corner to put it in, 1 - 4, clockwise
;		from upper left
;
; Routines called: yo_logo, wdef, wdelete
;
;
; Written April 29, 1993  Barry LaBonte
;	Fix to use free window  May 28, 1993  BJL
;-


asize = SIZE(image)
nwid = FIX(asize(1))
nht = FIX(asize(2))

; Get a Yohkoh logo and stuff it
WINDOW,/FREE,XSIZE=512,YSIZE=512,/PIXMAP
YO_LOGO
yim = TVRD(414,11,98,51)
WDELETE

IF( corner EQ 1) THEN image(0:97,nht-51:nht-1)=yim
IF( corner EQ 2) THEN image(nwid-98:nwid-1,nht-51:nht-1)=yim
IF( corner EQ 3) THEN image(nwid-98:nwid-1,0:50)=yim
IF( corner EQ 4) THEN image(0:97,0:50)=yim

RETURN
END