[uBasic] HDR-Reihe mit Hyperfokalen Fokus - Update XVI

[bombadil]

Ich setz mich mal ran. Wenn ich die Daten hab und das Skript dann läuft, kannst du es gern für alle anderen rein stellen...

[gehtnix]

Hi bombadil,

schön dass Du Dich daran begibst. Stelle ich dann gerne oben mit ein.

Beizeiten schaust mal hier vorbei und hängst mal was in Deine Signatur.

gruß gehtnix

[Hamster.78]

Hallo,

aufgrund der guten Ergebnisse von [Lua] automatische Belichtungsreihe bei der HDR Erstellung,
wollte ich unbedingt auch für HDR-Hyper mehr Belichtungsstufen hinzufügen. Als Basis habe ich EV_HDR.bas verwendet.

Bezwecken möchte ich mir c EV.Anzahl das man über einen Parameter die Anzahl der Belichtungsreihen anpassen kann.
Ich weis man kann dies auch über das Canon Menü machen, aber ich finde es angenehmer in CHDK zu bleiben

Wenn man l CT auf 0 ändert wird der Customer Timer von Canon verwendet, und mit 1 wird nur ein Einzelbild gemacht.

Code korrigiert 16.11.2009

Syntax: [ Download ] [ Verstecken ]

Syntax: [ Download ] [ Zeigen ]

Benutze uBasic Syntax Highlighting

Zeile: 5

@param l CT 0=ja 1=aus 2=mEV

@default l 2

@param c EV.Anzahl 3,5,7 => 1/2/3

@default c 1



Zeile: 22

if c=1 then H=192

if c=2 then H=96

if c=3 then H=64



Zeile: 80

:shoot

        if l=2 then

                        gosub "serie"

                else

                        sleep u

                        shoot

        endif

        return



Zeile: 256 (hinter :hfrechner)

:serie

        rem 'manueller Focus - 2s Vorlauf

        sleep 2000

        for i=-192 to 192 step H

        set_ev i

        shoot

    next i

    set_ev 0

    return

 

Erstellt in 0.008 Sekunden, mit GeSHi 1.0.8.9

gruß Hamster.78

[gehtnix]

Hi Hamster,

ich kopiere gerade Deinen Zusatz in mein Skript. Da fällt mir Folgendes auf

Deine Zeilen

Syntax: [ Download ] [ Verstecken ]

Syntax: [ Download ] [ Zeigen ]

Benutze uBasic Syntax Highlighting

:shoot

    if l=2 then goto "serie"

    sleep u

    shoot

return

 

Erstellt in 0.004 Sekunden, mit GeSHi 1.0.8.9

Mit goto verschwindet das Skript doch in den Tiefen darunter, wenn da nicht das return von "serie" wäre.

Ich hab das mal mit gosub geändert, dadurch gibt es einen geordneten Rücklauf .

Syntax: [ Download ] [ Verstecken ]

Syntax: [ Download ] [ Zeigen ]

Benutze uBasic Syntax Highlighting

:shoot

    if l=2 then

            gosub "serie"

        else

            sleep u

            shoot

    endif

    return

 

Erstellt in 0.004 Sekunden, mit GeSHi 1.0.8.9

Das set_aflock kann rausgenommen werden. Die Kamera befindet sich ohnehin im manuellen Fokus-Modus.

Gute Ergänzung die funktioniert.

gruß gehtnix

[Hamster.78]

Hallo gehtnix,

vielen Dank für die Korrektur - habe den Code / Beispiel oben angepasst.

Mit goto verschwindet das Skript doch in den Tiefen darunter, wenn da nicht das return von "serie" wäre.

taste mich langsam heran
Klasse das es auch bei Dir funktioniert.

vg Hamster

[gehtnix]

Hi,

die Erweiterung von Hamster habe ich bei allen Kameras eingefügt. Das PDF ist auf neuestem Stand.

Die alten Versionen habe ich gelöscht.

gruß gehtnix

[gehtnix]

Hi,

bei einigen Skripten ist mir ein Kopierfehler unterlaufen. Habe alle Skripte aktualisiert.
Alle die im Skript als Datum den 19.11.09 stehen habe, bitte neu laden.

gruß gehtnix

[oimara]

Servus!

Gibt's das Skript "werte.bas", auf das hier öfters verwiesen wird, auch zum download?

[Hamster.78]

Hi oimara,

habe es noch gefunden.

viel Spaß
Hamster

[oimara]

Danke für das Skript, es ist mir fast schon peinlich, daß ich danach gefragt habe.
Egal, ich hab jetzt die notwendigen Infos für eine Anpassung des Skripts an die SX 200 IS beisammen (ich mußte mir ein kleines Skript basteln, daß den Zoom stufenweise durchschaltet, so sensible Finger hat doch kein Mensch?) und möchte sie euch nicht vorenthalten.

Als Basis hab ich das Skript für die SX 100 verwendet, die Tastenbelegung stimmt und braucht nicht angepaßt zu werden.

Den angehängten Textblock im Skript für die SX 100 austauschen. Fertig.

Gruß
Martin

[gehtnix]

Hi oimara,

das ist ja Super das Du das ergänzt hast.

Jetzt bin ich dabei das Excel-Sheet zu ergänzen. Da fällt mir auf, dass Du hier

Syntax: [ Download ] [ Verstecken ]

Syntax: [ Download ] [ Zeigen ]

Benutze uBasic Syntax Highlighting

    if B<56 then

        select A

            case 7500 to 13800; B=40

            case 14000 to 30200; B=45

            case 30800 to 35900; B=48

            case 36900 to 43200; B=49

            case 44200 to 57900; B=50

            case 58900 to 60000; B=54

        end_select

    endif

 

Erstellt in 0.007 Sekunden, mit GeSHi 1.0.8.9

den Wert 7500 benutzt. Dieser Wert erscheint aber nicht in der oberen Liste. Die 13800 sind aber vorhanden.
In Excel brauche ich aber den passenden Wert. 7600 sind es nehme ich mal an.
Gleiches mit den weiteren Werten. 14000 wohl 14100 usw.?
30700 fällt ganz unter den Tisch!

gruß gehtnix

[oimara]

Servus gehtnix,

ich hab eine aktualisierte Datei angehängt.

Entschuldigung, ich wollte dir keine unnötigen Mühen machen. Ich hab leider eine alte Datei angehängt.
Da ich anfangs die Zoomschritte nicht manuell einzeln durchschalten konnte, hab ich Zwischenwerte exponentiell interpoliert.

Letztlich hab ich dann doch mit Hilfe eines Skripts alle Werte einzeln abgefragt.
Leider hatte ich die Datei nicht korrekt aktualisiert.

Grüße
Martin

[gehtnix]

Hi,

Skript und Schärfentiefe-Rechner stehen jetzt für die SX200 oben zur Verfügung.

gruß gehtnix

[oimara]

Hi,

Skript und Schärfentiefe-Rechner stehen jetzt für die SX200 oben zur Verfügung.

gruß gehtnix

In Zeile 423 ist dir ein Zeilenumbruch abhanden gekommen.
Es steht dort "returnrem ..."

Grüße
Martin

[gehtnix]

In Zeile 423 ist dir ein Zeilenumbruch abhanden gekommen.

Jupp, Danke.

Skript aktualisiert und hochgeladen.

Wichtig! Unter Option>DOF-Rechner sind die richtigen Option anzuwählen.

Canon Motiv-Dist. als Nah-Limit - leer
Benutze EXIF Motiv-Dist. (PC65) - leer
Motiventfernung von Linse - Häkchen

gruß gehtnix