Winter_2020.seq
;*******************************************************************
; Weihnachten 2020
;*******************************************************************
; Ich wünsche dir eine Frohe Weihnacht
; und
; einen guten Rutsch ins Jahr 2021
;
; Martina Schneider
;*******************************************************************
;---------------------------------------------------
; Init
;---------------------------------------------------
local _*
_WaitTime = 2
;---------------------------------------------------
; Load
;---------------------------------------------------
_Path = GetOption( "Dir.CurrentSequence")
_FileName = _Path + "\Winter_2020.dat"
FileLoad(_FileName, "", 0)
;---------------------------------------------------
; Show
;---------------------------------------------------
CwLoadCCV( Winter_2020, _Path + "\Winter_2020.ccv")
CwGlobalSet("infront.of.main", 1)
CwDisplaySet("3D.Angle1", 0); ;
CwDisplaySet("3D.Angle2", 0); ; von unten
;---------------------------------------------------
; Rotate
;---------------------------------------------------
; Angle1 = clockwise (90 = from the right)
; Angle2 = backflip (0= from button)
; Angle3 = rotation
;---------------------------------------------------
_Phi = 0
_PhiMax = 90
While _Phi <= _PhiMax
;----- Angle2 = backflip
CwDisplaySet("3D.Angle2", _Phi); ; von unten
;----- next
if (_Phi < 60)
_Phi = _Phi + 5 ; fast
Else
_Phi = _Phi + 1 ; slow
End
Sleep( 0.1)
End
;---------------------------------------------------
; Iso Lines
;---------------------------------------------------
Sleep( _WaitTime)
CwDisplaySet("3D.represent", 2); ; Graduated color transients
CwDisplaySet("3d.colors.number", 10)
CwDisplaySet("3D.isolines", 1) ; Iso Linies On
;-----
Sleep( _WaitTime)
CwDisplaySet("3d.colors.number", 5)