Changeset 5499

Timestamp:

2003-09-12T11:55:17+12:00 (21 years ago)

Author:

mdewsnip

Message:

Updated stuff for Thai image generation, using the Microsoft BrowalliaUPC font.

File:

• trunk/gsdl/bin/script/translate.pl (modified) (13 diffs)

trunk/gsdl/bin/script/translate.pl

@@ -203 +203 @@
     $fontchoice = " -foundry cronyx -fontname helvetica";
     }
+    # special case for Thai images
+    elsif ($language_symbol eq "th") {
+    $text = &unicode::unicode2singlebyte(&unicode::utf82unicode($text), "windows_874");
+    $fontchoice = " -foundry monotype -fontname BrowalliaUPC -fontregistry tis620";
+    }
     # special case for Ukrainian images - font is windows_1251 encoded 
     elsif ($language_symbol eq "uk") {
@@ -208 +213 @@
     $fontchoice = " -foundry rfx -fontname serene";
     }
-    # special case for Thai images
-    # elsif ($language_symbol eq "th") {
-    # $text = &unicode::unicode2singlebyte(&unicode::utf82unicode($text), "thai");
-    # }
 
     # edit image macros
@@ -231 +232 @@
         $options .= " -fontsize 10 -fontweight bold";
     }
+    # special case for Thai images
+    elsif ($language_symbol eq "th") {
+        $options .= " -fontsize 20 -fontweight bold";  # Browallia
+    }
     # special case for Ukrainian images
     elsif ($language_symbol eq "uk") {
         $options .= " -fontsize 10";
     }
-    # elsif ($language_symbol eq "th") {
-        # $options .= " -fontsize 30 -fontweight bold";
-        # $options .= " -foundry 2rebels -fontname \"DB ThaiText\"";
-        # $options .= " -fontsize 24";
-        # $options .= " -foundry monotype -fontname \"Courier ProportionalThai\"";
-    # }
     else {
         $options .= " -fontsize 12";
@@ -250 +249 @@
     # &process_width_macro ($fullfilename, $image_name, \$image_macros);
 
-    } elsif ($image_type eq "nav_bar_button") {
-    
+    }
+    elsif ($image_type eq "nav_bar_button") {
+
     # generate on and off images
     my $options = "-text \"$text\" -filenamestem $image_name -image_dir $image_dir";
@@ -259 +259 @@
     # special case for Thai images
     if ($language_symbol eq "th") {
-        # $options .= " -fontsize 30";
-        # $options .= " -foundry 2rebels -fontname \"DB ThaiText\" -fontweight bold";
-        # $options .= " -fontsize 24";
-        # $options .= " -foundry monotype -fontname \"Courier ProportionalThai\"";
+        $options .= " -fontsize 18 -fontweight bold";  # Browallia
     }
     else {
@@ -271 +268 @@
 
     # generate green image
-    $options = "-text \"$text\" -filename ${image_name}gr.gif -image_dir $image_dir";
-    $options .= $fontchoice;
-
-    `$ENV{'GSDLHOME'}/bin/script/gimp/green_bar-1.2.pl $options`;
+    $options = "-text \"$text\" -filenamestem ${image_name}gr -image_dir $image_dir";
+    $options .= " -height 17 -fixed_width -width 87";
+    $options .= " -bgcolor \"#96c19b\"";
+    $options .= $fontchoice;
+
+    # special case for Thai images
+    if ($language_symbol eq "th") {
+        $options .= " -fontsize 18 -fontweight bold";  # Browallia
+    }
+    else {
+        $options .= " -fontsize 17";
+    }
+
+    `$ENV{'GSDLHOME'}/bin/script/gimp/flash_button-1.2.pl $options`;
+
+    # delete the unused light image
+    unlink(util::filename_cat($image_dir, "${image_name}gr" . "of.gif"));
+
+    # rename the dark image
+    &util::mv(util::filename_cat($image_dir, "${image_name}gr" . "on.gif"),
+        util::filename_cat($image_dir, "$image_name" . "gr.gif"));
 
     # get width of new images and edit width macro
@@ -280 +294 @@
     &process_width_macro ($fullfilename, $image_name, \$image_macros);
 
-    } elsif ($image_type eq "document_button") {
+    }
+    elsif ($image_type eq "document_button") {
 
     # generate on and off images
@@ -295 +310 @@
         $options .= " -fontsize 8";
     }
+    # special case for Thai images
+    elsif ($language_symbol eq "th") {
+        $options .= " -fontsize 22 -fontweight bold";  # Browallia
+    }
     # special case for Ukrainian images
     elsif ($language_symbol eq "uk") {
@@ -305 +324 @@
     # &process_width_macro ($fullfilename, $image_name, \$image_macros);
 
-    } elsif ($image_type eq "collector_bar_button") {
+    }
+    elsif ($image_type eq "collector_bar_button") {
 
     $text =~ s/\\n/\n/g;
@@ -352 +372 @@
     unlink(util::filename_cat($image_dir, "nc$image_name" . "on.gif"));
 
-    } elsif ($image_type eq "green_bar_left_aligned") {
+    }
+    elsif ($image_type eq "green_bar_left_aligned") {
 
     # generate green bar image (we're assuming these bars are always 537
@@ -360 +381 @@
     $options .= $fontchoice;
 
+    # special case for Thai images
+    if ($language_symbol eq "th") {
+        $options .= " -fontsize 18 -fontweight bold";  # Browallia
+    }
+
     `$ENV{'GSDLHOME'}/bin/script/gimp/green_bar-1.2.pl $options`;
 
-    } elsif ($image_type eq "green_title") {
+    }
+    elsif ($image_type eq "green_title") {
     
     # read the width if it is specified in $image_macros
@@ -371 +398 @@
     my $options = "-text \"$text\" -filename ${image_name}.gif -image_dir $image_dir";
     $options .= " -width $width -height 57 -stripe_alignment right -text_alignment right";
-    $options .= " -fontsize 26 -fontweight bold";
         $options .= $fontchoice;
+
+        # special case for Thai images
+        if ($language_symbol eq "th") {
+        $options .= " -fontsize 50 -fontweight bold";  # Browallia
+    }
+        else {
+        $options .= " -fontsize 26 -fontweight bold";
+    }
 
     `$ENV{'GSDLHOME'}/bin/script/gimp/title_icon-1.2.pl $options`;
@@ -381 +415 @@
     # &process_width_macro ($fullfilename, $image_name, \$image_macros);
 
-    } elsif ($image_type eq "hand_made") {
-    
+    }
+    elsif ($image_type eq "hand_made") {
+
     $hand_made ++;
 
-    } else {
+    }
+    else {
     
     print STDERR "WARNING (translate.pl): unknown image type found ($image_type)\n";