mieki256's diary

◎ ソース。 :

gcc 08rasterscroll.c -o 08rasterscroll -I /usr/include/X11 -lX11 -lXext -lm -lXpm

./08rasterscroll

◎ 使い方。 :

◎ インストール。 :

pacman -S fzy

$ fzy --version
fzy 1.0 (C) 2014-2018 John Hawthorn

◎ pcdをインストール。 :

mkdir ~/.peco
touch ~/.peco/.peco-cd

function pcd() {
  local PCD_FILE=$HOME/.peco/.peco-cd
  local PCD_RETURN
  if [ $1 ] && [ $1 = "add" ]; then
    if [ $2 ]; then
      ADD_DIR=$2
      if [ $2 = "." ]; then
        ADD_DIR=$(pwd)
      fi
      echo "add $ADD_DIR to $PCD_FILE"
      echo $ADD_DIR >> $PCD_FILE
    fi
  elif [ $1 ] && [ $1 = "edit" ]; then
    if [ $EDITOR ]; then
       $EDITOR $PCD_FILE
    else
       # editor $PCD_FILE
       nano $PCD_FILE
    fi
  elif [ $1 ] && [ $1 = "." ]; then
    PCD_RETURN=$(/bin/ls -F | grep /$ | fzy -l 20)
  else
    PCD_RETURN=$(cat $PCD_FILE | fzy -l 20)
  fi
  if [ $PCD_RETURN ]; then
    cd $PCD_RETURN
  fi
}

function cdp {
  local dir="$( find . -maxdepth 1 -type d | sed -e  's;\./;;' | sort | fzy -l 20 )"
  if [ ! -z "$dir" ] ; then
    cd "$dir"
  fi
}

if [ -f "${HOME}/.bash_pcd" ]; then
  source "${HOME}/.bash_pcd"
fi

◎ 参考ページ。 :

1. WR9500Nの背面スイッチをAPに切替。これで無線LANアクセスポイントモードで動作する。
2. ネットに繋がってるルータと、WR9500NのWAN側ポートをLANケーブルで接続。
3. 電源を投入。POWER LEDのみが緑色で点灯して、1分ぐらいかかってから他のLEDも点灯。
4. 設定を初期化しておく。本体のRESET穴を、つまようじ等の通電しない細い何かで押す。10秒ほど押し続けるとPOWER LEDが赤く点滅。電源を落として、10秒ほど待って、電源再投入。
5. PCから、http://192.168.x.211/ にアクセスしてみる。パスワード登録画面が表示される。
6. パスワードを登録すると、クイックWeb設定画面が表示される。

◎ 問題。 :

◎ ASCIIコードとディスプレイコードの変換で悩む。 :

◎ Windows上でのwait処理。 :

function love.load()
  min_dt = 1 / 60
  next_time = love.timer.getTime()
end

function love.update(dt)
  next_time = next_time + min_dt
end

function love.draw()
  if love.system.getOS() == "Windows" then
    -- wait
    local cur_time = love.timer.getTime()
    if next_time <= cur_time then
      next_time = cur_time
    else
      love.timer.sleep(next_time - cur_time)
    end
  end
end

function love.load()

end

function love.update(dt)

end

function love.draw()

end

function love.conf(t)
  t.window.title = "Tilemap Test 02"
  t.version = "11.1"
  t.window.width = 640
  t.window.height = 480
  t.window.vsync = 1
  t.console = true
  -- t.window.fullscreen = true
  -- t.window.fullscreentype = "exclusive"
end

./hns-index2 | nkf -w

#!/bin/sh
/home/hoge/fuga/piyo/hns-index2 | /usr/bin/nkf -w

cpan
(もしくは perl -MCPAN -e shell )

o conf
o conf urllist
o conf urllist pop
o conf urllist pop
(全部消えるまで繰り返す)
o conf commit

o conf urllist push http://ftp.riken.jp/lang/CPAN/
o conf urllist push http://ftp.nara.wide.ad.jp/pub/CPAN/
o conf commit
quit

