FAMOS_MerryChristmas.seq
;*******************************************************************
; Feliz Navidad
;*******************************************************************
; Te deseamos una Feliz Navidad
; y
; un feliz año nuevo
;
; imc Prueba & Medición
;*******************************************************************
;----------------------------------------------------------------
; 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 )