.First <- function()
{
        options(object.size = 1e+21)
        dyn.load.shared("./swave.so")
        source("Crazy_Climbers.S")
        source("Crc_Rec.S")
        source("Cwt_DOG.S")
        source("Cwt_Morlet.S")
        source("Cwt_Squeezing.S")
        source("Cwt_Thierry.S")
        source("Cwt_phase.S")
        source("Gabor.S")
        source("Ingrid.S")
        source("Noise.S")
        source("Ridge_Annealing.S")
        source("Ridge_Icm.S")
        source("Ridge_Recons.S")
        source("Simul.S")
        source("Skernel.S")
        source("Snake_Annealing.S")
        source("TF_Maxima.S")
        source("Util.S")
        source("extrema.S")
        source("gRidge_Recons.S")
        source("svd.S")
        source("mw.S")
        source("mreconst.S")
        source("plot.S")
        cat("Welcome to Swave version 1.0\n")
	trellis.device(motif)
}
