maruku 0.4.2.1 → 0.5.0

data/lib/maruku/ext/diagrams/to_html.rb

@@ -0,0 +1,37 @@
+require 'rexml/document'
+
+module Diagrams
+	
+	class Diagram
+		
+		
+		include REXML
+		def to_html
+			div = Element.new 'div'
+			div.add_element 'div', {'style'=>'width: 1em', 'id'=>'emtest'}
+			div.attributes['style'] = 
+			"position:relative; display: block; width: #{@width}em; height: #{@height}em;"
+			div.attributes['class'] = 'diagram'
+			@boxes.each_with_index do |b, i|
+				box = Element.new 'div'
+				box.attributes['class'] = 'box'
+
+				w = b.width
+				box.attributes['id'] = "box#{i}"
+				box.attributes['style'] = 
+				"position:absolute; left:#{b.x}em; top:#{b.y}em; border:solid 1px black;"			
+				content = Element.new 'div', box
+				content.attributes['class'] = 'inner'
+				content << Text.new( b.content )
+				div << box
+				div << Text.new("\n")
+			end
+			div
+		end
+		
+		
+	end
+	
+	
+	
+end

data/lib/maruku/ext/diagrams/to_latex.rb

@@ -0,0 +1,308 @@
+
+module Diagrams
+	
+	class Diagram
+		
+		def write_tex_discovery(diag_id, output_file)
+			fid = 10
+			s = ("\\immediate\\openout%d=%s\n" % [fid, output_file])
+			@boxes.each_with_index do |b, i|
+				s += ("\\setbox0=\\hbox{%s}\n" % b.content)
+				s += "\\immediate\\write%d{%s,%d,\\the\\wd0,\\the\\ht0,\\the\\dp0 ,%s}\n" % 
+				[fid, diag_id, i, b.content]
+			end
+			s += "\\end\n"
+			s
+		end
+
+		def write_latex_discovery(diag_id, output_file)
+			fid = 10
+			s=""
+#			s +="\\documentclass{article}\\begin{document}"
+			s += ("\\immediate\\openout%d=%s\n" % [fid, output_file])
+			# s+= "\\ifx\\already\\empty"
+			# s+="\\def\\already{1}"
+			# s+= "\\newlength{\\mywd}\n"
+			# s+= "\\newlength{\\myht}\n"
+			# s+= "\\newlength{\\mydp}\n"
+			# s+="\\fi"
+			@boxes.each_with_index do |b, i|
+				s += ("\\settowidth{\\mywd}{\\hbox{%s}}\n" % b.content)
+				s += ("\\settoheight{\\myht}{\\hbox{%s}}\n" % b.content)
+				s += ("\\settodepth{\\mydp}{\\hbox{%s}}\n" % b.content)
+				s += "\\immediate\\write%d{%s,%d,\\the\\mywd,\\the\\myht,\\the\\mydp}\n" % 
+				[fid, diag_id, i]
+			end
+			s+=("\\immediate\\closeout%d\n" % fid)
+#			s+="\\end{document}"
+			s
+		end
+		
+		def read_tex_discovery(my_diag_id, s)
+			s.split("\n").each do |l|
+				diag_id, box_index, wd, ht, dp, text = l.split(",")
+				if diag_id == my_diag_id
+					puts "found box #{box_index}: #{wd} #{ht} #{dp}"
+					wd,ht,dp = wd.to_f,ht.to_f,dp.to_f
+					width = wd
+					height = ht+dp
+					puts "found box #{box_index}: #{width}x#{height}"
+					i = box_index.to_i
+					@boxes[i].hs.min = width
+					@boxes[i].hs.shrink = 1
+					@boxes[i].hs.pref = width*1.2
+					@boxes[i].hs.stretch = 0.1
+					@boxes[i].hs.max = 1000
+					@boxes[i].vs.min = height
+					@boxes[i].vs.shrink = 1
+					@boxes[i].vs.pref = height*1.2
+					@boxes[i].vs.stretch = 0.1
+					@boxes[i].vs.max = 1000
+				end
+			end
+		end
+		
+		def to_latex(job="anon_diagram")
+			do_discovery = true
+			
+			tmp_out = "#{job}.dia"
+
+			diag_id = "dia"
+			s = write_latex_discovery(diag_id, tmp_out)
+
+			if File.exist?(tmp_out)
+				File.open(tmp_out, 'r') do |f|
+					read_tex_discovery(diag_id, f.read)
+				end
+			end
+			
+			do_layout(job)
+	
+			@boxes.each_with_index do |b, i|
+				width = b.hs.min
+				height = b.vs.min
+				s << ("\\framebox[%fpt]{\\rule{10pt}{%fpt}%s}"% [width,height, b.content])
+			end
+			
+			s+="\n\nCiao\n\n"
+			s 
+		end
+		
+		class Layout
+			def initialize
+				@hlink,@vlink = {},{}
+				@hsprings,@vsprings={},{}
+			end
+			
+			def to_dot()
+				return to_dot_links(@hlink,@hsprings), to_dot_links(@vlink,@vsprings)
+			end
+			
+			def to_dot_links(links, springs)
+				s = "digraph diagram {\n"
+				links.each do |var, to_other|
+					if not to_other.empty?
+						var_ = var.gsub(/^[^_]+_/,'')
+						s += "\t#{var} [label = \"#{var_}\" ];\n"
+						to_other.each do |v2, spring|
+							s += "\t #{var} -> #{v2} [ label = \"#{spring.inspect}\"];\n"
+						end
+					end
+				end
+				s += "}\n"
+			end
+			
+			def add_var(s)
+				@hlink[s]=[] if not @hlink[s]
+				@vlink[s]=[] if not @vlink[s]
+			end
+			
+			# var2-var1 = spring
+			def add_con_h(var1,var2,hspring)
+				add_var var1; add_var var2;
+				@hlink[var1].push [var2, hspring]
+				@hsprings[[var1,var2]] = hspring
+			end
+			
+			def add_con_v(var1,var2,vspring)
+				add_var var1; add_var var2;
+				@vlink[var1].push [var2, vspring]
+				@vsprings[[var1,var2]] = vspring
+			end
+			
+			def get_preferred(var1, var2)
+				hpaths = rec_paths(@hlink, var1, var2)
+				vpaths = rec_paths(@vlink, var1, var2)
+				puts inspect
+				hpaths.each do |h|
+					puts "H: #{h.inspect}"
+				end
+				vpaths.each do |v|
+					puts "V: #{v.inspect}"
+				end
+				
+				hsprings = 
+				hpaths.map do |h|
+					ss = []
+					for i in 0..(h.size-2)
+						v1,v2 = h[i],h[i+1]
+						ss.push  @hsprings[[v1,v2]]
+					end
+					ss
+				end
+				vsprings = 
+				vpaths.map do |h|
+					ss = []
+					for i in 0..(h.size-2)
+						v1,v2 = h[i],h[i+1]
+						ss.push  @vsprings[[v1,v2]]
+					end
+					ss
+				end
+				
+				
+				def go_up_parallel(par)
+					final = par[0]
+					for i in 1..(par.size-1)
+						final = Spring.parallel(final, par[i])
+					end
+					final
+				end
+				
+				def go_up_series(series)
+					tot = series[0]
+					for i in 1..(series.size-1)
+						tot = Spring.series(tot, series[i])
+					end
+					tot
+				end
+				
+				def compress(x)
+					t = x.map do |s| go_up_series(s) end
+					final = go_up_parallel(t)
+				end
+				
+				def sum_of_shrink(series)
+					sum = 0
+					series.each do |s| sum += s.shrink end 
+					sum
+				end
+				
+				def sum_of_stretch(series)
+					sum = 0
+					series.each do |s| sum += s.stretch  end
+					sum
+				end
+				
+				def go_back(imposed, series)
+					pref = go_up_series(series)
+					if pref.pref > imposed
+						# must shrink
+						shrink = pref.pref - imposed
+						sum = sum_of_shrink(series)
+						series.each do |s|
+							its_shrink = (s.shrink / sum) * shrink
+							its_imposed = s.pref - its_shrink
+							if s.imposed
+								s.imposed = (its_imposed+ s.imposed)*0.5
+							else
+								s.imposed = its_imposed
+							end
+							s.pref = s.pref*0.5 + s.imposed*0.5
+						end
+					else
+						# must stretch
+						stretch = imposed - pref.pref 
+						sum = sum_of_stretch(series)
+						series.each do |s|
+							its_stretch = (s.stretch / sum) * stretch
+							its_imposed = s.pref + its_stretch
+							if s.imposed
+								s.imposed = (its_imposed+ s.imposed)*0.5
+							else
+								s.imposed = its_imposed
+							end
+							s.pref = s.pref*0.5 + s.imposed*0.5
+						end
+					end
+				end
+				
+				for i in 0..100
+					hpref = compress(hsprings)
+					vpref = compress(vsprings)
+			
+					width = hpref.pref
+					height = vpref.pref
+				
+					hsprings.each do |series| go_back(height, series) end
+					vsprings.each do |series| go_back(width, series) end
+				end
+
+				hpaths.each do |h|
+					ss = []
+					len = 0
+					for i in 0..(h.size-2)
+						v1,v2 = h[i],h[i+1]
+						this = @hsprings[[v1,v2]].imposed
+						puts "#{v1} - #{v2}   | "+  ("%0.2f" % this)
+						len += this
+					end
+					puts "LEN: #{len}"
+					ss
+				end
+				
+				return hpref,vpref
+			end
+			
+			# returns [] if there isn't one
+			def rec_paths(links, var1, var2)
+				all_paths = []
+				(links[var1] || []).each do |v, spring|
+					if v == var2
+						all_paths.push [var2]
+					else
+						all_paths = all_paths + rec_paths(links, v, var2)
+					end
+				end
+				all_paths.map{|x| [var1]+x}
+			end
+			
+			def inspect
+				s = ""
+				@hlink.each do |v1,a|
+					a.each do |v2, spring|
+						s += "#{v1.inspect} -> #{v2.inspect} (#{spring.inspect})\n"
+					end
+				end
+				s
+			end
+		end
+
+		def top_right(i); "#{@diag_id}_b#{i}_tr"; end
+		
+		def assign_variables(diag_id)
+			@boxes.each_with_index do |b, i|
+				b.v_tl = "#{diag_id}_b#{i}_tl"
+				b.v_br = "#{diag_id}_b#{i}_br"
+			end
+			@arrows.each_with_index do |a, i| 
+				a.v_start = "#{diag_id}_a#{i}_start"
+				a.v_end = "#{diag_id}_a#{i}_end"
+			end
+			@points.each_with_index do |p, i| 
+				p.v_p = "#{diag_id}_p#{i}_p"
+			end
+		end
+		
+		# in points 
+		def to_dev(x)
+			x * 10
+		end
+		
+		
+	end
+	
+end
+
+
+

