[Gridflow-cvs] [svn] commit: r4170 - /trunk/bin/make-compose-makefile

gridflow-cvs at artengine.ca gridflow-cvs at artengine.ca
Tue Apr 28 16:56:39 EDT 2009


Author: matju
Date: Tue Apr 28 16:56:39 2009
New Revision: 4170

Log:
handle uppercase with offsetted composition (diacritic up by 100 units)

Modified:
    trunk/bin/make-compose-makefile

Modified: trunk/bin/make-compose-makefile
==============================================================================
--- trunk/bin/make-compose-makefile (original)
+++ trunk/bin/make-compose-makefile Tue Apr 28 16:56:39 2009
@@ -1,19 +1,29 @@
 #!/usr/bin/env ruby
 
-f = File.read("compose-8859-1.pdd").split(/\s*;\s*/)
+f = File.read("../compose-8859-1.pdd").split(/\s*;\s*/)
 g = File.open("Makefile","w")
 g.puts "default:: all"
 g.puts ""
 list = []
 
+[94,96,126,168,176,180,184].each {|a|
+  g.puts "#{a}u.hpgl: #{a}.hpgl Makefile"
+  g.puts "\t../../bin/hpgl_move 0 100 < #{a}.hpgl > #{a}u.hpgl"
+  list << "#{a}u.hpgl"
+}
+
 f.each {|char|
   a,b,c = char.split(/\s+/).map {|x| Integer x }
   [0,32].each {|o|
-    g.puts "#{a+o}.hpgl: #{b+o}.hpgl #{c}.hpgl"
-    g.puts "\tcat #{b+o}.hpgl #{c}.hpgl > #{a+o}.hpgl"
+    d = c.to_s + (if o==0 and c>47 then "u" else "" end)
+    g.puts "#{a+o}.hpgl: #{b+o}.hpgl #{d}.hpgl Makefile"
+    g.puts "\tcat #{b+o}.hpgl #{d}.hpgl > #{a+o}.hpgl"
     g.puts ""
     list << "#{a+o}.hpgl"
   }
 }
 
 g.puts "all:: "+list.join(" ")
+g.puts ""
+g.puts "clean::"
+g.puts "\trm "+list.join(" ")



More information about the Gridflow-cvs mailing list