ripxplore 0.14.1 → 0.15.1

data/lib/native_file_types/atari800/AtariBitmapFont.rb

@@ -0,0 +1,100 @@
+#8 bit Atari bitmap font
+
+generic_path=File.dirname(__FILE__)+'/../generic/'
+$:.unshift(generic_path) unless
+	$:.include?(generic_path) || $:.include?(File.expand_path(generic_path))
+
+require 'NativeFileType'
+require 'Font'
+
+class AtariBitmapFont<NativeFileType
+
+include Font  
+ 
+def self.file_system_file_types
+  {
+    AtariDos=>:any
+  }
+end
+
+def fontname
+	filename.sub(/\.FNT$/,'')
+end
+
+def	point_size
+	8
+end
+
+
+is_valid_file_if  lambda {file_type=="FNT" && contents.length==0x400}
+
+def get_charlist
+	if @charlist.nil? then
+		@charlist=[]
+		0x80.times do |i|
+			b=i
+			char_data={}
+			char_data[:native_encoding]=Atari800.screen_code_to_atascii(b)
+			char_data[:unicode_encoding]=Atari800.atascii_to_unicode(Atari800.screen_code_to_atascii(b))
+			char_data[:width]=8 #width in pixels
+	  		bitstreams = PNG::Canvas.new char_data[:width],point_size, 0
+			draw_bitmap(bitstreams,b,0,0,1)
+			char_data[:bitstreams]=bitstreams.data
+			@charlist<<char_data
+		end
+	end
+	@charlist
+end
+
+
+
+def char_width(a)
+	8
+end
+
+def draw_char(canvas,char,x,y,colour)
+	b=Atari800.char_to_screen_code(char)
+	return draw_bitmap(canvas,b,x,y,colour)
+end
+
+private
+def draw_bitmap(canvas,b,x,y,colour)
+  	8.times do |y_offset|
+	    font_byte=contents[b*8+y_offset]
+    	8.times do |x_offset|
+      		bit_mask=1<<(8-(x_offset+1))
+      		if ((font_byte & bit_mask)==bit_mask) then
+        		canvas[x+x_offset, y+y_offset]=colour
+      		end
+    	end
+   	end   
+	[x+8,y]
+end
+
+end
+
+
+# == Author
+# Jonno Downes (jonno@jamtronix.com)
+#
+# == Copyright
+# Copyright (c) 2008,2010 Jonno Downes (jonno@jamtronix.com)
+#
+#Permission is hereby granted, free of charge, to any person obtaining
+#a copy of this software and associated documentation files (the
+#"Software"), to deal in the Software without restriction, including
+#without limitation the rights to use, copy, modify, merge, publish,
+#distribute, sublicense, and/or sell copies of the Software, and to
+#permit persons to whom the Software is furnished to do so, subject to
+#the following conditions:
+
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/lib/native_file_types/atari800/AtariMicroPainterPic.rb

@@ -0,0 +1,57 @@
+#8 bit Atari bitmap font
+
+generic_path=File.dirname(__FILE__)+'/../generic/'
+$:.unshift(generic_path) unless
+	$:.include?(generic_path) || $:.include?(File.expand_path(generic_path))
+
+require 'NativeFileType'
+
+class AtariMicroPainterPic<NativeFileType
+
+def picture_width
+	320*2 #geoPain pics are 2 screens wide
+end
+def picture_height
+	record_nos.max*8*2
+end
+def picture_format
+  :png
+end
+ 
+def self.file_system_file_types
+  {
+    AtariDos=>:any
+  }
+end
+
+
+
+is_valid_file_if  lambda {contents.length==0x1E04}
+
+end
+
+
+# == Author
+# Jonno Downes (jonno@jamtronix.com)
+#
+# == Copyright
+# Copyright (c) 2008,2010 Jonno Downes (jonno@jamtronix.com)
+#
+#Permission is hereby granted, free of charge, to any person obtaining
+#a copy of this software and associated documentation files (the
+#"Software"), to deal in the Software without restriction, including
+#without limitation the rights to use, copy, modify, merge, publish,
+#distribute, sublicense, and/or sell copies of the Software, and to
+#permit persons to whom the Software is furnished to do so, subject to
+#the following conditions:
+
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/lib/native_file_types/atari800/AtariText.rb

@@ -15,6 +15,10 @@ end
 
 is_valid_file_if  lambda {file_type!="SYS"}
 
+is_valid_file_if  lambda {file_type!="FNT" || contents.length!=0x400} #exclude font files
+is_valid_file_if  lambda {contents.length!=0x1e04} #exclude MicroPainter files
+
+
 #exclude tokenised BASIC files (which start with 00 00 ??  01)
 is_valid_file_if  lambda {!((contents[0,2]=="\000\000") && (contents[3]==0x01))}
 

