#!/bin/perl $COLUMNS=9; $ISO=7; @ISOS= qw( 25 50 100 200 400 800 1600 3200 ); @SSPEEDS= ( "1/4000", "1/2000", "1/1000", "1/500", "1/250", "1/125", "1/60", "1/30", "1/15", "1/8", "1/4", "1/2", "1 sec", "2 sec", "4 sec", "8 sec", "15 sec", "30 sec", "1 min", "2 min", "4 min", "8 min", "15 min", "30 min" ); @FSTOPS= qw( 1 1.4 2 2.8 4 5.6 8 11 16 22 32 44 64 88 128 176 256 ); print "\n"; print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; $iso=0; $fn=1; for ($i=$iso; $i<$ISO; $i++) { print " \n"; print " \n"; print " \n"; for ($f=0; $f<$COLUMNS; $f++) { print " \n"; } print " \n"; } print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; for ($Q=8; $Q>=-11; $Q--) { if ($Q==8) { print " \n"; print " \n"; print " \n"; } elsif ($Q==7) { print " \n"; print " \n"; print " \n"; } elsif ($Q==6) { print " \n"; print " \n"; print " \n"; } elsif ($Q==5) { print " \n"; print " \n"; print " \n"; } elsif ($Q==4) { print " \n"; print " \n"; print " \n"; } elsif ($Q==-3) { print " \n"; print " \n"; print " \n"; } elsif ($Q==-5) { print " \n"; print " \n"; print " \n"; } elsif ($Q==-7) { print " \n"; print " \n"; print " \n"; } elsif ($Q==-9) { print " \n"; print " \n"; print " \n"; } elsif ($Q==-11) { print " \n"; print " \n"; print " \n"; } else { next; } for ($f=0; $f<$COLUMNS; $f++) { print " \n"; } print " \n"; } print "
ISO f/stop
", $ISOS[$i]," ", $FSTOPS[$i+$f+$fn],"
SubjectQShutter Speed
Full Moon$Q
Umbrela Contact
Gibbous Moon		$Q
Umbrela: Mag=0.25
Quarter Moon		$Q
Umbrela: Mag=0.50
Thick Crescent Moon		$Q
Umbrela: Mag=0.75
Thin Crescent Moon		$Q
Totality: L=4$Q
Totality: L=3$Q
Totality: L=2$Q
Totality: L=1$Q
Totality: L=0$Q", $SSPEEDS[8-$Q+$f],"
\n"; print "
Exposure Formula t=f2/(Ix2Q)\n"; print "
where: t=exposure time (sec)\n"; print "
where: f=f/stop\n"; print "
where: I=ISO film speed\n"; print "
where: Q=brightness exponent\n"; print "
by: F.Espenak\n"; print "
ref: "; print "Origional image\n"; print "
ref: "; print "Origional Page\n"; print "\n";