mieki256's diary

◎ 試したこと。 :

.\PowerToysSetup-0.57.0-x64.exe --extract_msi

• xscreensaver : Linux や Mac で利用できる、スクリーンセーバの管理プログラム。
• Ruby : プログラミング言語。作者様は日本人。
• ruby-gtk2 : Ruby から gtk2(GUIツールキット)を制御できるライブラリ。今現在は gtk3 が主流になりつつあるけど…。

◎ 参考にしたスクリプト。 :

◎ 必要なパッケージのインストール。 :

sudo apt install ruby-gtk2

◎ ソース。 :

#!/usr/bin/ruby
# encoding: UTF-8

require "gtk2"
require "logger"

# for gtk2
SIGNAL_DRAW = "expose_event"

# for gtk3
# SIGNAL_DRAW = "draw"

TMOUT = 16

$drawing_area = nil
$logger = Logger.new("/tmp/rubysaver-#{ENV["USER"]}.log", "monthly")

class RubyXscrApp < Gtk::Window
  def initialize
    super

    set_title "xscreensaver module"

    signal_connect "destroy" do
      $logger.warn "EXIT by destroy"
      Gtk.main_quit
    end

    signal_connect "delete-event" do
      $logger.warn "EXIT by delete-event"
      Gtk.main_quit
      false
    end

    signal_connect "delete_event" do
      $logger.warn "EXIT by delete_event"
      Gtk.main_quit
      false
    end

    realize

    ident = ENV["XSCREENSAVER_WINDOW"]
    if not ident.nil?
      $logger.warn "XSCREENSAVER_WINDOW = #{ident}"
      self.window = Gdk::Window.foreign_new(ident.to_i(16))
      self.window.set_events(Gdk::Event::EXPOSURE_MASK | Gdk::Event::STRUCTURE_MASK)

      x, y, width, height, depth = self.window.geometry
      # puts "window = #{self.window}, (x,y,w,h) = #{x}, #{y}, #{width}, #{height}"
      $logger.warn "window = #{self.window}, (x,y,w,h) = #{x}, #{y}, #{width}, #{height}"

      set_default_size width, height
      move(x, y)
      # set_window_position :center
    else
      x, y, width, height, depth = self.window.geometry
      width, height = 640, 360
      set_default_size width, height
      set_window_position :center
      puts "window = #{self.window}, (w,h) = #{width}, #{height}"
    end

    @x = width / 2
    @y = height / 2
    @dx = width.to_f / (60 * 1)
    @dy = height.to_f / (60 * 1.5)

    $drawing_area = @darea = Gtk::DrawingArea.new
    @bgcol = Gdk::Color.new(0x2000, 0x4000, 0xa000)
    @darea.modify_bg(:normal, @bgcol)
    @darea.set_size_request(width, height)

    @darea.signal_connect SIGNAL_DRAW do |widget, event|
      on_draw widget
    end

    @fixed = Gtk::Fixed.new
    @fixed.put(@darea, 0, 0)
    add(@fixed)

    show_all
  end

  def on_draw(widget)
    cr = widget.window.create_cairo_context
    x, y, width, height, depth = widget.window.geometry

    # update position
    r = 24
    @x += @dx
    @y += @dy
    @dx *= -1 if (@x <= r or @x >= width - r)
    @dy *= -1 if (@y <= r or @y >= height - r)

    # clear bg
    cr.set_source_rgb(0.1, 0.3, 0.5)
    cr.paint

    # draw circle
    cr.set_source_rgb(1.0, 0.0, 0.0)
    cr.arc(@x, @y, r, 0, 2 * Math::PI)
    cr.fill

    cr.destroy
  end
end

Gtk.init
window = RubyXscrApp.new

# animation
GLib::Timeout.add(TMOUT) do
  $drawing_area.queue_draw if (not $drawing_area.nil?)
  true
end

Gtk.main