data/lib/native_file_types/c64/C64GeosFont.rb

@@ -8,10 +8,11 @@ require 'NativeFileType'
 
 require 'C64GeosFile'
 
+require 'Font'
+
 class C64GeosFont<C64GeosFile
 
-TEXT_COLOUR=C64::COLOR_DKGRAY
-BACKGROUND_COLOUR=C64::COLOR_LTGRAY
+include Font
 
 is_valid_file_if  lambda {(aux_code==:font)}
 is_valid_file_if  lambda {true} #dummy test to bump the score up so it exceeds C64GeosFile
@@ -23,68 +24,26 @@ def picture_height
 	240
 end
 
-def picture_format
-  :png
-end
-
-def font_format
-	:bdf
-end
-
-def  normalised_font_name(point_size=point_sizes.last)
-	"peekbot-#{filename.downcase.gsub(/\W/,"-")}#{ filename=~/\d$/ ? "" : "-"+point_size.to_s}"
-
-end
-
-#export font in Glyph Bitmap Distribution Format (BDF) 
-def to_font(point_size=point_sizes.last)
-	
-	s="
-STARTFONT 2.1
-FONT #{normalised_font_name(point_size)}	
-SIZE #{point_size} 75 75
-COMMENT image: #{file_system_image.filename}
-COMMENT filename: #{filename}
-COMMENT timestamp: #{Time.now}
-FONTBOUNDINGBOX #{char_height(point_size)} #{char_height(point_size)} 0 0
-STARTPROPERTIES 2
-FONT_ASCENT #{line_of_print(point_size)}
-FONT_DESCENT #{char_height(point_size)-line_of_print(point_size)}
-ENDPROPERTIES
-
-
-CHARS 95"	
-	(32..126).each do |b|
-
-		dwidth=char_width(point_size,b.chr) #width in pixels
-		swidth=(1000*dwidth)/point_size #width in 'Scalable Width' units
-
-		s<<"
-STARTCHAR U+#{"%04x" % b}
-ENCODING #{b}
-SWIDTH	#{swidth} 0
-DWIDTH #{dwidth} 0
-BBX #{dwidth} #{point_size} 0 #{line_of_print(point_size)-point_size}
-BITMAP
-"
-		lines=bitstreams(point_size,b.chr)		
-		lines.length.times do |line|
-			bitmap=0
-			dwidth.times do |pixel|
-				bitmap=bitmap<<1
-				bitmap+=1 if (lines[line][pixel]==1)
-			end
-			bitmap_byte_width=((dwidth+7)/8)
-			bitmap<<=((8-(dwidth%8))%8)
-			s<<("%0#{2*bitmap_byte_width}x\n" % bitmap)
+def font_description
+  first_letter=filename[0].chr
+  #some fonts have only upper case, some have only lower case, some have both
+  best_case_filename= (char_width(first_letter.upcase) > char_width(first_letter.downcase) ? filename.upcase : filename.downcase)
+  "#{best_case_filename} #{point_size}"
+end
+
+def get_charlist
+	if @charlist.nil? then
+		@charlist=[]
+		(32..126).each do |b|
+			char_data={}
+			char_data[:native_encoding]=b
+			char_data[:unicode_encoding]=b
+			char_data[:width]=char_width(b.chr) #width in pixels
+			char_data[:bitstreams]=bitstreams(b.chr)	
+			@charlist<<char_data
 		end
-		s<<"ENDCHAR\n"	
-	end	
-
-s<<"
-ENDFONT
-"
-	s
+	end
+	@charlist
 end
 
 def point_ids
@@ -98,14 +57,12 @@ def point_ids
 	end
 	@point_ids
 end
-def point_sizes
-	r=[]
-	@contents.length.times do |record_no|
-			next if record_no==0
-			r<<record_no-1 unless @contents[record_no].nil? 
-	end
-	r
+
+def point_size
+	#just use the biggest point size
+	record_nos.last-1
 end
+
 def lengths
 	if @lengths.nil? then
 		@lengths=[]
@@ -118,7 +75,8 @@ def lengths
 	@lengths
 end
 
-def char_width(point_size,char)
+def char_width(char)
+	
 	font_data=@contents[point_size+1]
 	return nil if font_data.nil?
 	bit_stream_index=font_data[0x04]+0x100*font_data[0x05]
@@ -130,24 +88,24 @@ def char_width(point_size,char)
 	width
 end
 
-def bytes_in_bitstream(point_size)
+def bytes_in_bitstream
 	font_data=@contents[point_size+1]
 	return nil if font_data.nil?
 	font_data[0x01]+font_data[0x02]*100	
 end
 
-def char_height(point_size)
+def char_height
 	font_data=@contents[point_size+1]
 	return nil if font_data.nil?
 	font_data[0x03]
 end
 
