;*******************************************************************
;                    Weihnachten 2019
;*******************************************************************
;             Ich wünsche dir eine Frohe Weihnacht
;                          und
;                einen guten Rutsch ins Jahr 2020
;
;                imc Test & Measurement GmbH
;*******************************************************************

;----------------------------------------------------------------
; const
;----------------------------------------------------------------
;----- View
imc:LineType_No = 0
imc:LineType_line = 1
imc:LineType_Dots = 3
imc:LineType_VertLine = 4
imc:LineType_Bar = 5
imc:LineType_Bar3d = 7
imc:LineType_Interpolation = 8

imc:Symbol_No = 0
imc:Symbol_Square = 1
imc:Symbol_circle = 2
imc:Symbol_Triangles_up = 3
imc:Symbol_Triangles_down = 4
imc:Symbol_diamond = 5
imc:Symbol_Plus = 6
imc:Symbol_x = 7
imc:Symbol_Dot = 8
imc:Symbol_HorizontalLine = 9
imc:Symbol_Triangles_Right = 10
imc:Symbol_Triangles_Left = 11
imc:Symbol_SandGlass = 12
imc:Symbol_SandGlass_1 = 13
imc:Symbol_Diamond_Filled = 14
imc:Symbol_Square_Filled = 5
imc:Symbol_Trinagle_Right_Filled = 16
imc:Symbol_Triangle_Left_Filled = 117
imc:Symbol_Triangle_Up_Filled = 18
imc:Symbol_Triangle_Down_Filles = 19
imc:Symbol_Square_Filled_Up = 20
imc:Symbol_Square_Filled_Down = 21
imc:Symbol_SandGlass_Filled = 22
imc:Symbol_SandGlass1_Filled = 23
imc:Symbol_Minus = 24

;----- color
imcColor:Sky = RGB( 0, 8, 76)
imcColor:Earth = RGB( 0, 74, 192)
imcColor:Snow = RGB( 255,255, 255)
;imcColor:Snow = RGB( 176, 192, 255)
imcColor:Tree = RGB( 0, 0, 255)
imcColor:TreeLigth = RGB( 0, 0, 255)
imcColor:imc = RGB( 218, 0, 70)
imcColor:Star_M = RGB( 175, 192, 255)
imcColor:Star_S = RGB( 175, 255, 255)
imcColor:Nr1 = RGB( 0, 255, 255)
imcColor:Nr2 =RGB( 0, 0, 96)

imcColor:Nr1 = RGB( 0, 255, 255)
imcColor:Nr2 =RGB( 0, 0, 96)

Canvas:x1 = -2
Canvas:x2 =  7
Canvas:y1 =  0
Canvas:y2 = 20
Canvas:Width = Canvas:x2 - Canvas:X1
Canvas:Hight = Canvas:Y2 - Canvas:Y1

;----------------------------------------------------------------
; some Measurement Signals
;----------------------------------------------------------------

;----- Landscape
Winter:Sky     = Rampe( Canvas:x1, 0.01, Canvas:Width*100)*0 + Canvas:Y2
_t = Rampe( Canvas:x1, 0.01, Canvas:Width*100)
_t = _t/max(_t)
_t = _t*-1 +1
_t =_t * 15
Winter:Sky     = _t;
Winter:Sky_Color     = _t;

;----- Nordlichter - oder doch Berge?
_t = Rampe( Canvas:x1, 0.01, Canvas:Width*100)
_t = _t / Max(_t) * 2 * Pi
_t = sin( _t) + _t
_t = _t * 3.5
_t = _t + 4
Winter:Licht1 = _t
_t = Rampe( Canvas:x1, 0.01, Canvas:Width*100)
_t = _t / Max(_t) * 2 *Pi
_t = sin( _t) +1 ; + _t
_t = _t*10
Winter:Licht1_Color = _t

_t = Rampe( Canvas:x1, 0.01, Canvas:Width*100)
_t = _t / Max(_t) * 2 * Pi
_t = sin( _t) + _t
_t = _t * 3.5;2.5
_t = _t + 4
Winter:Licht2 = _t
_t = Rampe( Canvas:x1, 0.01, Canvas:Width*100)
_t = _t / Max(_t) * 2 *Pi -2
_t = sin( _t) +1; + _t
_t = _t*10
Winter:Licht2_Color = _t;Winter:Sky_Color + 10;

_t = Rampe( Canvas:x1, 0.01, Canvas:Width*100)
_t = _t / Max(_t) * 2 * Pi
_t = sin( _t) + _t
_t = _t * 1.5
_t = _t + 4
Winter:Licht3 = _t

;----- Erde/Horizont
_t = Rampe(0, 0.1, Canvas:Width * 10)
_t = 1- _t / max( _t); * 4
Winter:Earth = _t * 4
Winter:Earth_Color= _t*20

_t = Rampe(Canvas:x1, 0.1, Canvas:Width * 10)
Winter:Horizont = _t*0 + 4

;----- Tree
_t = Ramp( 0.1, 0.1, 1000)
_a = _t/max(_t) * 10
_y = sin( _t) + _a
_y = _y + 2