◎ 参考ページ。 :

◎ M/BのBIOS設定を変更。 :

◎ ethtoolをインストール。 :

sudo apt-get install ethtool
sudo ethtool eth0

sudo vi /etc/init.d/wakeonlanconfig

#!/bin/bash
ethtool -s eth0 wol g
exit

$ sudo chmod 755 /etc/init.d/wakeonlanconfig
$ sudo update-rc.d -f wakeonlanconfig defaults

◎ Windowsから起こしてみる。 :

◎ Ubuntu に LXDE 等をインストール。 :

sudo aptitude install lubuntu-desktop lxde

sudo aptitude install xrdp

cd ~ 
sudo apt-get update
sudo apt-get upgrade
sudo apt-get install git libxrandr-dev libtool autoconf automake libjpeg-dev tightvncserver
mkdir package
cd package
git clone https://github.com/scarygliders/X11RDP-o-Matic.git
cd X11RDP-o-Matic
sudo ./X11rdp-o-matic.sh --justdoit
(または sudo ./X11rdp-o-matic.sh --justdoit --withsound --withjpeg --branch master)

dpkg -l xrdp x11rdp

echo "lxsession -s LXDE -e LXDE" > ~/.xsession

◎ Windowsからアクセスして動作確認。 :

◎ リモートデスクトップ接続は諦めてVNCを使うことにした。 :

alias vncstart='vncserver :1 -geometry 1280x800 -depth 24'
alias vncstop='vncserver -kill :1'

#!/bin/sh

# unset SESSION_MANAGER

unset DBUS_SESSION_BUS_ADDRESS
export GTK_IM_MODULE=ibus
export XMODIFIERS="@im=ibus"
export QT_IM_MODULE=ibus
/usr/bin/ibus-daemon -dxr

xrdb $HOME/.Xresources
xsetroot -solid grey

#x-terminal-emulator -geometry 80x24+10+10 -ls -title "$VNCDESKTOP Desktop" &
#x-window-manager &
# Fix to make GNOME work
export XKL_XMODMAP_DISABLE=1
/etc/X11/Xsession

◎ 参考ページ。 :

生ハムは、燻製はするが加熱しないもの（ラックスハム）、塩漬け・乾燥のみで燻製しないもの（プロシュットやハモン・セラーノなど）に分かれる。

ハム - Wikipedia より

ところが、生ハムの場合は、燻蒸せず、そのまま冷暗所で乾燥させながら熟成させるだけなんだよね。

生ハムの場合は普通のハムよりかなりきつめに塩をしているので、その保存効果は高まるんだけど、さらに乾燥させることで水分を飛ばすので、その保存効果が高まるのだ。
細菌（バクテリア）なんかは高い塩分濃度と乾燥で増殖が抑えられるので十分に効果があるんだよね。 ウイルスの場合は、自分で増えるものではなく、感染した宿主のメカニズムを使って増えるので増殖を抑えるとかそういうことでは防げないのだ。

しろたん調査部: 生ハムは「生」だけど豚肉を生食してよいのか より

ただ，アメリカでは自家製の生ハムなどが感染源だった例があるという研究報告はみつけました。

生ハムを避けることが妊婦のトキソプラズマ症予防となるのか？ | 魚野剣太郎中小企業診断士事務所 より

それは、レアステーキや生ハムなどの加熱が不十分な肉、ガーデニングなどの土いじりです。寄生虫「トキソプラズマ」が原因です。

妊娠時 寄生虫 "トキソプラズマ"の危険 | 健康・医療 | NHK生活情報ブログ:NHK より

◎ 宗教で規制するか法律で規制するか。 :

require 'dxruby'

