v1.0
Creates and adds a new image clip to the Clips container from an image source. To perform this command you need an
image source in the Sources container. You can create an image source with the AddImageSource
command. This command is similar in syntax and behavior to the SIAddImageClip command, except that
it returns a value from the function call, instead of through a parameter.
Tip: You can also use CreateImageClip as a shortcut to go straight from a filename to a clip
(does the same as a combination of AddImageSource and AddImageClip).
oReturn = AddImageClip( Source, [Name] ); |
Returns the new ImageClip
| Parameter | Type | Description |
|---|---|---|
| Source | String | Source to use to create the clip. |
| Name | String | The name to use for the new clip. |
'------------------------------------------------------------------ ' This example shows how to add an image clip from an image source. '------------------------------------------------------------------ option explicit ' First, add an image source. Dim oSourceObj, ImageFile ImageFile = Application.InstallationPath( siFactoryPath ) & "/Data/XSI_SAMPLES/Pictures/xsilogo.jpg" SIAddImageSource ImageFile, "XSIlogo", oSourceObj ' Now create an image clip from the image source. Dim oClipObj set oClipObj = AddImageClip( oSourceObj, "XSIlogo_Clip" ) ' Now output some information about the clip, and its source. Dim SourceName, SourceFile, XRes, YRes SourceName = GetValue( oClipObj & ".Source.Name" ) logmessage oClipObj & " Source : " & CStr(SourceName) SourceFile = GetValue( oClipObj & ".SourceFileName" ) logmessage oClipObj & " Source File : " & CStr(SourceFile) XRes = GetValue( "Sources." & SourceName & ".XRes" ) logmessage oClipObj & " X Resolution : " & CInt(XRes) YRes = GetValue( "Sources." & SourceName & ".YRes" ) logmessage oClipObj & " Y Resolution : " & CInt(YRes) '--------------------------------------------------------- ' Output from this script: 'INFO : "Clips.XSIlogo_Clip Source : XSIlogo" 'INFO : "Clips.XSIlogo_Clip Source File : <FactoryPath>\Data\XSI_SAMPLES\Pictures\xsilogo.jpg" 'INFO : "Clips.XSIlogo_Clip X Resolution : 500" 'INFO : "Clips.XSIlogo_Clip Y Resolution : 513" '--------------------------------------------------------- |