test[dji8-ios] A3 Camera

" Accessing the Camera of product "
| product |
product := DJISDKManager product.
product isNil ifTrue: [ ^self abortPage ].
self print: 'Accessing product camera: ' ,product camera.

" Accessing properties... "
| object echo |
object := DJISDKManager product camera.
#(	Mode 
	ShootPhotoMode 
	FileIndexMode 
	VideoResolutionAndFrameRate
	VideoFileFormat 
	VideoStandard 
	VideoCaptionEnabled 
	VideoFileCompressionStandard 
	PhotoAspectRatio 
	PhotoFileFormat 
	PhotoBurstCount 
	PhotoRAWBurstCount 
	PhotoAEBCount 
	ExposureMode 
	ISO 
	ShutterSpeed 
	MeteringMode 
	ExposureCompensation 
	AELock 
	AutoAEUnlockEnabled 
	WhiteBalance
	AntiFlickerFrequency 
	Sharpness 
	Contrast 
	Saturation 
	DigitalFilter 
	PhotoQuickViewDuration 
	DefogEnabled 
	DigitalZoomFactor 
	OpticalZoomFocalLength 
	OpticalZoomFactor 
	TapZoomEnabled 
	TapZoomMultiplier
	HDLiveViewEnabled 
	LEDAutoTurnOffEnabled 
	Orientation 
	AudioRecordingEnabled 
	AudioGain
	TurnOffFanWhenPossible 
	LensInformation 
	Aperture 
	FocusMode 
	FocusTarget 
	FocusRingValueUpperBound 
	FocusRingValue 
	SSDVideoResolutionAndFrameRate
	SSDVideoDigitalFilter 
	SSDVideoLicenses 
	SSDVideoLicense 
	SSDVideoRecordingEnabled 
	ThermalROI 
	ThermalPalette 
	ThermalScene 
	ThermalDDE 
	ThermalACE 
	ThermalSSO 
	ThermalBrightness 
	ThermalContrast 
	ThermalIsothermEnabled 
	ThermalIsothermUnit 
	ThermalIsothermUpperValue 
	ThermalIsothermMiddleValue 
	ThermalIsothermLowerValue 
	ThermalGainMode 
	ThermalMeasurementMode 
	ThermalDigitalZoomFactor 
	ThermalSpotMeteringTargetPoint 
	ThermalMeteringArea
	ThermalFFCMode 
	ThermalCustomExternalSceneSettingsProfile
) do: [:each|
	echo := [:value| self print: '// ',each ,'=',value ].
	object perform: #with ,each ,$: with: echo
].

" Accessing Camera properties "
| value |
value := DJISDKManager product camera.
(value class selectors
  select: [:each| (each startsWith: #is) and: [each argumentCount = 0] ])
  ,#( displayName capabilities mediaManager playbackManager )
  do: [:msg| self print: ' ',msg,'=',(value perform: msg) ].

" Accessing Camera capabilities "
| value |
value := DJISDKManager product camera capabilities.
value isNil ifTrue: [ ^self print: 'Missing value' ].
(value class selectors
  select: [:each| true"(each startsWith: #is)" and: [each argumentCount = 0] ])
  ,#( )
  do: [:msg| self print: ' ',msg,'=',(value perform: msg) ].

" Accessing Camera media manager"
| value |
value := DJISDKManager product camera mediaManager.
value isNil ifTrue: [ ^self print: 'Missing value' ].
(value class selectors
  select: [:each| (each startsWith: #is) and: [each argumentCount = 0] ])
  ,#( )
  do: [:msg| self print: ' ',msg,'=',(value perform: msg) ].