David Fanning schrieb:
> Folks,
>
> I have an IDL startup file on my LINUX machine. The first
> line in the file is this:
>
> DEVICE, RETAIN=2, TRUE_COLOR=1, SET_CHARACTER_SIZE=[9,12]
>
> When I start up IDL 7.0.1 in the IDL Workbench this file
> is executed (there is a print statement at the end of the file
> to let me know it executed). And, indeed, graphics windows are
> retained, etc. *But* when I issue a plot command, I still have tiny
> fonts. At some random time during the day (I have no idea when),
> something in IDL "wakes up" and all of my graphics from then on
> contain the larger font I specified in my startup file. This
> can take an hour, sometimes I don't notice the larger fonts
> until after lunch.
>
> If I have small fonts and I .reset my IDL session,
> I re-run my startup file, and I still have small fonts.
> If I have larger fonts and I .reset my IDL session,
> I continue to have larger fonts.
>
> Does anyone have the faintest idea what might be going
> on here?
>
> Cheers,
>
> David
Hi David
http://www.fz-juelich.de/icg/icg-1/idl_icglib/idl_source/idl .all
we never have had that problem.
I am not sure what rerun means. But it sounds a bit you don't have an
important env var.
export IDL_STARTUP=/pwd/your_startup.pro
We do use the same startup for all of our platforms.
pick up the pieces.
cheers
Reimar
if float(!version.release) ge 6.0 then path_cache,/clear,enable=0
var=getenv('IDL_PRECOMPILED')
if strpos(var,'1') gt -1 then DEFSYSV, '!icg', $
CREATE_STRUCT(NAME='!ICG', 'USER', '', 'HOST', '', 'IDL_SOURCE', '',
'IDLDE', '', 'SEP', '' $
, 'A', ['/idl_work/aaa', '/idl_lib/aaa'
,'/idl_precompiled','/idl_links','/idl_work', '/idl_lib',
'/idl_experiment', '/idl_model','/easy/program/idl', '/idl
_obsolete'] )
if strpos(var,'1') eq -1 then DEFSYSV, '!icg', $
CREATE_STRUCT(NAME='!ICG', 'USER', '', 'HOST', '', 'IDL_SOURCE', '',
'IDLDE', '', 'SEP', '' $
, 'A', ['/idl_work/aaa', '/idl_lib/aaa'
,'/idl_links','/idl_work', '/idl_lib', '/idl_experiment',
'/idl_model','/easy/program/idl', '/idl_obsolete'] )
delvar,var
; seperator definition
IF !version.os_family EQ 'unix' THEN !icg.sep =':'
IF !version.os_family EQ 'Windows' THEN !icg.sep =';'
; host and user
IF !version.os_family EQ 'unix' THEN BEGIN & SPAWN,'whoami', b &
!icg.user = b & ENDIF
IF !version.os_family EQ 'unix' THEN BEGIN & SPAWN,'hostname', b &
!icg.host = b & ENDIF
IF !version.os_family EQ 'Windows' THEN !icg.user = GETENV('username')
IF !version.os_family EQ 'Windows' THEN !icg.host = GETENV('computername')
!icg.user=STRLOWCASE(!icg.user)
!icg.host=STRLOWCASE(!icg.host)
IDL_SMTP_SRV=GETENV('IDL_SMTP_SRV')
; idl source
!icg.idl_source=GETENV('IDL_SOURCE')
IF !icg.idl_source EQ '' THEN PRINT,'DEFINE IDL_SOURCE ENVIRONMENT
VARIABLE, STANDARD PARAMETERS WILL BE USED'
IF !version.os_family EQ 'unix' AND !icg.idl_source EQ '' THEN
!icg.idl_source ='/usr/local/icg/icg/idl_source'
IF !version.os_family EQ 'Windows' AND !icg.idl_source EQ '' THEN
!icg.idl_source='S:\links\idl_source'
;IF !version.os_family EQ 'unix' AND STRMID(!icg.host,0,3) EQ 'icg'
THEN !icg.idl_source ='/usr/local/icg/icg/idl_source'
;
;IF !version.os_family EQ 'unix' AND STRMID(!icg.host,0,3) EQ 'aix'
THEN !icg.idl_source ='/usr/local/nfs/ich227.icg/icg/idl_source'
;IF !version.os_family EQ 'unix' AND STRMID(!icg.host,0,3) EQ 'zam'
THEN !icg.idl_source ='/usr/local/nfs/idl_source'
;IF !version.os_family EQ 'Windows' THEN
!icg.idl_source=GETENV('IDL_SOURCE')
;IF !icg.idl_source EQ '' THEN !icg.idl_source='S:\links\idl_source'
; idlde
IF !version.os_family EQ 'Windows' THEN !icg.idlde=GETENV('IDLDE')
IF !icg.idlde EQ '' THEN !icg.idlde=!dir
; grafics
IF !version.os_family EQ 'Windows' then DEVICE, DECOMPOSED=0
;2001-05-10 herausgenommen
;if strlowcase(!version.os) eq 'linux' then device,decomposed=0
;if strlowcase(!version.os) eq 'linux' then
window,0,xsize=20,ysize=20,color=256
;if strlowcase(!version.os) eq 'linux' then wdelete,0
if strlowcase(!version.os) eq 'linux' then device, get_visual_depth=depth
if strlowcase(!version.os) eq 'linux' then device, true_color=depth
if strlowcase(!version.os) eq 'linux' then window, /free, /pixmap,
colors=-10
if strlowcase(!version.os) eq 'linux' then wdelete, !d.window
;if strlowcase(!version.os) eq 'linux' then device,bypass_translation=0
; bug in idl5.5 keine gute Loesung
if strlowcase(!version.os) eq 'linux' then device, decomposed=0, retain=2
delvar,depth
;2001-05-10 Aenderung abgeschlossen
!p.background=255
!p.color=0
iF !version.os_family EQ 'unix' then device, pseudo_color = 8
IF !version.os_family EQ 'unix' THEN device, retain = 2
; expand path
!icg.a = !icg.idl_source + !icg.a
IF !version.os_family EQ 'unix' AND STRMID(!icg.host,0,3) EQ 'ich' THEN
b='+/usr/local/idl/idl/lib'
IF !version.os_family EQ 'unix' AND STRMID(!icg.host,0,3) EQ 'icg' THEN
b='+/usr/local/idl/idl/lib'
IF !version.os_family EQ 'unix' AND STRMID(!icg.host,0,3) EQ 'aix' THEN
b='+/usr/local/idl/idl/lib'
IF !version.os_family EQ 'unix' AND STRMID(!icg.host,0,3) EQ 'zam' THEN
b='+/usr/local/idl/idl/lib'
IF !version.os_family EQ 'Windows' THEN b=!icg.idlde+'/lib'
; add the icg1 lib for all ICG-1 users
IF !version.os_family EQ 'unix' AND strpos(!icg.user,'icg1') gt -1 then $
b = b + !icg.sep+ '+/usr/local/icg/icg1/idl'
IF !version.os_family EQ 'Windows' AND strpos(!icg.user,'icg1') gt -1 then $
b = b + !icg.sep+ '+S:/links/icg1/idl'
; loop thru all path items
FOR i=0, N_ELEMENTS(!icg.a)-1 DO b=b+!icg.sep+'+'+!icg.a[i]
; expand the path
b = EXPAND_PATH(b)
; Add to existing path
!path = !path+!icg.sep+b
; get rid of used variables
DELVAR, b, i
;default widget font
;IF !VERSION.OS_FAMILY eq 'unix' then
widget_control,default_font='-adobe-helvetica-medium-r-norma l--12-*-*-*-*-60-*-*'
if strlowcase(!version.os) eq 'linux' then
widget_control,default_font='-adobe-helvetica-medium-r-norma l--12-*-*-*-*-60-*-*'
IF !VERSION.OS_FAMILY eq 'Windows' then
widget_control,default_font='HELVETICA*VARIABLE*14'
; print an informational message
PRINT, 'Your !PATH settings have be modified by idl.all (Wed Oct 6
14:12:45 2004)'
PRINT, '-----'
PRINT, 'Welcome '+!icg.user+'@'+!icg.host+' to IDL Version: ' +
!version.release+' !'
PRINT, 'Current time: '+SYSTIME()
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