_a = (_t/max(_t)) ^ -0.001 - 1
_a = 10 / max(_a) * _a
_x = cos( _t) * (_a)
_x = _x / 2
_x = _x - min( _x) + 3

Winter:Tree = xyVon( _x, _y)
_t = Rampe( 0, 0.1, 1000)
_t = _t / max(_t)
_t = 1- _t
_t = _t * 15

_t = Rampe( 0, 0.1, 1000)
_t = cos( _t)*15
Winter:Tree_Color = _t

Winter:Star = XYVon( 5.5, 12.8)
Winter:Star1 = XYVon( 5.5, 12.8)

;----- Lichter
_cnt = 20
_x = Rampe( 0, Max( _t) / _cnt, _cnt)
_y = Wert( Winter:Tree.y, _x)
_x = Wert( Winter:Tree.x, _x)
Winter:Dot = xyVon( _x, _y)

;----- Hintergrund
Winter:Back = xyVon( Binde( -5, 10), Binde( 11, 11))

;----- Sterne
_t = random( 150, 1, 0, 0, 0 )*6 + 2
_t = xDel( _t, 0.1)
_t = xOff( _t, -5)
Winter:Stars_S = _t

_t = random( 150, 1, 0, 0, 0 )*6+2;*10 + 2
_t = xDel( _t, 0.1)
_t = xOff( _t, -5)
Winter:Stars_M = _t

;----- Caption
Ein_Frohes_Fest_2019 = Leer

;----------------------------------------------------------------
; color
;----------------------------------------------------------------
SetColor( Winter:Stars_S,        imcColor:Star_S)
SetColor( Winter:Stars_M,        imcColor:Star_M)

SetColor( Winter:Earth,            imcColor:Earth)
SetColor( Winter:Horizont,        imccolor:imc)
SetColor( Winter:Sky,            imccolor:sky)
SetColor( Winter:Licht2,        imccolor:sky)
SetColor( Winter:Licht3,        imccolor:sky)
;SetColor( Winter:StarLite,        imccolor:imc)

SetColor( Winter:Star,        imccolor:imc)
SetColor( Winter:Star1,        imccolor:imc)

;----------------------------------------------------------------
; Painting
;----------------------------------------------------------------

;----- Vordergrund

WinterTime = empty
CwNewWindow( WinterTime, "show")

CwDisplaySet("legend.display",2)        ; Legende.Off

CwDisplaySet("color palette", 1)        ; Farbpalette.On
CwDisplaySet("3D.represent", 2);
CwDisplaySet("3D.color pattern", 1)        ; 2 Farben
CwDisplaySet("3d.colors.number", 100)
CwDisplaySet("3D.color.fix1", imcColor:Nr1)
CwDisplaySet("3d.color.fix2", imcColor:Nr2)
CwSelectByIndex("z-axis", 1)

CwAxisSet( "Range", 4)    ; fester Range
CwAxisSet( "min", -5)        ; 0..6
CwAxisSet( "max", 15)
CwSelectByIndex("y-axis", 1)
CwAxisSet( "Range", 4)    ; fester Range
CwAxisSet( "min", 0)        ; 0..6
CwAxisSet( "max", 22)
CwSelectByIndex("x-axis", 1)
CwAxisSet( "Range", 4)    ; fester Range
CwAxisSet( "min", -2)        ; 0..6
CwAxisSet( "max", 7)

CwDisplaySet("win.dx", 800)
CwDisplaySet("win.dy", 500)
CwDisplaySet("win.x", 0)
CwDisplaySet("win.y", 0)

;----- Messdaten - die Basis
CwNewChannel( "first line", Winter:Sky)
CwNewChannel( "append line", Winter:Sky_Color)
CwNewChannel( "first line", Winter:Stars_S)
CwNewChannel( "first line", Winter:Stars_M)
CwNewChannel( "first line", Winter:Licht1)
CwNewChannel( "append line", Winter:Licht1_Color)
CwNewChannel( "first line", Winter:Licht2)
CwNewChannel( "append line", Winter:Licht2_Color)
CwNewChannel( "first line", Winter:Licht3)
CwNewChannel( "first line", Winter:Earth)
CwNewChannel( "append line", Winter:Earth_Color)
CwNewChannel( "first line", Winter:Horizont)
CwNewChannel( "first line", Winter:Tree)
CwNewChannel( "append line", Winter:Tree_Color)    ; Color
CwNewChannel( "first line", Winter:Star)
CwNewChannel( "first line", Winter:Star1)
CwNewChannel( "first line", Ein_Frohes_Fest_2019)

;----- Landscape
CwSelectByChannel("line", Winter:Sky)
CwLineSet( "type", imc:LineType_no)
CwLineSet( "symbol", imc:Symbol_HorizontalLine)
CwLineSet( "symbolsize.screen", 1.5)
CwLineSet( "Width.screen", 6)
CwSelectByChannel("data", Winter:Sky_Color)            ; Select Channel
CwDataSet( "function", 1)                                    ; Channel = Farbe