data/lib/maruku/ext/diagrams/unittest.rb

@@ -0,0 +1,123 @@
+
+	Test0 = <<-EOF
++-+
+|A|
++-+
+
++-++
+|AB|
++-++
+
++---+
+|ABC|
++---+
+
++----+
+|ABCD|
++----+
+EOF
+
+Test1 = <<-EOF
+    /---------\\ 
+    |  Start  |
+    \\----+----/
+         |
+         V
+    +----+----+
+    |  Init   |
+    +----+----+
+         |
+         +<-----------+
+         |            ^
+         V            |
+    +----+----+       |
+    | Process |       |
+    +----+----+       |
+         |            |
+         V            |
+    +----+----+  yes  |
+    |  more?  +-------+
+    +----+----+
+         | no
+         V
+    /----+----\\ 
+    |   End   |
+    \\---------/
+EOF
+
+Test2=<<-EOF
+  +---------+         +---------+     +---------+
+  |  Shape  |         |  Line   |     |  Point  |
+  +---------+         +---------+   2 +---------+
+  | draw    +<--------+ start   +----O+ x       |
+  | move    +<-+      | end     |     | y       |
+  +---------+   \\     +---------+     +---------+
+                 \\                  
+                  \\   +---------+
+                   +--+ Circle  |
+                      +---------+
+                      | center  |
+                      | radius  |
+                      +---------+
+EOF
+
+Test3=(<<-EOF
+                        /-----------M     yes /----------M
+                    +-->| then this |--->*--->| and this |
+                   /    M-----------/    |no  M----------/
+/------------M    /                      |
+| First this |-->+                       |
+M------------/    M                      |
+                   M    /---------M      V        /------M
+                    +-->| or that |----->*------->| Done |
+                        M---------/               M------/
+EOF
+).gsub(/M/,"\\")
+
+require 'diagrams'
+
+include Diagrams
+
+
+Tests = [Test0, Test1 , Test3]
+
+diagrams = Tests.map{|s| Diagram.new(s)}
+
+
+
+require 'rexml/document'
+include REXML
+
+doc = Document.new 
+html = Element.new 'html', doc
+head = Element.new 'head', html
+body = Element.new 'body', html
+title = Element.new 'title', head
+title << Text.new("Titolo")
+style=Element.new 'link', head
+style.attributes['href'] = 'style.css'
+style.attributes['rel'] = 'stylesheet'
+style.attributes['type'] = 'text/css'
+head.add_element 'script', {'src'=>'adjust.js', 'type'=>"text/javascript"}
+
+diagrams.each do |d|
+	body << Text.new("Diagram ")
+	body << d.to_html 
+#\	body.add_element 'hr', {'style'=>'clear:both'}
+end
+
+File.open("tests.html",'w') do |f|
+ f.write '<?xml version="1.0" encoding="utf-8"?>
+<!DOCTYPE html PUBLIC
+   "-//W3C//DTD XHTML 1.1 plus MathML 2.0 plus SVG 1.1//EN"
+    "http://www.w3.org/2002/04/xhtml-math-svg/xhtml-math-svg.dtd">' unless true
+	doc.write(f)
+end
+
+
+
+diagrams.each_with_index do |d, i|
+	File.open("test#{i}.tex", 'w') do |f|
+		f.write d.to_latex
+	end
+end