-def line_of_print(point_size)
+def line_of_print
 	font_data=@contents[point_size+1]
 	return nil if font_data.nil?
 	font_data[0x00]
 end
-def bitstreams(point_size,char)
+def bitstreams(char)
 	font_data=@contents[point_size+1]
 	return nil if font_data.nil?
 	bit_stream_index=font_data[0x04]+0x100*font_data[0x05]
@@ -157,10 +115,10 @@ def bitstreams(point_size,char)
 	start_of_next_char=font_data[char_pointer+bit_stream_index+2]+0x100*font_data[char_pointer+bit_stream_index+3]
 #	puts "# #{filename} #{point_size} #{char} #{start_of_char} - #{start_of_next_char}"
 	bitstream=[]
-	char_height(point_size).times do |line|
+	char_height.times do |line|
 		bitstream[line]=[]
 		bit_counter=0
-		start_of_line_bitstream=line*bytes_in_bitstream(point_size)+bit_stream_base
+		start_of_line_bitstream=line*bytes_in_bitstream+bit_stream_base
 		(start_of_char..start_of_next_char-1).each do |bit_offset|
 			byte_offset=bit_offset/8
 			bitmask=0b10000000>>(bit_offset % 8)
@@ -176,17 +134,9 @@ end
 
 
 
-def to_picture
-  require 'PatchedPNG'
-  canvas = PNG::Canvas.new picture_width,picture_height, BACKGROUND_COLOUR
-  draw_sampler(canvas)
-  png = PNG.new canvas
-  result=png.raw_bytes
-  result
-end
 
-  def draw_char(canvas,point_size,char,x,y,colour)
-  	lines=bitstreams(point_size,char)
+  def draw_char(canvas,char,x,y,colour)
+  	lines=bitstreams(char)
   	lines.length.times do |line|
   		lines[line].length.times do |pixel|
   			canvas[x+pixel,y+line]=colour if lines[line][pixel]==1
@@ -194,28 +144,11 @@ end
   	end
   end
 
-  def draw_string(canvas,point_size,string,start_x,start_y,colour)
-  	x=start_x
-  	y=start_y
-  	string.each_byte do |b|
-  		c=b.chr
-	  	width=char_width(point_size,c)
-	  	if (x+width>=picture_width) then
-	  		x=0
-	  		y+=point_size
-	  	end
-	  	break if (y+point_size)>=picture_height
-  		draw_char(canvas,point_size,c,x,y,colour)
-  		x+=width
-  	end
-  	[x,y]
-  end
   
 def meta_data
 	return super unless @contents.kind_of?(Array) && !info_block.nil?
 	@meta_data["geos_font_id"]="$%02x" % (info_block[0x80]+info_block[0x81]*100)
 	@meta_data["geos_font_point_ids"]=(point_ids.collect{|x| '$%04x' % x}).join(",")
-	@meta_data["geos_font_point_sizes"]=point_sizes.join(",")
 	@meta_data["geos_font_lengths"]=(lengths.collect{|x| '$%04x' % x}).join(",")
 #	point_sizes.each do |point_size|
 #		prefix="geos_font_point_size_#{point_size}"
@@ -232,39 +165,6 @@ def meta_data
 	super
 end
 
-private
-def draw_sampler(canvas)
-  raise "no valid point sizes" if point_sizes.length==0  
-  point_size=point_sizes[0]
-
-  
-  first_letter=filename[0].chr
-  #some fonts have only upper case, some have only lower case, some have both
-  best_case_filename= (char_width(point_size,first_letter.upcase) > char_width(point_size,first_letter.downcase) ? filename.upcase : filename.downcase)
-  x=0
-  y=0
-  point_sizes.each do |point_size|
-	  (x,y)=draw_string(canvas,point_size,"#{best_case_filename} #{point_size}",x,y,TEXT_COLOUR)
-	  x=0
-	  y+=point_size
-	  (32..126).each do |b|
-		c=b.chr
-		width=char_width(point_size,c)
-#	  	puts "#{filename} char #{c} - char width=#{width},x=#{x},y=#{y},#{picture_height}"
-		if (x+width)>=picture_width then
-#			puts "skipping at #{x} - w=#{width}"
-			x=0
-			y+=point_size
-		end
-		break if (y+point_size)>=picture_height
-		draw_char(canvas,point_size,c,x,y,TEXT_COLOUR)
-		x+=width
-	end
-  	x=0
-	y+=point_size		
-  end
-  
-end
 
 
 end

data/lib/native_file_types/generic/Font.rb

