#!/usr/bin/perl -w use CGI qw(:all); #open categories file for reading open(CATG,"anim_categories.csv")|| die "cannot open categories list"; #read and discard first TOC line, that's just header/descriptors $line = ; #for each category file line $count = 0; while($line=){ #parse categories line @fld = split(/","/,$line); #field field 2 indexin #field 0 category field 3 indexout #field 1 directory field 4 title $fld[0] =~ s/"//; $fld[4] =~ s/"//; $count=$count+1; $cats[$count]=$fld[0]; $dirs[$count]=$fld[1]; $inis[$count]=$fld[2]; $outs[$count]=$fld[3]; $tlts[$count]=$fld[4]; $TOClink[$count] = $fld[1]."/".$fld[3]; $TOCdata[$count] = $fld[1]."/".$fld[2]; } #close categories file close(CATG); #write credits file credits(); for($i=1 ; $i<=$count ; $i++ ){ #Process each TOC category file SUB EACHCAT #GOSUB EACHCAT(indexin, indexout,directory,title) eachcat($TOCdata[$i],$TOClink[$i],$dirs[$i],$tlts[$i]); print "writing index file ".$i." of ".$count."\n"; } #SUB process list of directories and export to TOC html file #EACHCAT(indexin, indexout,directory,title) sub eachcat{ $infile=$_[0]; $outfile=$_[1]; $dir=$_[2]; $title=$_[3]; #open subcategory data file open(IND_IN,$infile)|| die "cannot open $_[0] for reading"; #read 'n drop first line, its just column headers $iline=; #open subcategory html file for writing open(IND_OUT,">".$outfile)|| die "cannot open TOC file for writing"; #write top of subcategory html file print IND_OUT < Physics Animations
Animations for Physics and Astronomy
Catalog for: $title
These animations are available for use under a Creative Commons License.
TOP_O_THIS_IND #dummy first subcat $thissubcat="zzz"; #for each subcategory file line while($iline=){ #parse item line #$itemfld[0 through 5] = ID subcategory media thumb comment html @itemfld = split(/"?,"?/,$iline); #if its a new category, write the category header if($itemfld[1] ne $thissubcat){ $thissubcat=$itemfld[1]; print IND_OUT < SUBCAT_THIS_IND } #write the component table row $em1="embeder".$itemfld[0].".html"; $em2="embederQ".$itemfld[0].".html"; $lmed="http://phys23p.sl.psu.edu/phys_anim/".$dir."/".$itemfld[2]; $lem1="http://phys23p.sl.psu.edu/phys_anim/".$dir."/".$em1; $lem2="http://phys23p.sl.psu.edu/phys_anim/".$dir."/".$em2; print IND_OUT < ITEM_ROW_THIS_IND3 #write the various html files for the mediafiles #write embedder1(directory,embedding html file,media file, comment) embedder1($dir,$em1,$itemfld[2],$itemfld[4]); embedder2($dir,$em2,$itemfld[2],$itemfld[4]); } #finish off and close this indexer file print IND_OUT < BOT_O_IND_OUT close(IND_OUT); #close the subcategory data file close(IND_IN); } #embedder1(directory,embedding html file,media file, comment) sub embedder1{ $dir=$_[0]; $outfile=$_[1]; $media=$_[2]; $comment=$_[3]; #print "$dir $outfile \n"; #open embedder html file $fname=$_[0]."/".$_[1]; open(EMBD,">".$fname)|| die "cannot open $fname for writing"; #write embedder html file print EMBD < embedded media file

$thissubcat

$itemfld[4]

ITEM_ROW_THIS_IND1 print IND_OUT < QT Embedded | Media | Old Embedded | ITEM_ROW_THIS_IND2 # if($itemfld[5] ){ # chomp($itemfld[5]); # $itemfld[5] =~ s/"//; # if($itemfld[5] =~ /htm/){ # print IND_OUT < # # HTML | #ITEM_ROW_THIS_IND_HTML # } # } #finish up this row demarcation print IND_OUT <
$comment
ALL_OF_EMBD #close embedder html file close(EMBD); } #embedder2(directory,embedding html file,media file, comment) sub embedder2{ $dir=$_[0]; $outfile=$_[1]; $media=$_[2]; $comment=$_[3]; #print "$dir $outfile \n"; #open embedder html file $fname=$_[0]."/".$_[1]; open(EMBD2,">".$fname)|| die "cannot open $fname for writing"; #write embedder html file print EMBD2 < quicktime embedded media file

Error text.

$comment
ALL_OF_EMBD2 #close embedder html file close(EMBD2); } ############################################################################ # Sub name: credits # Input: none # Output: none # Description: writes credits file # ############################################################################ sub credits { #open TOC html file for writing/and write the top stuff open(TOC,">Phys_anim.htm")|| die "Phys_anim2.htm"; $myemail="mrg3@"."psu.edu"; print TOC < Physics Animations
Animations for Physics and Astronomy
These animations are available for use under a Creative Commons License.

by Dr. Michael R. Gallis
Penn State Schuylkill
$myemail
Select a category from the menu at left to browse the catalogue of animations by category. Most animations are 512 by 384 pixel avi files and are generally several megabytes long. Small screenshots are provided, and the user may view the animation in three ways: direct link to the media file, and two versions of a link to a page with the animation embeded in a web page with a brief comment on the animation. There are two methods used to embed the animation because not all work equally well with any one method. We recommend using the Firefox browser with quicktime. Right-click on the media file link to download and save an animation to your own computer.
NEW: The animations project now has its very own YouTube Channel.
NEW: A blog has been created to discuss the creation of the animations.
CWIS Portal to the Animations. The portal allows searching as well as browsing of animation topics. Users are invited to use the portal to provide feedback and suggestions.
POV-Ray, etc. Source Files directory
-=Papers and Presentations=-
Artificial Video for Video Analysis, MichaelR. Gallis to be submitted to The Physics Teacher: draft paper and zipped files: 1D activities files, 2D activities files, Millikan virtual lab files (large file), all activities files, (large file).
3-D Animations for Introductory Electromagnetism, MichaelR. Gallis presented at CPS-AAPT 2005 Spring Meeting   -Presentation
Elementary Animated Illustrations of Geodesics using POV-Ray , Michael R. Gallis (unpublished)
Animations for Introductory Courses, Dr. Michael R. Gallis and Dr. Ping Wang presented at the 2004 ASEE Annual Conference and Exposition:   -Presentation  -Paper
See also Visual Mathematics by Dr. Michael R. Gallis and Dr. Ping Wang
Creative Commons License
These works are licensed under a Creative Commons License.
BOT_O_TOC close(TOC); }