annotate perl/artwork_descriptions.pl @ 8:1b77e8657088 judyates

[svn r9] saving for transference to cd
author rlm
date Fri, 19 Mar 2010 07:17:36 -0400
parents 60668cf4f443
children 903b91a97990
rev   line source
rlm@0 1 @namess = qw(
rlm@0 2 German_Shorthair_Hunting_Dog_on_light_brown_marble_2007
rlm@0 3 growling_grizzly_bear_on_black_and_white_marble_with_rust_inclusions_2007
rlm@0 4 wood_duck_standing_on_branch_in_water_on_green_and_white_marble_2007
rlm@0 5 brown_trout_swimming_on_ochre_granite_with_multicolored_specks_2007
rlm@0 6 big_mouth_bass_hooked_on_lure_on_green_pearlecent_granite_2007
rlm@0 7 pheasant_head_profile_on_black_granite_2007
rlm@0 8 non-typical_mule_deer_buck_walking_on_light_brown_marble_2007
rlm@0 9 white_tail_buck_with_head_turned_three_quarter_pose_on_light_brown_marble_2007
rlm@0 10 roan_texas_longhorn_steer_on_triangular_green_and_white_marble_with_silver_specks_2007
rlm@0 11 half_body_mule_deer_buck_on_light_brown_marble_1999
rlm@0 12 full_pose_pointer_on_ochre_marble_2_1998
rlm@0 13 eagle_hunting_for_prey_on_beige_white_marble_2000
rlm@0 14 pointer_head_with_quail_on_beige_travertine_marble_1998
rlm@0 15 full_pose_pointer_on_ochre_marble_1998
rlm@0 16 male_cardinal_perched_on_purple_and_green_marble_1999
rlm@0 17 african_lion_head_profile_on_multicolored_granite_1999
rlm@0 18 bluejay_perched_on_light_green_marble_1999
rlm@0 19 charging_african_elephant_on_beige_travertine_marble_1999
rlm@0 20 eagle_head_on_black_granite_1999
rlm@0 21 bugling_bull_moose_head_on_beige_marble_1999
rlm@0 22 bobwhite_chirping_on_brown_and_snow_marble_1999
rlm@0 23 texas_longhorn_steer_on_triangular_grey_marble_1998
rlm@0 24 full_body_buffalo_grey_marble_1999
rlm@0 25 swimming_bottlenose_dolphin_on_green_and_white_marble_1999
rlm@0 26 red_fox_on_travertine_marble_1999
rlm@0 27 bobwhite_quail_on_marble_with_rust_inclusions_1999
rlm@0 28 flying_wild_turkey_on_downstroke_on_ochre_marble_1999
rlm@0 29 flying_pheasant_on_travertine_1999
rlm@0 30 black_lab_with_mallard_in_mouth_sitting_in_reeds_on_pink_marble_1999
rlm@0 31 white_ram_head_on_triangular_grey_marble_1999
rlm@0 32 pintail_duck_in_flight_on_azul_do_mar_granite_1999
rlm@0 33 full_mallard_swmming_straight_at_you_on_grey_granite_1999
rlm@0 34 black_lab_sitting_with_canvasback_duck_in_mouth_on_grey_marble_with_rust_inclusions_2000
rlm@0 35 red_texas_longhorn_head_on_triangular_speckled_green_and_beige_granite_undated
rlm@0 36 trophy_bull_elk_rear_view_on_white_and_grey_marble_1999
rlm@0 37 grey_timberwolf_head_study_on_black_granite_with_gold_specks_1998
rlm@0 38 grizzly_bear_baring_teeth_on_yellow_ochre_1999
rlm@0 39 prong-horn_male_antelope_head_study_on_pink_granite_1999
rlm@0 40 golden_retriever_head_on_light_brown_travertine_1999
rlm@0 41 strutting_wild_turkey_on_brown_and_white_marble_1999
rlm@0 42 timberwolf_standing_on_ledge_on_purple_green_black_and_white_marble_(very_large)_1997
rlm@0 43 full_flying_pheasant_on_ochre_and_black_granite_2002
rlm@0 44 big_mouth_bass_struggling_with_hook_in_mouth_on_green_marble_1999
rlm@0 45 beautiful_black_lab_head_with_pheasant_in_mouth_on_pure_white_marble_1999
rlm@0 46 black_lab_head_study_with_grouse_in_mouth_on_white_marble_1999
rlm@0 47 wood_duck_sitting_on_water_with_reflection_on_green_and_yellow_marble_1999
rlm@0 48 hooked_big_mouth_bass_on_green_and_yellow_marble_1999
rlm@0 49 full_body_white_tailed_deer_walking_through_water_on_green_marble_1999
rlm@0 50 bugling_bull_elk_head_and_chest_on_white_marble_1999
rlm@0 51 upper_body_of_moose_with_foliage_on_azul_do_mar_1999
rlm@0 52 howling_timberwolf_on_grey_marble_1999
rlm@0 53 jumping_big_mouth_bass_with_yellow_lure_on_green_marble_1999
rlm@0 54 golden_retriever_puppy_head_and_chest_on_grey_granite_1999
rlm@0 55 orca_whale_jumping_out_of_water_on_blue_granite_1999
rlm@0 56 black_lab_walking_through_water_with_duck_in_mouth_on_grey_granite_1999
rlm@0 57 black_lab_sitting_with_pheasant_in_mouth_on_beige_and_ochre_byzantine_1999
rlm@0 58 sitting_black_lab_drake_mallard_in_mouth_with_reeds_on_white_marble_1999
rlm@0 59 golden_eagle_head_with_beak_open_blue_granite_1999
rlm@0 60 red_fox_walking_straight_at_you_on_snow_white_marble_1999
rlm@0 61 mallard_male_and_female_pair_swimming_on_blue_granite_1999
rlm@0 62 pair_of_flying_mallards_on_green_and_white_marble_1999
rlm@0 63 soaring_bald_marble_on_beige_marble_1999
rlm@0 64 yellow_lab_head_and_chest_on_brown_pentagonal_marble_1999
rlm@0 65 happy_golden_retriever_head_study_on_black_granite_1999
rlm@0 66 timberwolf_straight-on_head_on_triangular_grey_and_pink_marble_1999
rlm@0 67 white_tail_trophy_deer_head_and_chest_on_beige_and_ochre_travertine_1999
rlm@0 68 white_tail_deer_upper_body_on_light_brown_marble_1999
rlm@0 69 gobbling_wild_turkey_on_rust_colored_marble_1999
rlm@0 70 mallard_landing_on_water_on_bluish-grey_granite_1999
rlm@0 71 pintail_sitting_on_water_with_cat-tail_reeds_on_bluish-grey_granite_1999
rlm@0 72 flying_mallard_on_blue_white_and_black_granite_1999
rlm@0 73 soaring_bald_eagle_on_flesh_colored_marble_1999
rlm@0 74 redhead_drake_duck_head_study_on_greenish_grey_granite_1999
rlm@0 75 three_strolling_african_elephants_on_beige_and_copper_marble_1999
rlm@0 76 golden_retriever_head_and_chest_with_mallard_in_mouth_on_paisley_granite_1998
rlm@0 77 peregrine_falcon_head_and_chest_on_triangular_white_marble_1999
rlm@0 78 horned_owl_head_and_chest_on_beige_and_ochre_travertine_1999
rlm@0 79 pink_rose_and_rosebud_on_black_granite_with_gold_specks_1999
rlm@0 80 big_buck_on_speckled_beige_granite_1999
rlm@0 81 white_tail_buck_head_and_chest_on_yellow_travertine_1999
rlm@0 82 full_body_buffalo_profile_on_white_black_and_pink_granite_1999
rlm@0 83 bald_eagle_head_on_labrador_blue_pearl_granite_1999
rlm@0 84 black_lab_profile_carrying_mallard_through_water_on_green-grey_granite_1999
rlm@0 85 pheasant_flying_on_light_multicolored_marble_2003
rlm@0 86 golden_retriever_head_with_pintail_on_triangular_speckled_granite_1999
rlm@0 87 roadrunner_on_ochre_1999
rlm@0 88 bald_eagle_head_with_open_beak_on_triangular_purple_marble_1999
rlm@0 89 hummingbird_sipping_from_yellow_columbine_on_beige_marble_1999
rlm@0 90 african_lion_head_on_speckled_granite_1999
rlm@0 91 wood_duck_standing_in_snow_on_light_brown_marble_1999
rlm@0 92 canadian_goose_preparing_to_land_on_grey_granite_1999
rlm@0 93 red_texas_longhorn_on_white_triangular_marble_1999
rlm@0 94 flying_wood_duck_on_purple_marble_1999
rlm@0 95 flying_pheasant_on_downstroke_on_yellow_ochre_1999
rlm@0 96 blue_jay_on_twig_on_grey_white_and_ochre_marble_1999
rlm@0 97 chocolate_lab_head_and_chest_on_pink_granite_1999
rlm@0 98 mountain_goat_full_body_on_white_marble_1999
rlm@0 99 flying_mallard_on_highly_crystalized_black_and_grey_stone_1999_
rlm@0 100 non-typical_trophy_whitetail_buck_on_light_brown_marble_1999
rlm@0 101 golden_retriever_resting_on_beige_byzantine_1999
rlm@0 102 irish_setter_laying_on_grass_on_brown_and_white_marble_1999
rlm@0 103 yellow_lab_with_quail_on_brown_marble_with_golden_lighting_1999
rlm@0 104 black_lab_retrieving_mallard_on_greenish_grey_granite_1999
rlm@0 105 bobwhite_quail_covey_flying_on_ochre_and_beige_travertine_date_unavailable
rlm@0 106 whitetail_buck_head_and_chest_on_brown_and_rust_marble_1999_
rlm@0 107 bald_eagle_head_profile_on_black_grante_with_small_gold_specks_1998
rlm@0 108 pheasant_head_profile_on_ochre_marble_1999
rlm@0 109 black_lab_head_with_pintail_on_white_marble_1998
rlm@0 110 black_lab_head_profile_with_pheasant_on_white_marble_1998
rlm@0 111 young_chocolate_lab_head_with_mallard_on_flesh_colored_marble_1998
rlm@0 112 shitzu_head_study_named_Abbe_on_black_granite_2002_
rlm@0 113 britney_spaniel_head_study_with_tongue_on_purple_and_green_marble_1999
rlm@0 114 timberwolf_full_profile_on_green_and_purple_marble_with_high_crystalization_1999
rlm@0 115 gallery_display--custom_order_for_one_person
rlm@0 116 gallery_display_2--custom_order_for_one_person
rlm@0 117 gallery_display_3--custom_order_for_one_person
rlm@0 118 gallery_display_4--custom_order_for_one_person
rlm@0 119 brown_trout_with_fly_on_green_granite_1999
rlm@0 120 smiling_bald_eagle_head_on_black_granite_1999_
rlm@0 121 maltese_named_happy_3_ages_on_black_granite_unsigned_undated
rlm@0 122 strutting_wild_turkey_profile_on_brown_and_white_marble_1998
rlm@0 123 black_lab_with_mallard_in_mouth_sitting_in_reeds_on_ochre_marble_1999
rlm@0 124 black_lab_with_head_cocked_and_flying_mallards_in_background_on_grey_byzantine_1999
rlm@0 125 cardinal_perched_on_branch_on_black_marble_with_white_veins_1999
rlm@0 126 red_fox_standing_in_snow_on_right_triangular_white_marble_with_grey_vein_1997
rlm@0 127 golden_retreiver_puppy_head_and_fromt_paws_laying_on_brown_marble_1996
rlm@0 128 king_charles_spaniel_named_sophie_on_beige_marble_2002
rlm@0 129 rufus_hummingbird_sipping_nectar_from_red_flowers_on__brown_and_white_marble_1999
rlm@0 130 ruby_throated_sipping_from_cluster_of_pink_flowers_on_flesh_tone_marble_1999
rlm@0 131 bluebird_perched_on_white_and_grey_rectangular_marble_1999_
rlm@0 132 mockingbird_perched_on_a_branch_on_dark_and_light_green_marble_1999
rlm@0 133 siberian_tiger_head_and_chest_on_multicolored_ochre_granite_1999
rlm@0 134 german_shepard_named_Geta_head_and_chest_on_white_granite_2002
rlm@0 135 friendly_grizzly_bear_head_and_chest_on_black_and_gold_granite_1999
rlm@0 136 monster_whitetail_buck_and_doe_standing_in_water_on_azul_do_mar_1999
rlm@0 137 yellow_lab_sitting_in_reeds_with_mallard_on_brown_and_white_marble_1999
rlm@0 138 german_shorthair_full_profile_with_quail_on_brown_and_white_marble_1999
rlm@0 139 English_Setter_on_granite_1999
rlm@0 140 grizly_bear_head_snaging_salmon_out_of_water_on_green_marble_1999
rlm@0 141 pintail_pair--drake_and_hen_flying_on_pink-grey_paisley_1999
rlm@0 142 mourning_dove_dodging_bullet_on_grey_and_rust_marble_1999
rlm@0 143 horn_toad_lizard_on_light_brown_and_white_marble_1999
rlm@0 144 whitetail_deer_upper_body_on_beige_marble_1998
rlm@0 145 black_poodle_naned_chanel_with_stuffed_animal_on_light_brown_marble_1999
rlm@0 146 wild_turkey_three-quarter_pose_gobbing_on_ochre_and_dark_brown_granite_1998
rlm@0 147 red_head_pair_drake_and_hen_flying_on_beige_and_grey_travertine_1999
rlm@0 148 wood_duck_drake_head_and_chest_on_water_on_greenish_grey_marble_1999
rlm@0 149 yello_lab_with_canvasback_in_mouth_on_beige_marble_1999
rlm@0 150 poodle_named_Scarlett_on_black_granite_2002
rlm@0 151 coyote_standing_in_snow_on_white_and_beige_marble_1999
rlm@0 152 canadian_goose_flying_over_water_on_downstroke_on_wavelike_green_and_grey_granite_1999
rlm@0 153 mourning_dove_sitting_on_branch_on_purple_marble_1999
rlm@0 154 killer_whale_head_emerging_from_ocean_on_greenish_grey_granite_1999
rlm@0 155 majestic_caribou_head_and_chest_on_ochre_marble_1999
rlm@0 156 orca_whale_preforming_bellyflop_on_green_marble_1999
rlm@0 157 yellow_lab_head_with_bobwhite_quail_on_black_granite_1999
rlm@0 158 redbird_on_branch_on_green_and_white_marble_1999
rlm@0 159 yellow_lab_resting_on_grass_on_black_granite_with_copper_sparkles_1999
rlm@0 160 tom_turkey_head_profile_on_green_marble_1998
rlm@0 161 whitetail_buck_head_and_chest_on_ochre_1998
rlm@0 162 bugling_elk_fromt_pose_on_black_granite_1998
rlm@0 163 bull_elk_laying_in_the_snow_on_white_and_grey_marble_1999
rlm@0 164 mountain_goat_head_profile_on_white_marble_1999
rlm@0 165 wood_duck_full_standing_on_white_circular_marble_1999
rlm@0 166 dog_named_Ulysse_on_beige_travertine_2000
rlm@0 167 set_of_three_owls_1995
rlm@0 168 female_cardinal_in_snow_on_black_grey_and_white_marble_1999
rlm@0 169 bugling_elk_full_profile_on_white_and_grey_marble_1999
rlm@0 170 black_lab_flushing_single_quail_on_light_brown_marble_1999
rlm@0 171 bugling_elk_head_only_on_forest_green_marble_1999
rlm@0 172 mountain_lion_sitting_on_black_and_white_marble_1999
rlm@0 173 dolphin_peeking_out_of_ocean_on_green_marble_1999
rlm@0 174 full_standing_pheasant_profile_on_ochre_marble_1998
rlm@0 175 full_standing_pheasant_profile_on_grey_and_white_marble_1998
rlm@0 176 flying_pheasant_with_cattails_on_beige_marble_1998
rlm@0 177 yellow_lab_retrieving_mallard_on_greenish_grey_marble_1999
rlm@0 178 black_lab_retrieving_pheasant_on_light_brown_marble_1999
rlm@0 179 unfriendly_grizzly_bear_head_and_chest_on_beige_marble_1998
rlm@0 180 black_bear_three_quarter_view_on_beige_and_ochre_marble_1999
rlm@0 181 mallard_coming_in_to_land_on_pink_and_grey_marble_1999
rlm@0 182 loon_on_water_on_green_marble_1999
rlm@0 183 britney_spaniel_with_grouse_on_beige_and_ochre_marble_1998
rlm@0 184 yellow_lab_head_on_grey_and_pink_marble_1999
rlm@0 185 black_lab_three_quarter_profile_on_beige_marble_1998
rlm@0 186 chocolate_lab_three_quarter_profile_on_beige_marble_1998
rlm@0 187 whitetail_deer_standing_in_water_on_green_marble_1998
rlm@0 188 big_mouth_bass_hooked_on_black_lure_on_green-grey_granite_1999
rlm@0 189 18_dogs_on_a_30_inch_by_40_inch_canvas_1998);
rlm@0 190
rlm@0 191
rlm@0 192
rlm@0 193
rlm@0 194 foreach(0..$#namess){
rlm@0 195 $nnnum = $_;
rlm@0 196 $finla = $namess[$nnnum];
rlm@0 197 $prevla = $namess[$nnnum-1].".html";
rlm@0 198 $nextla = $namess[$nnnum+1].".html";
rlm@0 199 $galnum = int($nnnum/9 + 1);
rlm@0 200 $galname = "page $galnum";
rlm@0 201 $galla = "../gallery$galnum.html";
rlm@0 202
rlm@0 203 print "../artwork_descriptions/$finla.html\n" ;
rlm@0 204 open FILE, ">../artwork_descriptions/$finla.html";
rlm@0 205
rlm@0 206
rlm@0 207
rlm@0 208 select FILE;
rlm@0 209
rlm@0 210 print <<HERE;
rlm@0 211 <html>
rlm@0 212 <title> Gallery of Original Artwork by Judy Yates</title>
rlm@0 213 <head>
rlm@0 214 <link rel="stylesheet" type="text/css"
rlm@0 215 href="../firetest.css" />
rlm@0 216 </head>
rlm@0 217 <body>
rlm@0 218 <span>
rlm@0 219 <img src = "../album_pics/3_logo.jpg"></img>
rlm@0 220 </span>
rlm@0 221 HERE
rlm@0 222
rlm@0 223 open MENU, "<../menu2.html";
rlm@0 224 while (<MENU>){print;}
rlm@0 225 close MENU;
rlm@0 226 print <<HERE;
rlm@0 227 <table>
rlm@0 228 <tr><td>
rlm@0 229 <div class = "nav">
rlm@0 230 <ul class = "nav">
rlm@0 231 HERE
rlm@0 232
rlm@0 233 $k = $galnum;
rlm@0 234 for($m=1;$m<=21;$m++) {
rlm@0 235 print '<li class = "nav"><a ';
rlm@0 236 if($m==$k){print 'id="cur" '}
rlm@0 237 print 'href = "../gallery'.$m.'.html" class = "nav"> Page '.$m.' </a></li>'."\n";
rlm@0 238 }
rlm@0 239
rlm@0 240
rlm@0 241 print <<HERE;
rlm@0 242 </ul>
rlm@0 243 </div>
rlm@0 244 </td>
rlm@0 245
rlm@0 246
rlm@0 247 <td>
rlm@0 248
rlm@0 249 <table cellpadding="0" cellspacing="0" width="640">
rlm@0 250 <tr><td>
rlm@0 251
rlm@0 252 HERE
rlm@0 253
rlm@0 254 if($nnnum == 0){
rlm@0 255 print "<tr><td><a class = \"menu\" href = \"$galla\">$galname</a><a class = \"menu\" href = \"$nextla\">Next</a></td></tr><tr><td>";
rlm@0 256 }
rlm@0 257
rlm@0 258 elsif ($nnnum == $#namess){
rlm@0 259
rlm@0 260 print "<tr><td><a class = \"menu\" href = \"$prevla\">Previous</a><a class = \"menu\" href = \"$galla\">$galname</a></td></tr><tr><td>";
rlm@0 261 }
rlm@0 262
rlm@0 263 else {
rlm@0 264 print "<tr><td><a class = \"menu\" href = \"$prevla\">Previous</a><a class = \"menu\" href = \"$galla\">$galname</a><a class = \"menu\" href = \"$nextla\">Next</a></td></tr><tr><td>";
rlm@0 265 }
rlm@0 266
rlm@0 267
rlm@0 268
rlm@0 269 print "<$nnnum><img src = \"../images/$finla.jpg\"></img>\n";
rlm@0 270
rlm@0 271 print <<HERE;
rlm@0 272
rlm@0 273 </td> </tr>
rlm@0 274 </table>
rlm@0 275
rlm@0 276 </td></tr>
rlm@0 277 </table>
rlm@0 278
rlm@0 279
rlm@0 280 HERE
rlm@0 281
rlm@0 282
rlm@0 283
rlm@0 284
rlm@0 285 if (open TXT, "<../texts/$finla.txt"){
rlm@0 286 while (<TXT>){print;}
rlm@0 287 close TXT;
rlm@0 288 }
rlm@0 289
rlm@0 290
rlm@0 291
rlm@0 292 open MENU, "<../menu2.html";
rlm@0 293 while (<MENU>){print;}
rlm@0 294 close MENU;
rlm@0 295
rlm@0 296 print <<HERE;
rlm@0 297 </body>
rlm@0 298 </html>
rlm@0 299 HERE
rlm@0 300
rlm@0 301 close FILE;
rlm@0 302 select STDOUT; }