imc FAMOS X-MAS animation

Animation 2020

Ce graphique saisonnier a été dessiné avec imc FAMOS.

 

 

Download the sequence

La séquence imc FAMOS utilisée pour créer l'animation peut être téléchargée via le bouton suivant.

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)

imc Test & Measurement is an Axiometrix Solutions company.

Top