A winter wonderland with imc FAMOS

Single images of the sequence

FAMOS_MerryChristmas.seq

 ;*******************************************************************
;                    Merry Christmas
;*******************************************************************
;             We wish you a merry Christmas
;                          and
;                      a happy new year
;
;                  imc Test & Mesurement
;*******************************************************************

;----------------------------------------------------------------
; const
;----------------------------------------------------------------

;----- winter-color
color:sky = RGB( 0, 144, 255)
color:stars = RGB( 255, 255, 255)
color:BigMountain = RGB( 255, 255, 255)
color:Mountain = RGB( 176, 192, 255)
color:SmallMountain = RGB( 0, 96, 192)
color:BackTrees = RGB( 0, 28, 128)
color:FoodHills = RGB( 0, 28, 160)
color:gras = RGB( 0, 80, 128)
color:sea = RGB( 0, 28, 160)
color:waterLine = RGB( 255, 53, 0)
color:snow = RGB( 255, 255, 255)
color:earth = RGB( 0, 76, 43)
color:tree = RGB( 34, 160, 0)
color:treelights = RGB( 255, 0, 0)

;----- View
LineType:Bar = 5
LineType:Dots = 3
LineType:line = 1
LineType:No = 0
LineType:VertLine = 4
LineType:Bar3d = 7
LineType:Interpolation = 8


;----- Summer Color
; try it yourself :-)


;----------------------------------------------------------------
; some Measurement Signals
;----------------------------------------------------------------
base = Rampe(0,0.1,2* pi * 100)

sky       = base * 0 + 6

BigMountain        = Sin( base * 0.2) * 0.8 + 4.0
Mountain            = sin( base * 0.6) * 0.5 + 3.0 + (sin( base * 0.05))*0.8
SmallMountain        = sin( base * 0.3) * 0.5 + 2.2 + (sin( base * 0.05))*0.8
BackTrees             = sin( base * 5.0) * 0.7 + 2.3 + (1-sin( base * 0.05))*0.8
FoodHills            = sin( base * 0.1) * 0.3 + 2.0
Gras                  = sin( base * 6.0) * 0.1 + 1.8 + (1-sin( base * 0.05)) * 0.3
sea                   = base * 0 + 1.6
waterLine            = base * 0 + 1.6
Earth                = sin( base * 11.0) * 0.02 + 0.1 + (1-sin( base * 0.04)) * 1.8

snow  = random( 60, 0, 0, 1, 0 ) *1.3
stars = random( 60, 1, 0, 0, 0 ) + 4

;----- tree
a = Ramp( 0, 0.01, 1000)
a = a/max( a)
b = max( a)-a
a = Binde( a, b)
t = sin( a*3.14*30)*0.1
t = xOff( t, 5)

a=e^a-1
a=e^a-1

tree = a + a*t
tree = xOff( tree, 5)
tree_Line = tree

;----- treeLigths
a = alle0( t)
a = Tast( a, 2)
b = Wert( tree, a)
treelights = XYvon( a, b)

;----------------------------------------------------------------
; color
;----------------------------------------------------------------
SetColor( sky,             color:sky)
SetColor( stars,             Color:Stars)
SetColor( BigMountain,     Color:BigMountain)
SetColor( Mountain,         Color:Mountain)
SetColor( SmallMountain, Color:SmallMountain)
SetColor( BackTrees,     Color:BackTrees)
SetColor( FoodHills,     Color:FoodHills)
SetColor( gras,             Color:gras)
SetColor( sea,             Color:sea)
SetColor( waterLine,     Color:waterLine)
SetColor( snow,             Color:snow)
SetColor( earth,             Color:earth)
SetColor( tree,             Color:tree)
SetColor( treelights,     Color:treelights)

;----------------------------------------------------------------
; Painting
;----------------------------------------------------------------
Merry_Christmas = empty
CwNewWindow( Merry_Christmas, "show")

CwNewChannel( "first line", sky)
CwLineSet( "type", LineType:Bar)

CwAxisSet( "Range", 4)
CwAxisSet( "min", 0)
CwAxisSet( "max", 5)


CwNewChannel( "first line", stars)
CwLineSet( "type", LineType:Dots)

CwNewChannel( "first line", BigMountain)
CwLineSet( "type", LineType:Bar)

CwNewChannel( "first line", Mountain)
CwLineSet( "type", LineType:Bar)

CwNewChannel( "first line", SmallMountain)
CwLineSet( "type", LineType:Bar)

CwNewChannel( "first line", FoodHills)
CwLineSet( "type", LineType:Bar)

CwNewChannel( "first line", BackTrees)
CwLineSet( "type", LineType:Bar)

CwNewChannel( "first line", gras)
CwLineSet( "type", LineType:Bar)

CwNewChannel( "first line", sea)
CwLineSet( "type", LineType:Bar)

CwNewChannel( "first line", WaterLine)

CwNewChannel( "first line", snow)
CwLineSet( "type", LineType:Dots)

CwNewChannel( "first line", earth)
CwLineSet( "type", LineType:Bar)

CwNewChannel( "first line", tree)
CwLineSet( "type", LineType:Bar)

CwNewChannel( "first line", TreeLights)
CwLineSet( "type", LineType:no)
CwLineSet( "symbol", 8)

CwNewChannel( "first line", Merry_Christmas )
Top