.
 
.

A Supplement to the AP Horace:

The AP Horace syllabus covers the following poems: 

Book One ... 1 5 9 10 11 21 22 23 34 37 38 ...
Book Two   3 7 10 14              
Book Three   1 9 13 30                
Book Four   7                
Sermones   1.09

 Under construction

These poems are Shockwave documents. You will need to install the Shockwave plug-in to use them.

My goal in putting this material on the web is to encourage students to read Horace. I hope that the site will help make reading Latin literature less arduous, provide an way for students to review more thoroughly for the AP exam, and encourage more teachers to add Horace to their curriculum. 

NB: This website has a similar set of Shocked Catullus poems.

I included the text of the poems for students to print out and make notes on, do scansion, etc.

I am very much interested in the use of hypertext glossing in foreign language learning, and would love to get feedback from students or teachers using these materials. I am interested in your answers to questions such as: 

  • Are they helpful? 

  • Do you feel you learn the vocabulary as well, or not as well, as when you have to look words up in the dictionary? 

  • Do you find that you re-read the poems more if you have this resource?

I would also just like to hear from people who are using this site!

With a project this large, I expect there will be errors in what I have put up, especially in my glossing of ut, cum, and quam. Please let me know about the errors that you find, so I can correct them. Thank you!

 

The notes on these copyrighted pages were written by:

These notes are aimed at the high school level reader, hence the emphasis on grammatical information. If you have ideas for additional notes, please send me those suggestions! 

Go to the Shocked Catullus poems.

  Back to the top
.
 
.
. 
last updated October 10, 2003
comments, corrections?

<% Set FileObject = Server.CreateObject("Scripting.FileSystemObject") CountFile = Server.MapPath ("/schools/rhs/classrooms/rlarson/db") & "/horace.txt" Set InStream = FileObject.OpenTextFile (CountFile, 1, false) OldHits = Trim(InStream.ReadLine) If Session("Visitor")= "" Then NewHits = (OldHits + 1) Session("Visitor")=(OldHits + 1) Set OutStream = FileObject.CreateTextFile (CountFile, True) OutStream.WriteLine(NewHits) InStream.close OutStream.close Set FileObject = Nothing Set InStream = Nothing Set OutStream = Nothing if NewHits < 10 then image1 = 0 image2 = 0 image3 = 0 image4 = 0 image5 = 0 image6 = NewHits elseif NewHits < 100 then image1 = 0 image2 = 0 image3 = 0 image4 = 0 image5 = mid(NewHits,1,1) image6 = mid(NewHits,2,1) elseif NewHits < 1000 then image1 = 0 image2 = 0 image3 = 0 image4 = mid(NewHits,1,1) image5 = mid(NewHits,2,1) image6 = mid(NewHits,3,1) elseif NewHits < 10000 then image1 = 0 image2 = 0 image3 = mid(NewHits,1,1) image4 = mid(NewHits,2,1) image5 = mid(NewHits,3,1) image6 = mid(NewHits,4,1) elseif NewHits < 100000 then image1 = 0 image2 = mid(NewHits,1,1) image3 = mid(NewHits,2,1) image4 = mid(NewHits,3,1) image5 = mid(NewHits,4,1) image6 = mid(NewHits,5,1) else image1 = mid(NewHits,1,1) image2 = mid(NewHits,2,1) image3 = mid(NewHits,3,1) image4 = mid(NewHits,4,1) image5 = mid(NewHits,5,1) image6 = mid(NewHits,6,1) end if else if OldHits < 10 then image1 = 0 image2 = 0 image3 = 0 image4 = 0 image5 = 0 image6 = OldHits elseif OldHits < 100 then image1 = 0 image2 = 0 image3 = 0 image4 = 0 image5 = mid(OldHits,1,1) image6 = mid(OldHits,2,1) elseif OldHits < 1000 then image1 = 0 image2 = 0 image3 = 0 image4 = mid(OldHits,1,1) image5 = mid(OldHits,2,1) image6 = mid(OldHits,3,1) elseif OldHits < 10000 then image1 = 0 image2 = 0 image3 = mid(OldHits,1,1) image4 = mid(OldHits,2,1) image5 = mid(OldHits,3,1) image6 = mid(OldHits,4,1) elseif OldHits < 100000 then image1 = 0 image2 = mid(OldHits,1,1) image3 = mid(OldHits,2,1) image4 = mid(OldHits,3,1) image5 = mid(OldHits,4,1) image6 = mid(OldHits,5,1) else image1 = mid(OldHits,1,1) image2 = mid(OldHits,2,1) image3 = mid(OldHits,3,1) image4 = mid(OldHits,4,1) image5 = mid(OldHits,5,1) image6 = mid(OldHits,6,1) end if End If response.write "We've been visited " & image1 & "" & image2 & "" & image3 & "" & image4 & "" & image5 & "" & image6 & " times since April 4, 2002!" %>