# Copyright (c) 1999, Eastman Kodak Company
# SpecExp.csm  Version 1.0.0001
#
# This script allows users to select and set various shutter speeds through 
# the "Special Exposure" mode.								
# 
#

name "Special Exposure..."
mode 0
menu "Advanced Exposure Modes"
label "Special Exposure..."

declare	s: sProductName, sShutterSpeed, sFstop
declare i: iErrorCode
declare u: uMainOption, uFirmwareVersion, uFirmwareRequired, uSpeed, uTmp

iErrorCode = 0

# Check for valid camera
GetProductInfo ("ptid", sProductName)
if sProductName != "KODAK DC290 Zoom Digital Camera"
	iErrorCode = 10
	goto Error_Func
end

# Check for valid firm version
# Init 
uFirmwareVersion = 0
uFirmwareRequired = 0x01000300

# Get the right firmware version
GetProductInfo ("fwrv", uFirmwareVersion)
if uFirmwareVersion < uFirmwareRequired
	Alert("Fatal error: Firmware \"Version 1.0.3\" or above required.")
end

#########################################################
#														#
#			     SelectShutterSpeed						#
#														#
#########################################################
Start:

SetTitle("Select Shutter Speed")

SetOption(1, "Cancel", 0)
SetOption(2, "1/2 sec      (F3.0)", 0)
SetOption(3, "1/3 sec      (F3.0)", 0)
SetOption(4, "1/4 sec      (F3.0)", 0)
SetOption(5, "1/6 sec      (F3.0)", 0)
SetOption(6, "1/8 sec      (F3.0)", 0)
SetOption(7, "1/11 sec     (F3.0)", 0)
SetOption(8, "1/15 sec     (F3.0)", 0)
SetOption(9, "1/22 sec     (F3.0)", 0)
SetOption(10, "1/30 sec     (F3.0)", 0)
SetOption(11, "1/45 sec    (F3.0)", 0)
SetOption(12, "1/60 sec    (F3.0)", 0)
SetOption(13, "1/90 sec    (F3.0)", 0)
SetOption(14, "1/120 sec   (F3.0)", 0)
SetOption(15, "1/165 sec   (F3.1)",	0)
SetOption(16, "1/180 sec   (F3.6)", 0)
SetOption(17, "1/190 sec   (F4.0)", 0)
SetOption(18, "1/205 sec   (F4.7)", 0)
SetOption(19, "1/220 sec   (F5.3)", 0)
SetOption(20, "1/240 sec   (F6.1)", 0)
SetOption(21, "1/260 sec   (F7.0)", 0)
SetOption(22, "1/280 sec   (F8.0)", 0)
SetOption(23, "1/300 sec   (F9.2)", 0)
SetOption(24, "1/325 sec   (F10.5)", 0)


GetOption(uMainOption)

if uMainOption == 1
	goto Quit
end

if uMainOption <= 24
	SetTitle ("Set Special Exposure?") 
	SetOption (1, "Yes", 0)
	SetOption (2, "No", 0)
end 

GetOption (uTmp)
if uTmp == 1
	goto DoIt
end

if uTmp == 2
	goto Start
end

DoIt:

if uMainOption == 2
	uSpeed = 500000
	sShutterSpeed = "(1/2 sec)" 
	sFstop = "(F3.0)"
	goto SetShutterSpeed
end 

if uMainOption == 3
	uSpeed = 333333
	sShutterSpeed = "(1/3 sec)" 
	sFstop = "(F3.0)"
	goto SetShutterSpeed
end 
if uMainOption == 4 
	uSpeed = 250000
	sShutterSpeed = "(1/4 sec)" 
	sFstop = "(F3.0)"
	goto SetShutterSpeed
end 

if uMainOption == 5 
	uSpeed = 166667
	sShutterSpeed = "(1/6 sec)"
	sFstop = "(F3.0)"
	goto SetShutterSpeed
end 

if uMainOption == 6 
	uSpeed = 125000
	sShutterSpeed = "(1/8 sec)"
	sFstop = "(F3.0)"
	goto SetShutterSpeed