@@ -0,0 +1,173 @@
+
+$:.unshift(File.dirname(__FILE__)) unless
+	$:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+module Font
+	
+	def picture_format
+	  :png
+	end
+	
+	def font_format
+		:bdf
+	end
+	def picture_width
+ 		file_system_image.file_system.host_system.default_screen_width*file_system_image.file_system.host_system.font_width
+	end
+	def picture_height
+  		file_system_image.file_system.host_system.screen_rows*file_system_image.file_system.host_system.font_height
+	end
+		
+
+	def line_of_print
+		point_size
+	end
+
+	def char_height
+		point_size
+	end
+	
+	def font_description
+		"#{fontname} #{point_size.to_i}"
+	end
+
+	def  normalised_font_name
+		"peekbot-#{filename.downcase.gsub(/\W/,"-")}#{ filename=~/\d$/ ? "" : "-"+point_size.to_s}"
+	end
+
+	#export font in Glyph Bitmap Distribution Format (BDF) 
+	def to_font
+		
+		charlist=get_charlist
+		s="
+	STARTFONT 2.1
+	FONT #{normalised_font_name}	
+	SIZE #{point_size} 75 75
+	COMMENT image: #{file_system_image.filename}
+	COMMENT filename: #{filename}
+	COMMENT timestamp: #{Time.now}
+	FONTBOUNDINGBOX #{point_size} #{point_size} 0 0
+	STARTPROPERTIES 2
+	FONT_ASCENT #{line_of_print}
+	FONT_DESCENT #{char_height-line_of_print}
+	ENDPROPERTIES
+	
+	
+	CHARS #{charlist.length}"	
+		charlist.each do |char_data|
+			b=char_data[:unicode_encoding]
+			dwidth=char_data[:width]#char_width(b.chr) #width in pixels
+			swidth=(1000*dwidth)/point_size #width in 'Scalable Width' units
+			lines=char_data[:bitstreams]
+			char_height=lines.length
+			s<<"
+	STARTCHAR U+#{"%04x" % b}
+	ENCODING #{b}
+	SWIDTH	#{swidth} 0
+	DWIDTH #{dwidth} 0
+	BBX #{dwidth} #{char_height} 0 #{line_of_print-char_height}
+	BITMAP
+	"
+			
+			lines.length.times do |line|
+#				puts "line #{line} of #{lines.length} for char #{b}"
+				bitmap=0
+				dwidth.times do |pixel|
+					bitmap=bitmap<<1
+					bitmap+=1 if (lines[line][pixel]==1)
+				end
+				bitmap_byte_width=((dwidth+7)/8)
+				bitmap<<=((8-(dwidth%8))%8)
+				s<<("%0#{2*bitmap_byte_width}x\n" % bitmap)
+			end
+			s<<"ENDCHAR\n"	
+		end	
+	
+	s<<"
+	ENDFONT
+	"
+		s
+	end
+	
+	def to_picture
+	  require 'PatchedPNG'
+	  canvas = PNG::Canvas.new picture_width,picture_height, file_system_image.file_system.host_system.default_background_colour
+	  draw_sampler(canvas)
+	  png = PNG.new canvas
+	  result=png.raw_bytes
+	  result
+end
+
+  def draw_string(canvas,string,start_x,start_y,colour)
+  	x=start_x
+  	y=start_y
+  	string.each_byte do |b|
+  		c=b.chr
+	  	width=char_width(c)
+	  	if (x+width>=picture_width) then
+	  		x=0
+	  		y+=point_size
+	  	end
+	  	break if (y+point_size)>=picture_height
+  		draw_char(canvas,c,x,y,colour)
+  		x+=width
+  	end
+  	[x,y]
+  end
+
+private
+def draw_sampler(canvas)
+  
+  x=0
+  y=0
+  (x,y)=draw_string(canvas,font_description,x,y,file_system_image.file_system.host_system.default_foreground_colour)
+  x=0
+  y+=point_size
+  get_charlist.each do |char_data|
+	b=char_data[:native_encoding]
+	c=b.chr
+	width=char_data[:width]
+#	  	puts "#{filename} char #{c} - char width=#{width},x=#{x},y=#{y},#{picture_height}"
+	if (x+width)>=picture_width then
+#			puts "skipping at #{x} - w=#{width}"
+		x=0
+		y+=point_size
+	end
+	break if (y+point_size)>=picture_height
+	draw_char(canvas,c,x,y,file_system_image.file_system.host_system.default_foreground_colour)
+	x+=width
+	end
+	x=0
+	y+=point_size		
+  
+end
+
+
+  
+end
+
+  
+# == Author
+# Jonno Downes (jonno@jamtronix.com)
+#
+# == Copyright
+# Copyright (c) 2008,2009,2010 Jonno Downes (jonno@jamtronix.com)
+#
+#Permission is hereby granted, free of charge, to any person obtaining
+#a copy of this software and associated documentation files (the
+#"Software"), to deal in the Software without restriction, including
+#without limitation the rights to use, copy, modify, merge, publish,
+#distribute, sublicense, and/or sell copies of the Software, and to
+#permit persons to whom the Software is furnished to do so, subject to
+#the following conditions:
+
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.