Seitenkopf





Digita-Script

digita - Script zur Unterstützung beim Abfotografieren von Dias

Kleiner Fuchs (von einem älteren Dia aus meiner fotografischen Anfangszeit kopiert)
Kleiner Fuchs (von einem älteren Dia aus meiner fotografischen Anfangszeit kopiert)

Digita-Script zur Unterstützung beim Abfotografieren von Dias mit meinem hier vorgestellten Vorsatz

Ablauf des Scripts:

  • Es werden ein paar Grundeinstellungen getroffen (müßt ihr eventuell bei euch anpassen - z.B. den Weißabgleich)
  • Dannach läuft es ein paar EV-Werte durch und macht dazu Bilder, so dass man aus den Bildern sich dann das dem Dia am Besten entsprechende Bild aussuchen kann.
  • Dannach kann das nächste Dia abgelichtet werden (Schleife).

Die Bilderserien werde in Ordnern DIA1, DIA2 ... abgelegt.

Achtung!
nach dem Auslösen vergeht etwas Zeit und das Scharfstellen passiert erst nach dem Auslösen!

Der Bereich für die EV-Werte kann bei der HP 618 zwischen -300 und +300 liegen. Nach meiner Erfahrung lohnt es sich den Bereich -200 bis 0 etwas dichter abzuarbeiten. Darüber macht es kaum Sinn.

bei Bedarf die Parameter anpassen:

Startwert evstart = -200
Endwert evende = 1
Schrittweite evstep = 50


Klar enthält das Script Fehler und ich übernehme in diesem Zusammenhang keinerlei Verantwortung, aber wer es trotzdem mal ausprobieren will ...

Ich rate dringend zu Verwendung des Netzteils und empfehle das Script nicht anders als über die vorgesehenen Wege zu verlassen. Leider ist die Software der HP nicht ganz fehlerresistent. Deshalb der Hinweis - wenn ein Script sich selbständig macht, dann Batterien raus und die Kamera damit zurücksetzen!


Wenn mir die Bugs irgendwann zu sehr auf den Nerv gehen, werde ich mich darum kümmern.


## Kleines Diascript
##
## Thomas Kaessner
## thomas(at)gelbfilter(dot)de

menu "Aufnahme-Einst."
label "Dia-Copy"
name "Dia-Copy"
mode 0


declare i:ev,bild,evstart,evende,evstep
declare i:status
declare s:ordner,subord,aktord

evstart = -200
evende = 1
evstep = 50

DisplayLine("DiaScript")
SetCameraState ("smod", 3)
# Blitz aus
SetCameraState ("zpos", 300)
# Zoom auf voll
SetCameraState ("aagc", 100)
# ISO 100
SetCameraState ("xmtd",3)
# Belichtungsmessung centerweighted
SetCameraState ("xmod",3)
# BlendenPriorität
SetCameraState ("aper",800)
# Blende 8 - hoffentlich
SetCameraState ("mcro",2)
# Set to Macromode
SetCameraState ("wmod",3)
# Weissabgleichmode 1=auto, 3= tageslicht

bild=1
DisplayLine ("Kamera fotografiert Dia")
DisplayLine ("mit verschieden EV-Werten")
DisplayLine ("Zeit zwischen Aufnahmen 10s")
Wait(2000)

ordner="DIA"
XLOOP:
ev=evstart
SetCameraState ("xcmp", ev)
SetCaptureMode (group)
aktord=ordner+subord
NumberToString(bild, subord)
status = WaitForShutter ( "Dia einlegen und auslösen.")


StartCapture (aktord, 1, 1)
bild=bild+1
LOOP:
status = 0
SetCameraState ("xcmp", ev)

DisplayLine("letzter EV-Wert: ",ev)
StartCapture ()
Wait (10000)
ev =ev +evstep
if ev < evende

goto LOOP
end

EndCapture()
DisplayLine("fertig")
goto XLOOP
exitscript
#EOF



Ansicht beim Ablauf des Scripts

1. Auswahl im Kameramenu
2. Anzeige Info-Text
3. Vor dem ersten Bild
4. Während dem Kopieren
5. Nach dem Bild - vor dem nächsten Bild



Downloads zu diesem Artikel
dia.csm (1.4 KByte)


geschrieben / geändert am : 20.10.2004