end 

if uMainOption == 7 
	uSpeed = 90909
	sShutterSpeed = "(1/11 sec)"
	sFstop = "(F3.0)"
	goto SetShutterSpeed
end 

if uMainOption == 8 
	uSpeed = 66667
	sShutterSpeed = "(1/15 sec)"
	sFstop = "(F3.0)"
	goto SetShutterSpeed
end 

if uMainOption == 9 
	uSpeed = 45455
	sShutterSpeed = "(1/22 sec)"
	sFstop = "(F3.0)"
	goto SetShutterSpeed
end 

if uMainOption == 10 
	uSpeed = 33333
	sShutterSpeed = "(1/30 sec)"
	sFstop = "(F3.0)"
	goto SetShutterSpeed
end 

if uMainOption == 11
	uSpeed = 22222
	sShutterSpeed = "(1/45 sec)"
	sFstop = "(F3.0)"
 	goto SetShutterSpeed
end 

if uMainOption == 12 
	uSpeed = 16667
	sShutterSpeed = "(1/60 sec)"
	sFstop = "(F3.0)"
	goto SetShutterSpeed
end 

if uMainOption == 13 
	uSpeed = 11111
	sShutterSpeed = "(1/90 sec)"
	sFstop = "(F3.0)"
	goto SetShutterSpeed
end 

if uMainOption == 14
	uSpeed = 8333
	sShutterSpeed = "(1/120 sec)"
	sFstop = "(F3.0)"
	goto SetShutterSpeed
end 

if uMainOption == 15
	uSpeed = 6061
	sShutterSpeed = "(1/165 sec)"
	sFstop = "(F3.1)"
	goto SetShutterSpeed
end 

if uMainOption == 16 
	uSpeed = 5556
	sShutterSpeed = "(1/180 sec)" 
	sFstop = "(F3.6)"
	goto SetShutterSpeed
end 

if uMainOption == 17
	uSpeed = 5263
	sShutterSpeed = "(1/190 sec)" 
	sFstop = "(F4.0)"
 	goto SetShutterSpeed
end 

if uMainOption == 18
	uSpeed = 4878
	sShutterSpeed = "(1/205 sec)"
	sFstop = "(F4.7)"
 	goto SetShutterSpeed
end 

if uMainOption == 19 
	uSpeed = 4545
	sShutterSpeed = "(1/220 sec)"
	sFstop = "(F5.3)"
	goto SetShutterSpeed
end 

if uMainOption == 20 
	uSpeed = 4167
	sShutterSpeed = "(1/240 sec)" 
	sFstop = "(F6.1)"
	goto SetShutterSpeed
end 

if uMainOption == 21
	uSpeed = 3846
	sShutterSpeed = "(1/260 sec)" 
	sFstop = "(F7.0)"
 	goto SetShutterSpeed
end 

if uMainOption == 22 
	uSpeed = 3571 
	sShutterSpeed = "(1/280 sec)" 
	sFstop = "(F8.0)"
	goto SetShutterSpeed
end 

if uMainOption == 23 
	uSpeed = 3333
	sShutterSpeed = "(1/300 sec") 
	sFstop = "(F9.2)"
	goto SetShutterSpeed
end 

if uMainOption == 24
	uSpeed = 3077
	sShutterSpeed = "(1/325 sec)"
	sFstop = "(F10.5)"
 	goto SetShutterSpeed
end 

SetShutterSpeed:
SetCameraState ("xmod", 2)
SetCameraState ("shut", uSpeed)
DisplayClear ()
#DisplayLine ("uSpeed = ", uSpeed)
DisplayLine ("Shutter Speed will be set to:")
DisplayLine (sShutterSpeed)
DisplayLine ("Aperture = ", sFstop)
Wait (5000)

Error_Func:
if iErrorCode == 10
	DisplayClear ()
	Alert ("Error: camera not supported.")
	goto Quit
end

#########################################################
#														#
#			     Quit									#
#														#
#########################################################

Quit:
exitscript