imc FAMOS X-MAS animation

Animation 2020

This Seasonal graphic was drawn with imc FAMOS.

 

Download the sequence

 

The imc FAMOS sequence used to create the animation can be downloaded via the following button.

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)

Top