;+ ; NAME : ; VDF_HEIGHT ; PURPOSE: ; Gives the physcal height of default size IDL fonts ; in device units ; CALLING SEQUENCE: ; Height = VDF_HEIGHT(Device_name) ; INPUTS: ; DEVICE_NAME either 'X' or 'PS' ; OUTPUTS: ; Height in device units ; 1000 = 1cm in 'PS' ; 1= 1 pixel in 'X' ; MOdification History ; April 1997 Jongchul Chae ;- function vdf_height, device_name case strupcase(device_name) of 'X' : value = 6.63 'PS' : value=245.0 else : begin print, 'undefined DEVICE name in function VDF_HEIGHT' value=0 end endcase return, value end