X-MAS Animation mit imc FAMOS

Animation 2020

Diese Weihnachtanimation wurde mit imc FAMOS gezeichnet.

Download der Sequenz

Die für die Erstellung der Animation verwendete imc FAMOS Sequenz können Sie über den folgenden Button herunterladen.

X-MAS-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)

Top