if gantt.months < 7
  show_weeks = true
  headers_heigth = 2*header_heigth
  if gantt.months < 3
    show_days = true
#   headers_heigth = 3*header_heigth
    headers_heigth = 4*header_heigth #add
  end
end
 
g_width = 210
zoom = (g_width) / (gantt.date_to - gantt.date_from + 1)
g_height = 120
t_height = g_height + headers_heigth
 
y_start = pdf.GetY
 
# Months headers
month_f = gantt.date_from
left = subject_width
height = header_heigth
gantt.months.times do 
  width = ((month_f >> 1) - month_f) * zoom 
  pdf.SetY(y_start)
  pdf.SetX(left)
  pdf.Cell(width, height, "#{month_f.year}-#{month_f.month}", "LTR", 0, "C")
  left = left + width
  month_f = month_f >> 1
end  
 
# Weeks headers
if show_weeks
  left = subject_width
  height = header_heigth
  if gantt.date_from.cwday == 1
    # gantt.date_from is monday
    week_f = gantt.date_from
  else
    # find next monday after gantt.date_from
    week_f = gantt.date_from + (7 - gantt.date_from.cwday + 1)
    width = (7 - gantt.date_from.cwday + 1) * zoom-1
    pdf.SetY(y_start + header_heigth)
    pdf.SetX(left)
    pdf.Cell(width + 1, height, "", "LTR")
    left = left + width+1
  end
  while week_f <= gantt.date_to
    width = (week_f + 6 <= gantt.date_to) ? 7 * zoom : (gantt.date_to - week_f + 1) * zoom
    pdf.SetY(y_start + header_heigth)
    pdf.SetX(left)
    pdf.Cell(width, height, (width >= 5 ? week_f.cweek.to_s : ""), "LTR", 0, "C")
    left = left + width
    week_f = week_f+7
  end
end
 
# Days headers
 
if show_days
  left = subject_width
  height = header_heigth
  wday = gantt.date_from.cwday 
  day_num = gantt.date_from #add
  pdf.SetFontStyle('B',7)
  (gantt.date_to - gantt.date_from + 1).to_i.times do 
    width = zoom
    pdf.SetY(y_start + 2 * header_heigth)
    pdf.SetX(left)
    pdf.Cell(width, height, day_name(wday).first, "LTR", 0, "C")
    # add ここから
    pdf.SetY(y_start + 3 * header_heigth)
    pdf.SetX(left)
    pdf.Cell(width, height, day_num.day.to_s, "LTR", 0, "C")
    day_num = day_num + 1
　  # ここまで   
    left = left + width
    wday = wday + 1
    wday = 1 if wday > 7
  end
end

require 'rubygems'
require 'RMagick'
include Magick
pict = Image.new(200,200) {self.background_color = "white"}
pict.display
exit

mu = Image.new("mu.jpg")
mu.display
exit

mu.rotate(10).display
exit

mu.rotate(10).write("mu10.jpg")

require 'rubygems'
require 'RMagick'
 
cat = Magick::ImageList.new('ho.jpg')
cat.resize(0.1).display
exit

#!ruby -Ks
require 'win32ole'
ns = WIN32OLE.new('Notes.NotesSession')
 
sv = gets.chomp
fn = gets.chomp
 
db = ns.GetDatabase(sv, fn)
 
title = db.Title
puts "DBTitle:#{title}"
 
forms = db.Forms
 
forms.each{|form|
  puts "FormTitle:#{form.name}"
  fields = form.fields
  fields.each{|field|
    puts field
  }
}

require 'win32ole'
 
class Log
  def initialize(s)
    @@logger ||= Proc.new { |x| puts x }
    @@logger.call(s)
  end
 
  def Log.register_logger(p)
    @@logger = p
  end
end
 
class Notes
  class Session
    def initialize(server, dbname)
      @server, @dbname = server, dbname
      @session = WIN32OLE.new('Notes.NotesSession') or return nil
      @db = @session.GetDatabase(@Server, @dbname)
    end
 
    def each
      view = @db.GetView('Attachments')
      doc = view.GetFirstDocument
 
      while doc
        yield Notes::Document.new(doc)
        doc = view.GetNextDocument(doc)
      end
    end
    include Enumerable
 
    #添付ファイルをdirに書き出す
    def extract_files(dir)
      self.each do |doc|
        doc.each_attachment do |obj|
          name = obj.name
          Log.new "\t#{name}"
 
          #対象外の拡張子をチェックする
          ext = File.extname(name).downcase
          next if %w(htm html csv pif scr com bat).include?(ext)
 
          #書き出しメソッドを呼び出し
          doc.extract_file(name, "#{dir}/#{name}")
        end
      end
    end
 
    #添付ファイルをdir/fromに書き出す
    def extract_files_by_sender(dir, body_hash = nil)
      self.each do |doc|
        k = doc.unid
 
        #出力先の作成
        extract_dir = "#{dir}/#{k}"
        Dir.mkdir(extract_dir) unless File.exist?(extract_dir)
 
        doc.each_attachment do |obj|
          name = obj.name
          Log.new "\t#{name}"
          ext  = File.extname(name).downcase
          next if %w(htm html csv pif com bat).include?(ext)
          doc.extract_file(name, "#{extract_dir}/#{name}")
        end
      end
    end
  end
 
  class Document
    def initialize(doc)
      @doc = doc
    end
 
    def each_attachment
      a = @doc.Items or return
      a.each do |obj|
        yield Notes::Attachment.new(obj) if obj.Type == 1084 #ATTACHMENT
      end
    end
 
    def unid;    @doc.UniversalID; end
 
    def extract_file(name, path)
      obj = @doc.GetAttachment(name) or return
      begin
        obj.ExtractFile(path)
      rescue => e
        Log.new "**** #{e.message} ****"
      end
    end
  end
 
  class Attachment
    def initialize(obj)
      @obj = obj
    end
 
    def extract_file(path)
      @obj.ExtractFile(path)
    end
 
    def name
      @obj.Values[0]
    end
  end
end

require 'notesruby'
require 'optparse'
 
opt_hash = Hash.new
opt_hash['dir'] = '.'
 
p ARGV
ARGV.options do |opt|
    opt.on('-d [dir]') { |v| opt_hash['dir'] = v }
    opt.on('-s') { |v| opt_hash['same_folder'] = v }
    opt.parse!
end
 
dir = File.expand_path(opt_hash['dir'])
if !File.writable?(dir) || ARGV.size == 0
  Log.new "Usage: ruby #{$0} [-s] [-d dir] file [file...]"
  exit
end
 
body_hash = Hash.new
ARGV.each do |arg|
  if m = arg.match(/(.*)@(.*)/)
    nsf, svr = m[1, 2]
  else
    nsf, svr = [arg, '']
  end
 
  if db = Notes::Session.new(svr, nsf)
    Log.new "添付ファイル抽出...(#{arg})"
    if opt_hash['same_folder']
      db.extract_files(dir)
    else
      db.extract_files_by_sender(dir, body_hash)
    end
  end
end