# 4点を指定して射影変換描画
class ProjTrans

  attr_accessor :images
  attr_accessor :src_w
  attr_accessor :src_h
  attr_accessor :divx, :divy
  attr_accessor :mdivx, :mdivy
  attr_accessor :src_pos
  attr_accessor :src_idx

  # コンストラクタ
  #
  # @param [Object] img Imageオブジェクト
  # @param [Number] divx x方向の分割数
  # @param [Number] divy y方向の分割数
  #
  def initialize(img, divx = 8, divy = 8)
    self.divx = divx
    self.divy = divy
    self.src_w, self.src_h = img.width, img.height
    self.images = img.sliceTiles(divx, divy) # 画像を分割

    # 頂点列を登録
    self.src_pos = []
    w, h = 0, 0
    bx, by = 0, 0
    i = 0
    (0..self.divy).each do |iy|
      bx = 0
      (0..self.divx).each do |ix|
        if ix < self.divx and iy < self.divy
          i = iy * self.divx + ix
          w = self.images[i].width
          h = self.images[i].height
        end
        puts "#{i} : (#{bx}, #{by})" if false

        # 元画像のサイズで座標値を割っておく
        self.src_pos.push([bx.to_f / self.src_w, by.to_f / self.src_h])

        bx += w
        i += 1
      end
      by += h
    end

    # 頂点番号を登録
    self.src_idx = []
    self.divy.times do |iy|
      self.divx.times do |ix|
        addy = self.divx + 1
        i = ix + iy * addy
        self.src_idx.push([i, i + 1, i + 1 + addy,  i + addy])
      end
    end

    if false
      self.src_idx.each_with_index {|a, i| puts "#{i} : #{a}" }
    end
  end

  # 描画
  #
  # @param [Number] x1 点1のx座標
  # @param [Number] y1 点1のy座標
  # @param [Number] x2 点2のx座標
  # @param [Number] y2 点2のy座標
  # @param [Number] x3 点3のx座標
  # @param [Number] y3 点3のy座標
  # @param [Number] x4 点4のx座標
  # @param [Number] y4 点4のy座標
  # @param [Number] alpha アルファ値 0-255
  # @param [Number] z 描画深度
  # @param [Number] blend 合成種類
  # @param [Number] mdivx drawMorphに与えるx方向の分割数
  # @param [Number] mdivy drawMorphに与えるy方向の分割数
  #
  def draw(x1, y1, x2, y2, x3, y3, x4, y4,
           alpha = 255, z = 0, blend = :alpha,
           mdivx = 2, mdivy = 2)

    # a から h までの、8つの係数を求める
    sa, sb, sc, sd, se, sf, sg, sh = get_system(x1.to_f, y1.to_f,
                                                x2.to_f, y2.to_f,
                                                x3.to_f, y3.to_f,
                                                x4.to_f, y4.to_f)

    # 射影変換
    d = []
    self.src_pos.each do |x, y|
      m = (x * sg + y * sh + 1)
      u = (x * sa + y * sb + sc) / m
      v = (x * sd + y * se + sf) / m
      d.push([u, v])
    end

    self.src_idx.each_with_index do |a, i|
      i0, i1, i2, i3 = a
      Window.drawMorph(d[i0][0], d[i0][1],
                       d[i1][0], d[i1][1],
                       d[i2][0], d[i2][1],
                       d[i3][0], d[i3][1],
                       self.images[i],
                       :dividex => mdivx, :dividey => mdivy,
                       :alpha => alpha, :z => z, :blend => blend)
    end

  end

  # 8つの係数を求める
  #
  # @note 変換式に与える座標値を元画像のサイズで割らないとこの係数は使えない
  #
  # @param [Number] x0 点1のx座標
  # @param [Number] y0 点1のy座標
  # @param [Number] x1 点2のx座標
  # @param [Number] y1 点2のy座標
  # @param [Number] x2 点3のx座標
  # @param [Number] y2 点3のy座標
  # @param [Number] x3 点4のx座標
  # @param [Number] y3 点4のy座標
  # @return [Array] 8つの係数を配列で返す
  #
  def get_system(x0, y0, x1, y1, x2, y2, x3, y3)
    sx = (x0 - x1) + (x2 - x3)
    sy = (y0 - y1) + (y2 - y3)
    dx1 = x1 - x2
    dx2 = x3 - x2
    dy1 = y1 - y2
    dy2 = y3 - y2
    z = (dx1 * dy2) - (dy1 * dx2)
    g = ((sx * dy2) - (sy * dx2))/z
    h = ((sy * dx1) - (sx * dy1))/z

    return [
            x1 - x0 + g * x1,
            x3 - x0 + h * x3,
            x0,
            y1 - y0 + g * y1,
            y3 - y0 + h * y3,
            y0,
            g,
            h
            ]
  end