programs:                                                                     \
                   "RUBYSAVER"                                                \
                                  /home/USERNAME/prg/ruby/ruby-gtk2/04_xscrsav.rb \n\
                                maze -root                                  \n\

◎ 問題点。 :

$ xscreensaver-settings: 06:27:44: XScreenSaver-debug: Name com.canonical.AppMenu.Registrar does not exist on the session bus
Gdk-WARNING **: GdkWindow 0x5000023 unexpectedly destroyed
        from /home/USERNAME/prg/ruby/ruby-gtk2/04_xscrsav.rb:125:in `<main>'

◎ 少し解説。 :

    ident = ENV["XSCREENSAVER_WINDOW"]
    if not ident.nil?
      # xscreensaver

      self.window = Gdk::Window.foreign_new(ident.to_i(16))
      self.window.set_events(Gdk::Event::EXPOSURE_MASK | Gdk::Event::STRUCTURE_MASK)
      x, y, width, height, depth = self.window.geometry
      set_default_size width, height
      move(x, y)
    else
      # not xscreensaver

      x, y, width, height, depth = self.window.geometry
      width, height = 640, 360
      set_default_size width, height
      set_window_position :center
    end

GLib::Timeout.add(TMOUT) do
  $drawing_area.queue_draw if (not $drawing_area.nil?)
  true
end

    $drawing_area = @darea = Gtk::DrawingArea.new
    @bgcol = Gdk::Color.new(0x2000, 0x4000, 0xa000)
    @darea.modify_bg(:normal, @bgcol)
    @darea.set_size_request(width, height)
...
    @fixed = Gtk::Fixed.new
    @fixed.put(@darea, 0, 0)
    add(@fixed)

◎ 懸念事項。 :

◎ 参考ページ。 :

◎ pygameに求められる条件。 :

◎ OS側の事情。 :

◎ Windowsは条件が緩い。 :

◎ プリンタから印刷できない件。 :

◎ PCがビープ音を鳴らし続けて起動しない件。 :

◎ 定点観測カメラをどうにかできないものか。 :

◎ はみ出した部分を削除することはできる。 :

◎ GIMPを併用して対処した。 :

◎ 3Dプリンタ、いいよなあ。 :

◎ ネジの種類についてメモ。 :

"Beta Updates": http://preview.appcelerator.com/aptana/studio3/standalone/update/beta/

◎ 余談。 :

#!ruby -Ks
# -*- mode: ruby; encoding: sjis -*-
# DXRuby で openFilename() 等の実行後、マウスクリックが検出不可になる症状のテスト

require 'dxruby'
require 'win32ole'

fnt = Font.new(12)
fpath, dpath = "", ""

Window.loop do
  Window.bgcolor = [0, 0, 0]
  break if Input.keyPush?(K_ESCAPE)
  if Input.mousePush?(M_LBUTTON)
    my = Input.mousePosY
    if my < Window.height / 3
      Window.bgcolor = [255, 0, 0] # 背景色を赤に
    elsif my < Window.height * 2 / 3
      path = Window.openFilename([["ALL Files (*.*)", "*.*"]], "ファイル選択")
      fpath = (path != nil)? path : "cancel"
    else
      app = WIN32OLE.new('Shell.Application')
      path = app.BrowseForFolder(0, "フォルダ選択", 0)
      if path
        begin
          dpath = path.Items.Item.path
        rescue
          dpath = "?"
        end
      else
        dpath = "cancel"
      end
    end
  end
  l = ["画面の上側でクリック : 画面フラッシュ",
       "画面の真ん中でクリック : Window.openFilename()",
       "[#{fpath}]",
       "画面の下側でクリック : WIN32OLE + ダイアログ",
       "[#{dpath}]",
      ]
  x, y = 16, 16
  l.each do |s|
    Window.drawFont(x, y, s, fnt)
    y += fnt.size + 16
  end
  x0, x1 = 0, Window.width
  y = Window.height / 3
  Window.drawLine(x0, y, x1, y, C_WHITE)
  y = Window.height * 2 / 3
  Window.drawLine(x0, y, x1, y, C_WHITE)
end

• ocra --windows hoge.rb で作った exe から呼び出すと、WSH(cscript.exe)を呼んだタイミングでコマンドプロンプトが開いてしまう。
• しかも、結果文字列を受け取れない。

' フォルダ選択ダイアログを開いて、選択されたフォルダパスを返す VBScript
' 結果文字列をクリップボードに入れてから終了する。

Option Explicit
On Error Resume Next

Dim oParam, oShell, oFolder, s, dirname, objIe

Set oParam = WScript.Arguments
If oParam.Length > 0 Then
    s = oParam(0)
Else
    s = "フォルダを選択してください"
End If
dirname = "::"

Set oShell = WScript.CreateObject("Shell.Application")
If Err.Number = 0 Then
    Set oFolder = oShell.BrowseForFolder(0, s, 0)
    If Not oFolder Is Nothing Then
        ' フォルダ選択がされた場合
        dirname = oFolder.Items.Item.Path
    Else
        ' キャンセルされた場合
        dirname = ""
    End If
Else
    ' エラーが発生した場合
    ' WScript.Echo "エラー：" & Err.Description
    dirname = ""
End If

' 結果を出力
' WScript.Echo dirname

' 結果をクリップボードにコピー
Const OLECMDID_COPY = 12
Const OLECMDID_SELECTALL = 17
Const OLECMDEXECOPT_DODEFAULT = 0
Set objIe = CreateObject("InternetExplorer.Application")
' objIe.Visible = true
objIe.Navigate "about:blank"
Do While objIe.Busy
    WScript.Sleep 100
Loop

objIe.Document.Body.InnerText = dirname
objIe.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
objIe.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
objIe.Quit

Set objIe = Nothing

Set dirname = Nothing
Set s = Nothing
Set oFolder = Nothing
Set oShell = Nothing
Set oParam = Nothing

#!ruby -Ks
# -*- mode: ruby; encoding: sjis -*-
#
# DXRubyを使ったスクリプト中から、
# WSH(.vbs)でフォルダ選択ダイアログを開き、結果を受け取ってみる
#
# 以前は、cscript.exe を呼び、標準出力経由で結果を受け取っていたが、
# それだとコマンドプロンプトが開いてしまって鬱陶しいので、
# wscript.exe を呼び、かつ、クリップボード経由で受け取るようにしてみた。

require 'rubygems'
require 'dxruby'
require 'win32/clipboard'
include Win32

fpath = ENV['OCRA_EXECUTABLE'] || $0
cdir = File.dirname(File.expand_path(fpath))
fnt = Font.new(12)
folder = ""
cnt = 0

Window.loop do
  break if Input.keyPush?(K_ESCAPE)
  
  if Input.keyPush?(K_Z)
    title = "フォルダを選択してください (・ωｰ)〜☆"
    wsh_fname = File.join(cdir, "select_open_folder.vbs")
    %x[wscript "#{wsh_fname}" "#{title}"] # WSH呼び出し

    # クリップボードにフォルダパスが入っているはず
    folder = Clipboard.data
    puts folder
    
    folder.chomp! # 返ってきた文字列には改行も含まれているので除去 
    folder = "" if folder =~ /^::/ # 特殊フォルダを選択された際の対策
  end

  l = [
       "#{cnt}",
       "Zキー : フォルダ選択ダイアログを開く",
       "ESC  : 終了",
       "[#{folder}]",
      ]
  x, y = 16, 16
  l.each do |s|
    Window.drawFont(x, y, s, fnt)
    y += fnt.size + 8
  end
  cnt += 1
end

;; vbnet-mode

(require 'vbnet-mode)
(add-to-list 'auto-mode-alist '("\\.vbs$" . vbnet-mode)) ; .vbsに関連付け

;; auto-complete の対象にする
(add-to-list 'ac-modes 'vbnet-mode)

┬─ レイヤーグループ ┐
│                    ├─ L4 (テキストレイヤー)
│                    ├─ レイヤー#2 (通常レイヤー)
│                    └─ レイヤー#1 (通常レイヤー)
├─ レイヤー (通常レイヤー)
└─ 背景

• 「;; 〜」は説明のために後から書いたコメント。
• 実際に打ち込んだのは、「> 〜」の行だけ。

> (gimp-version)
("2.8.0")

;; ----------------------------------------
;; 画像の管理番号を定義

> (define image 1)
image

;; ----------------------------------------
;; レイヤーの個数と、レイヤーIDのリスト？を取得する。

> (gimp-image-get-layers image)
(3 #(4 3 2))

;; レイヤー個数が「3」になっている。本当は5枚あるはずなのに…。
;; つまり、レイヤーグループは1枚のレイヤーとしてカウントされていて、
;; レイヤーグループ内のレイヤーは無視(?)される。

;; ----------------------------------------
;; レイヤーIDのリスト(?)だけを取り出し

> (define layer-array (cadr (gimp-image-get-layers image)))
layer-array

;; ----------------------------------------
;; 1番上、2番目、3番目のレイヤーIDを取り出し

> (aref layer-array 0)
4
> (aref layer-array 1)
3
> (aref layer-array 2)
2

;; ----------------------------------------
;; レイヤー1番目、2番目、3番目が、レイヤーグループかどうかを調べる

> (gimp-item-is-group (aref layer-array 0))
(1)
> (gimp-item-is-group (aref layer-array 1))
(0)
> (gimp-item-is-group (aref layer-array 2))
(0)

;; レイヤーグループなら (1) が、通常のレイヤーなら (0) が返ってくるらしい。
;; …その、(1) とか (0) って、どうやって条件分岐で判定すればいいのやら。
;; どうして #t や #f で教えてくれないのだろう…。

;; ----------------------------------------
;; レイヤー1番目、2番目、3番目のIDを別変数？に定義

> (define l0 (aref layer-array 0))
l0
> (define l1 (aref layer-array 1))
l1
> (define l2 (aref layer-array 2))
l2

;; ----------------------------------------
;; レイヤー1番目、2番目、3番目に子供がいたら、その子供の情報を取得

> (gimp-item-get-children l0)
(3 #(7 6 5))
> (gimp-item-get-children l1)
Error: (<unknown> : 55536036) Procedure execution of gimp-item-get-children failed 
> (gimp-item-get-children l2)
Error: (<unknown> : 55533596) Procedure execution of gimp-item-get-children failed 

;; レイヤー1番目はレイヤーグループなので子供が居る・値が得られたが、
;; レイヤー2番目と3番目は通常のレイヤーなのでエラーになっている。
;; レイヤーグループのIDに対して (gimp-item-get-children item) を行うと、
;; (gimp-image-get-layers image) と似たような値を返すらしい？

• 得られたレイヤーIDを使って、そのレイヤーがレイヤーグループか否かを調べる。
• 通常レイヤーなら、旧来通りの処理をする。
• レイヤーグループなら、子供の情報(そのレイヤーグループが持っているレイヤーの個数とレイヤーIDのリスト)を取得して、各レイヤーに対する処理を繰り返す。

> (gimp-version)
("2.8.0")

> (gimp-version)
("2.6.11")

• DVD MovieWriter で2層DVDに収まる容量のDVD-Videoを作り、それを DVD Shrink で容量削減。
• TDA3(TMPGEnc DVD Author 3)で、1層DVD分の容量に削減。

◎ それにしても面倒だな。 :

◎ 1人でロボットを倒す人間の回 :

◎ 新造人間を作る街の回 :

◎ 涙の電光パンチの回 :

• 道を尋ねた農婦からオレンジを貰ってしまうルパン。
• タイヤがはまって後ろから必死に押す次元。
• ガス欠で馬に引かれるフィアット。
• ガソリン缶をかかえて歩いてくる次元。

◎ 電波障害対策用のVHFアンテナって :