CwSelectByChannel("line", Winter:Stars_S)
CwLineSet( "type", imc:LineType_No)
CwLineSet( "symbol", imc:Symbol_Dot)
CwLineSet( "symbolsize.screen", 1)

CwSelectByChannel("line", Winter:Stars_M)
CwLineSet( "type", imc:LineType_No)
CwLineSet( "symbol", imc:Symbol_Dot)
CwLineSet( "symbolsize.screen", 1.5)

CwSelectByChannel("line", Winter:Licht1)
CwLineSet( "type", imc:LineType_Bar)
CwLineSet( "Width.screen", 6)
CwSelectByChannel("data", Winter:Licht1_Color)        ; Select Channel
CwDataSet( "function", 1)                                    ; Channel = Farbe

CwSelectByChannel("line", Winter:Licht2)
CwLineSet( "type", imc:LineType_Bar)
CwLineSet( "Width.screen", 6)
CwSelectByChannel("data", Winter:Licht2_Color)            ; Select Channel
CwDataSet( "function", 1)                                    ; Channel = Farbe

CwSelectByChannel("line", Winter:Licht3)
CwLineSet( "type", imc:LineType_Bar)
CwLineSet( "Width.screen", 6)

CwSelectByChannel("line", Winter:Earth)
CwLineSet( "type", imc:LineType_No)
CwLineSet( "symbol", imc:Symbol_HorizontalLine); hooriz. linie
CwLineSet( "Width.screen", -1)

CwSelectByChannel("data", Winter:Earth_Color)            ; Select Channel
CwDataSet( "function", 1)    

CwSelectByChannel("line", Winter:Horizont)
CwLineSet( "Width.screen", 1.5)

CwSelectByChannel("line", Winter:Tree)
CwLineSet( "Width.screen", 1)
CwLineSet( "symbol", imc:Symbol_Dot)

CwSelectByChannel("data", Winter:Tree_Color)    ; Select Channel
CwDataSet( "function", 1)                                    ; Channel = Farbe

CwSelectByChannel("line", Winter:Star)
CwLineSet( "Width.screen", 1)
CwLineSet( "symbol", imc:Symbol_Plus)
CwLineSet( "symbolsize.screen", 5)

CwSelectByChannel("line", Winter:Star1)
CwLineSet( "Width.screen", 1)
CwLineSet( "symbol", imc:Symbol_x)
CwLineSet( "symbolsize.screen", 4)

;----- Canvas ausschneidenn
CwSelectByIndex("y-axis", 1)
CwAxisSet( "Range", 4)    ; fester Range
CwAxisSet( "min", Canvas:Y1)        ; 0..6
CwAxisSet( "max", Canvas:Y2)
CwSelectByIndex("x-axis", 1)
CwAxisSet( "Range", 4)    ; fester Range
CwAxisSet( "min", Canvas:X1)        ; 0..6
CwAxisSet( "max", Canvas:X2)

;----------------------------------------------------------------
; color
;----------------------------------------------------------------
SetColor( Winter:Stars_S,        imcColor:Star_S)
SetColor( Winter:Stars_M,        imcColor:Star_M)

SetColor( Winter:Earth,            imcColor:Earth)
SetColor( Winter:Horizont,        imccolor:imc)
SetColor( Winter:Sky,            imccolor:sky)
SetColor( Winter:Licht2,        imccolor:sky)
SetColor( Winter:Licht3,        imccolor:sky)
;SetColor( Winter:StarLite,        imccolor:imc)

SetColor( Winter:Star,        imccolor:imc)
SetColor( Winter:Star1,        imccolor:imc)

;----------------------------------------------------------------
; Clean up
;----------------------------------------------------------------
Del _*

;----------------------------------------------------------------
; Animation
;----------------------------------------------------------------
While 1
    Winter:Licht2_Color=Winter:Licht2_Color-2
    Winter:Tree_Color=Winter:Tree_Color-1
    Winter:Licht2_Color=Winter:Licht2_Color-2
    Winter:Tree_Color=Winter:Tree_Color-1
    Winter:Licht2_Color=Winter:Licht2_Color-2
    Winter:Tree_Color=Winter:Tree_Color-1
    Winter:Licht2_Color=Winter:Licht2_Color-2
    Winter:Tree_Color=Winter:Tree_Color-1
    Winter:Licht2_Color=Winter:Licht2_Color-2
    Winter:Tree_Color=Winter:Tree_Color-1
    
    Winter:Licht2_Color=Winter:Licht2_Color+2
    Winter:Tree_Color=Winter:Tree_Color+1
    Winter:Licht2_Color=Winter:Licht2_Color+2
    Winter:Tree_Color=Winter:Tree_Color+1
    Winter:Licht2_Color=Winter:Licht2_Color+2
    Winter:Tree_Color=Winter:Tree_Color+1
    Winter:Licht2_Color=Winter:Licht2_Color+2
    Winter:Tree_Color=Winter:Tree_Color+1
    Winter:Licht2_Color=Winter:Licht2_Color+2
    Winter:Tree_Color=Winter:Tree_Color+1
End