end

if $0 == __FILE__
  # ----------------------------------------
  # 動作確認

  img = Image.load("lena.png")
  prt = ProjTrans.new(img)

  if false
    # ----------------------------------------
    # 簡単な使い方の例

    Window.loop do
      break if Input.keyPush?(K_ESCAPE)

      alpha = 255
      z = 0
      blend = :alpha
      divx = 2
      divy = 2

      # 左上の点から時計回りに4点を指定
      prt.draw(160, 100,
               320, 20,
               600, 460,
               100, 300,
               alpha, z, blend, divx, divy)
    end

  else
    # ----------------------------------------
    # 動作確認

    font = Font.new(14)
    step = 0
    pos = []
    poly_pos = []
    morph_enable = false
    mdiv = 1

    Window.loop do
      break if Input.keyPush?(K_ESCAPE)

      if Input.mousePush?(M_LBUTTON)
        # マウスの左ボタンが押されたので座標を記録
        pos = [] if step == 0
        pos.push([Input.mousePosX, Input.mousePosY])
        step += 1
        if step >= 4
          # 4点が入力された
          step = 0
          poly_pos = pos.dup
        end
      end

      # zキーが押されたら drawMorph で描画するかどうかを切替
      morph_enable = !morph_enable if Input.keyPush?(K_Z)

      # 上下キーで分割数を変更 (1から64まで。128にすると落ちる…)
      mdiv *= 2 if (Input.keyPush?(K_UP) and mdiv < 64)
      mdiv /= 2 if (Input.keyPush?(K_DOWN) and mdiv >= 2)

      if poly_pos.size == 4
        # 4点が決まってるので、画像を変形して描画
        x1, y1 = poly_pos[0]
        x2, y2 = poly_pos[1]
        x3, y3 = poly_pos[2]
        x4, y4 = poly_pos[3]

        unless morph_enable
          # 射影変換で描画する場合
          prt.draw(x1, y1, x2, y2, x3, y3, x4, y4, 255, 0, :alpha, mdiv, mdiv)
        else
          # drawMorphで描画する場合
          Window.drawMorph(x1, y1, x2, y2, x3, y3, x4, y4, img,
                           :dividex => mdiv, :dividey => mdiv)
        end
      end

      # 指定済みの頂点位置を描画
      d = 5
      pos.each do |p|
        x, y = p
        Window.drawLine(x - d, y, x + d, y, C_GREEN)
        Window.drawLine(x, y - d, x, y + d, C_GREEN)
      end

      i = step + 1
      y = 2
      msg = [
        "#{Window.real_fps.to_i} FPS  CPU: #{Window.getLoad.to_i} %",
        "zキー : drawMorph 描画との切替 [#{(morph_enable)? "drawMorph" : "射影変換"}]",
        "↑↓キー : drawMorph 分割数 [#{mdiv}]",
        "時計回りで、4回、マウスクリックしてください (#{step+1}/4)"
      ].each_with_index do |s, iy|
        Window.drawFont(4, 2 + iy * (font.size + 8), s, font)
      end
    end
  end

end

# ProjTransの使用例

require 'dxruby'
require_relative 'projtrans'

img = Image.load("lena.png")
prt = ProjTrans.new(img)

Window.loop do
  break if Input.keyPush?(K_ESCAPE)

  alpha = 255
  z = 0
  blend = :alpha
  divx, divy = 2, 2

  # 左上の点から時計回りに4点を指定
  prt.draw(160, 100, 320, 20, 600, 460, 100, 300,
           alpha, z, blend, divx, divy)
