#########################################################################
##                                                                     ##
##  I N T E R S T E L L A R   C O N S O L E                            ##
##            Copyright (C) 2025- Misato Observatory, Wakayama, Japan  ##
##                                                                     ##
##  This software is available under the GPL (General Public License)  ##
##                                                                     ##
#########################################################################

####################################################################
##                                                                ##
##                           S P L A S H                          ##
##                                                                ##
####################################################################

image create photo splashim -file splash.gif

label .lbl -image splashim -borderwidth 0

wm overrideredirect . 1
wm attributes . -topmost yes

pack .lbl

set splash_width [winfo reqwidth .lbl]
set splash_height [winfo reqheight .lbl]

# for debug
#set buffer_codefield $splash_height

#set pos_x [ expr {( [winfo vrootwidth  .] - $splash_width ) / 2 } ]
#set pos_y [ expr {( [winfo vrootheight .] - $splash_height ) / 2 } ]
set pos_x [ expr {( [winfo screenwidth  .] - $splash_width ) / 2 } ]
set pos_y [ expr {( [winfo screenheight .] - $splash_height ) / 2 } ]
wm geometry . +$pos_x+$pos_y

#######################################################################

#
# Close Splash
#

after 4000 exit