end

1. 元画像を 4x4 とか 8x8分割。
2. 4点を指定することで、射影変換の変換式で使う8つの係数を求める。
3. 分割された各画像に対して、射影変換後の4点を求める。
4. その4点で、Window.drawMorph を使って描画。

◎ 問題点。 :

◎ 参考ページ。 :

# class, Struct, Array のベンチマーク

require 'benchmark'

IDX = 0

class Hoge
  attr_accessor :data

  def initialize(d = 0)
    self.data = d
  end
end

Fuga = Struct.new(:data)

Benchmark.bmbm { |x|
  x.report("class-new   ") { 1000000.times { val = Hoge.new(0) } }

  x.report("Struct-new  ") { 1000000.times { val = Fuga.new(0) } }

  x.report("Array-new   ") { 1000000.times { val = [0] } }

  val = Hoge.new
  x.report("class-data= ") { 1000000.times { val.data = 0 } }

  val = Fuga.new
  x.report("Struct-data=") { 1000000.times { val.data = 0 } }

  a = [0, 0, 0, 0]
  x.report("Array-data= ") { 1000000.times { a[IDX] = 0 } }

  v = Hoge.new(0)
  x.report("=class-data ") { 1000000.times { b = v.data } }

  v = Fuga.new(0)
  x.report("=class-data ") { 1000000.times { b = v.data } }

  a = [0, 0, 0, 0]
  x.report("=Array-data ") { 1000000.times { b = a[IDX] } }
}

> ruby --version
ruby 1.9.3p545 (2014-02-24) [i386-mingw32]

> ruby struct_bench.rb
Rehearsal ------------------------------------------------
class-new      0.312000   0.000000   0.312000 (  0.314018)
Struct-new     0.265000   0.000000   0.265000 (  0.261015)
Array-new      0.109000   0.000000   0.109000 (  0.108006)
class-data=    0.172000   0.000000   0.172000 (  0.175010)
Struct-data=   0.187000   0.000000   0.187000 (  0.175010)
Array-data=    0.094000   0.000000   0.094000 (  0.099006)
=class-data    0.078000   0.000000   0.078000 (  0.077004)
=class-data    0.078000   0.000000   0.078000 (  0.077005)
=Array-data    0.062000   0.000000   0.062000 (  0.065004)
--------------------------------------- total: 1.357000sec

                   user     system      total        real
class-new      0.312000   0.000000   0.312000 (  0.310017)
Struct-new     0.250000   0.000000   0.250000 (  0.256015)
Array-new      0.109000   0.000000   0.109000 (  0.106006)
class-data=    0.171000   0.000000   0.171000 (  0.177010)
Struct-data=   0.172000   0.000000   0.172000 (  0.175010)
Array-data=    0.109000   0.000000   0.109000 (  0.099005)
=class-data    0.078000   0.000000   0.078000 (  0.078005)
=class-data    0.078000   0.000000   0.078000 (  0.077004)
=Array-data    0.063000   0.000000   0.063000 (  0.065004)

◎ Zen codingをインストール。 :

;; ----------------------------------------
;; zencoding-mode
;; C-j or C-RET で展開

(add-to-list 'load-path "~/emacs.d/zencoding-mode")
(require 'zencoding-mode)
(add-hook 'sgml-mode-hook 'zencoding-mode)
(add-hook 'html-mode-hook 'zencoding-mode)
(add-hook 'text-mode-hook 'zencoding-mode)
(add-hook 'css-mode-hook  'zencoding-mode)

;; (define-key zencoding-mode-keymap "\C-z" 'zencoding-expand-line)

◎ yasnippet.el もインストール。 :

;; ----------------------------------------
;; yasnippet

(add-to-list 'load-path "~/.emacs.d/plugin/yasnippet/")
(require 'yasnippet)
;; (yas/initialize)
(yas/load-directory "~/.emacs.d/plugin/snippets")
(setq yas/prompt-functions '(yas/dropdown-prompt))
(yas/global-mode 1)

◎ package.el をインストール。 :

M-x install-elisp http://tromey.com/elpa/package-install.el

(when
    (load
     (expand-file-name "~/.emacs.d/elpa/package.el"))
  (setq package-archives
        '(("ELPA" . "http://tromey.com/elpa/")
          ("melpa" . "http://melpa.milkbox.net/packages/")
          ("gnu" . "http://elpa.gnu.org/packages/")
          ("marmalade" . "http://marmalade-repo.org/packages/")))
  (package-initialize))

◎ フォント設定を変更。 :

(set-face-attribute 'default nil :family "Source Code Pro" :height 104)
(set-fontset-font nil 'japanese-jisx0208 (font-spec :family "MeiryoKe_Gothic"))
(setq face-font-rescale-alist '(("MeiryoKe_Gothic" . 1.08)))

◎ ダミーテキストを挿入するelispをインストール。 :

M-x auto-install-from-emacswiki

;; ----------------------------------------
;; Lorem ipsum
;; ダミーテキストの入力

(autoload 'Lorem-ipsum-insert-paragraphs "lorem-ipsum" "" t)
(autoload 'Lorem-ipsum-insert-sentences "lorem-ipsum" "" t)
(autoload 'Lorem-ipsum-insert-list "lorem-ipsum" "" t)

(defvar *tidy-insert-xml-decl* nil)

		(if *tidy-insert-xml-decl* (insert-xml-decl))

• Markdown は、「人間様は最低限のルールだけ覚えといてください。後はわたくし、コンピュータが、お望み通りに変換しときますよ」という思想だし。
• IDEは、「長い関数名や変数名なんて、一字一句間違わずに覚えなくていいですよ。馬鹿馬鹿しいでしょ？ 何文字か打ったらリストアップしますので、そこから選んでください。入力ミスをせずに済みますよ」という思想だし。
• この日記を書いてるhns/hnfフォーマット ―― blogが流行り始める随分前から存在したWeb日記システムですら、「HTMLタグなんてわざわざ覚えてられないよ。アレはコンピュータのためのフォーマットだ。人間様が覚えるもんじゃねえ。よく使うタグだけ選び抜いて文字数も短くすればサクサク書けるはずだ。HTMLなんてサーバに吐き出させればいいんだよ」という思想で作られてたし。

(modify-coding-system-alist 'process "MzScheme" '(utf-8-dos . utf-8-dos))

Windows + Emacs + MzScheme - mzsmsの雑記 より

◎ x903iからmicroSDになってたのか。 :

• 文字にグラデーションをつける方法が判らない。tile=>'gradient:black-red' とは違うのか…？ グラデーションの有無で見た目がかなり変わってくるわけで。
• 「\」だけがどうにも描画できない。Perl + PerlMagick においては、どういう文字列を渡せば描画できるのやら。
• 相変わらず Annotate の座標指定がよく判らない。これまたバージョンによって違うんだろうな。

◎ 「\」の指定の仕方が判った。 :

◎ 子供に渡すPCなら先にやることがあるだろう :

◎ メーラは Outlook Express にした :

◎ さておきようやくメールの設定 :

◎ タッピングでハマる :

◎ _TouchPad のドライバ（ALPS系）- タッチパッドの使い勝手を改善させる :

◎ ドライバ等もアップデート :

◎ JWord をアンインストール :

◎ ホームページ設定 :

◎ 時計合わせを有効に :

◎ ワンタッチボタンが動かない :

◎ デスクトップ上の広告バナーも消した :

◎ 他にも色々無効にしたほうがヨサゲだけど :

◎ ウイルス対策関連 :

◎ ここまでやってたら :

◎ うーむ :

◎ とここまで書いてハッとした :

◎ もちろん上記は冗談なんだけど :

◎ 数年後には2chもそうなってる予感 :