mieki256's diary

python -m pip install TTS

tts --text "Hello world" --out_path speech.wav

/home/(USERNAME)/.local/share/tts/

tts_models--en--ljspeech--tacotron2-DDC
vocoder_models--en--ljspeech--hifigan_v2

cd X:\aiwork\coqui-tts
python -m venv coquitts
.\coquitts\Scripts\activate

python -m pip install TTS

> which TTS
"X:\aiwork\coqui-tts\coquitts\Scripts\tts.exe"

tts --text "Hello world. Sally sells seashells by the seashore." --out_path helloworld.wav

C:\Users\(USERNAME)\AppData\Local\tts\

 tts --text "Speaker test. Left. Center. Right." --out_path speakertest.wav --use_cuda true

AssertionError: Torch not compiled with CUDA enabled

python -m pip uninstall torch
python -m pip cache purge
python -m pip install torch==2.4.0 torchvision==0.19.0 torchaudio==2.4.0 --index-url https://download.pytorch.org/whl/cu118

tts --text "Hello world. Sally sells seashells by the seashore." --out_path helloworld.wav --use_cuda true

tts --text "Speaker test. Left. Center. Right." --out_path speakertest.wav --use_cuda true

tts --text "Examine data link. Main trans engine. Number 1 2 ON. Number 3 4 OFF. Number 5 6 7 8 ON. Confirmed, round vernirn. Hello, I am VIFAM. Okay VIFAM. your number is 7. instrument recorder on. Permission to sortie. Permission granted. GOOD LUCK, VIFAM 7." --out_path vifam.wav --use_cuda true

espeak-ng "Hello world. Sally sells seashells by the seashore." -v "English (America)+f3" -s 150 -w espeak_ng_hello.wav

edge-tts -t "Hello world. Sally sells seashells by the seashore." -v en-US-AriaNeural --write-subtitles edge_tts_hello.vtt --write-media edge_tts_hello.mp3

import sys
import math
import random
from OpenGL.GL import *
from OpenGL.GLU import *
from OpenGL.GLUT import *
from PIL import Image

IMG_NAME = "tex.png"

# SCRW, SCRH = 1600, 900
SCRW, SCRH = 512, 512
FPS = 60

FLOOR_W = 10.0
TREES_MAX = 256

# USE_DEPTHMASK = True
USE_DEPTHMASK = False

# GET_DISTANCE = True
GET_DISTANCE = False

scr_w, scr_h = SCRW, SCRH
window = 0

# Rotation angle for the Quads
rotx = 0.0
roty = 0.0

objs = []

texture = 0

# lighting
light_ambient = [1.0, 1.0, 1.0, 1.0]
light_diffuse = [1.0, 1.0, 1.0, 1.0]
light_specular = [1.0, 1.0, 1.0, 1.0]
light_position = [5.0, 5.0, 10.0, 1.0]

# material
no_mat = [0.0, 0.0, 0.0, 1.0]
mat_ambient = [0.05, 0.1, 0.25, 1.0]
mat_diffuse = [0.0, 1.0, 0.0, 1.0]
mat_specular = [0.5, 0.5, 0.5, 1.0]
mat_emission = [0.2, 0.2, 0.2, 0.0]
no_shininess = [0.0]
low_shininess = [5.0]
high_shininess = [100.0]


class Obj:

    def __init__(self, x, y, z, scale, kind):
        self.x = x
        self.y = y
        self.z = z
        self.scale = scale

        uv = [
            (0.5, 0.0), (0.75, 0.0), (0.5, 0.25), (0.75, 0.25),
            (0.5, 0.5), (0.75, 0.5), (0.5, 0.75), (0.75, 0.75),
        ]
        self.u, self.v = uv[kind]

    def draw(self):
        glAlphaFunc(GL_GREATER, 0.5)
        glEnable(GL_ALPHA_TEST)

        glEnable(GL_BLEND)
        glEnable(GL_TEXTURE_2D)
        glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA)
        glDisable(GL_LIGHTING)

        glColor4f(1.0, 1.0, 1.0, 1.0)  # color

        glPushMatrix()
        glTranslatef(self.x, self.y, self.z)  # translate

        m = glGetDoublev(GL_MODELVIEW_MATRIX)
        m[0][0] = m[1][1] = m[2][2] = 1.0
        m[0][1] = m[0][2] = 0.0
        m[1][0] = m[1][2] = 0.0
        m[2][0] = m[2][1] = 0.0
        glLoadMatrixd(m)

        w = 1.0 * self.scale
        u, v = self.u, self.v
        uw = 0.25

        glBegin(GL_QUADS)

        glTexCoord2f(u, v)
        glVertex3f(-w, w * 2, 0)  # Top Left

        glTexCoord2f(u + uw, v)
        glVertex3f(w, w * 2, 0.0)  # Top Right

        glTexCoord2f(u + uw, v + uw)
        glVertex3f(w, 0.0, 0.0)  # Bottom Right

        glTexCoord2f(u, v + uw)
        glVertex3f(-w, 0.0, 0.0)  # Bottom Left

        glEnd()
        glPopMatrix()

        glDisable(GL_ALPHA_TEST)
        glDisable(GL_TEXTURE_2D)


def init_objs():
    global objs
    w = FLOOR_W
    n = 4.0
    kind = 0
    i = 0
    while i < TREES_MAX:
        x = random.uniform(-w, w)
        y = 0
        z = random.uniform(-w, w)
        if (x * x + z * z <= n * n):
            continue

        scale = random.uniform(1.0, 1.5)
        objs.append(Obj(x, y, z, scale, kind))
        kind = (kind + 1) % 4
        i += 1


def draw_objs():
    global objs
    for obj in objs:
        obj.draw()


def load_texture():
    global texture

    # load image by using PIL
    im = Image.open(IMG_NAME)
    w, h = im.size
    print("Image: %d x %d, %s" % (w, h, im.mode))

    if im.mode == "RGB":
        # RGB convert to RGBA
        im.putalpha(alpha=255)
    elif im.mode == "L" or im.mode == "P":
        # Grayscale, Index Color convert to RGBA
        im = im.convert("RGBA")

    raw_image = im.tobytes()

    ttype = GL_RGBA
    if im.mode == "RGB":
        ttype = GL_RGB
        print("Set GL_RGB")
    elif im.mode == "RGBA":
        ttype = GL_RGBA
        print("Set GL_RGBA")

    glBindTexture(GL_TEXTURE_2D, glGenTextures(1))

    # glPixelStorei(GL_UNPACK_ALIGNMENT, 1)
    glPixelStorei(GL_UNPACK_ALIGNMENT, 4)

    # set texture
    glTexImage2D(
        GL_TEXTURE_2D,      # target
        0,                  # MIPMAP level
        ttype,              # texture type (RGB, RGBA)
        w,                  # texture image width
        h,                  # texture image height
        0,                  # border width
        ttype,              # texture type (RGB, RGBA)
        GL_UNSIGNED_BYTE,   # data is unsigne char
        raw_image,          # texture data pointer
    )

    glClearColor(0, 0, 0, 0)
    glShadeModel(GL_SMOOTH)

    # set texture repeat
    glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT)
    glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT)

    # set texture filter
    glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR)
    glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR)

    glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE)
    # glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_DECAL)
    # glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE)
    # glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_BLEND)


def draw_floor():
    """Draw floor quads."""

    w = FLOOR_W
    u, v = 0.0, 0.0
    uw = 0.5

    glDisable(GL_LIGHTING)

    glEnable(GL_BLEND)
    glEnable(GL_TEXTURE_2D)
    glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA)

    glColor4f(1.0, 1.0, 1.0, 1.0)  # color

    glPushMatrix()

    glBegin(GL_QUADS)

    glTexCoord2f(u, v)
    glVertex3f(-w, 0.0, -w)  # Top Left

    glTexCoord2f(u + uw, v)
    glVertex3f(w, 0.0, -w)   # Top Right

    glTexCoord2f(u + uw, v + uw)
    glVertex3f(w, 0.0, w)    # Bottom Right

    glTexCoord2f(u, v + uw)
    glVertex3f(-w, 0.0, w)   # Bottom Left

    glEnd()
    glPopMatrix()


def draw_cube():
    """ Draw cube."""
    glEnable(GL_LIGHTING)
    glEnable(GL_LIGHT0)

    glMaterialfv(GL_FRONT, GL_AMBIENT, mat_ambient)
    glMaterialfv(GL_FRONT, GL_DIFFUSE, mat_diffuse)
    glMaterialfv(GL_FRONT, GL_SPECULAR, mat_specular)
    glMaterialfv(GL_FRONT, GL_SHININESS, high_shininess)
    glMaterialfv(GL_FRONT, GL_EMISSION, no_mat)

    glPushMatrix()
    glDisable(GL_TEXTURE_2D)
    glColor3f(0.0, 1.0, 0.0)

    if False:
        glTranslatef(0.0, 2.0, 0.0)
        glutSolidCube(4.0)
    else:
        glTranslatef(0.0, 1.2, 0.0)
        glutSolidTeapot(2.0)

    glPopMatrix()


def draw_gl():
    global rotx, roty

    glClearColor(0.85, 0.85, 0.85, 0.0)  # background color
    glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)

    # set light
    glLightfv(GL_LIGHT0, GL_AMBIENT, light_ambient)
    glLightfv(GL_LIGHT0, GL_DIFFUSE, light_diffuse)
    glLightfv(GL_LIGHT0, GL_SPECULAR, light_specular)
    glLightfv(GL_LIGHT0, GL_POSITION, light_position)
    glEnable(GL_LIGHTING)
    glEnable(GL_LIGHT0)

    glLoadIdentity()  # Reset The View

    # move camera
    r = 16.0
    ex = r * math.cos(math.radians(roty + 90.0))
    ey = 6.0 + 4.0 * math.cos(math.radians(roty * 3))
    ez = r * math.sin(math.radians(roty + 90.0))
    tx, ty, tz = 0.0, 0.0, 0.0
    gluLookAt(ex, ey, ez, tx, ty, tz, 0, 1, 0)
    cam_pos = (ex, ey, ez)

    draw_floor()

    draw_cube()

    draw_objs()

    glutSwapBuffers()


def init_viewport_and_pers(width, height):
    # Prevent A Divide By Zero If The Window Is Too Small
    if height == 0:
        height = 1

    scr_w, scr_h = width, height

    # Reset The Current Viewport And Perspective Transformation
    glViewport(0, 0, width, height)
    glMatrixMode(GL_PROJECTION)
    glLoadIdentity()  # Reset The Projection Matrix

    # Calculate The Aspect Ratio Of The Window
    # gluPerspective(fovy, aspect, zNear, zFar )
    gluPerspective(45.0, float(width) / float(height), 0.1, 100.0)
    glMatrixMode(GL_MODELVIEW)


def InitGL(width, height):
    glClearColor(0.85, 0.85, 0.85, 0.0)  # background color
    glClearDepth(1.0)  # Enables Clearing Of The Depth Buffer
    glEnable(GL_DEPTH_TEST)  # Enables Depth Testing
    glDepthFunc(GL_LESS)  # The Type Of Depth Test To Do
    glShadeModel(GL_SMOOTH)  # Enables Smooth Color Shading

    # setiing fog
    fog_color = [0.85, 0.85, 0.85]
    glEnable(GL_FOG)
    glFogi(GL_FOG_MODE, GL_LINEAR)
    glFogfv(GL_FOG_COLOR, fog_color)
    glFogf(GL_FOG_DENSITY, 0.1)
    glHint(GL_FOG_HINT, GL_DONT_CARE)
    glFogf(GL_FOG_START, 8.0)
    glFogf(GL_FOG_END, 25.0)

    init_viewport_and_pers(width, height)


def resize_gl(width, height):
    init_viewport_and_pers(width, height)


def on_timer(value):
    global rotx, roty
    rotx = 0.0
    roty = roty + 0.25
    glutPostRedisplay()
    glutTimerFunc(int(1000 / FPS), on_timer, 0)


def key_pressed(key, x, y):
    # If escape is pressed, kill everything.
    ESCAPE = b"\x1b"
    if key == ESCAPE or key == b'q':
        if glutLeaveMainLoop:
            glutLeaveMainLoop()
        else:
            sys.exit()


def main():
    global window

    glutInit(sys.argv)
    glutInitDisplayMode(GLUT_RGBA | GLUT_DOUBLE | GLUT_DEPTH)

    glutInitWindowSize(SCRW, SCRH)
    # glutInitWindowPosition(0, 0)

    window = glutCreateWindow(b"Draw texture")

    glutDisplayFunc(draw_gl)
    glutReshapeFunc(resize_gl)
    glutKeyboardFunc(key_pressed)
    # glutFullScreen()

    # glutIdleFunc(draw_gl)
    glutTimerFunc(int(1000 / FPS), on_timer, 0)

    InitGL(SCRW, SCRH)

    load_texture()

    init_objs()

    glutMainLoop()


if __name__ == "__main__":
    print("Hit ESC key to quit.")
    main()

    # setiing fog
    fog_color = [0.85, 0.85, 0.85]
    glEnable(GL_FOG)
    glFogi(GL_FOG_MODE, GL_LINEAR)
    glFogfv(GL_FOG_COLOR, fog_color)
    glFogf(GL_FOG_DENSITY, 0.1)
    glHint(GL_FOG_HINT, GL_DONT_CARE)
    glFogf(GL_FOG_START, 8.0)
    glFogf(GL_FOG_END, 25.0)

• glEnable(GL_FOG)、glDisable(GL_FOG) で、フォグの有効/無効を切り替えられる。
• fog_color がフォグの色。[1.0, 1.0, 1.0] なら真っ白になるし、[0.0, 0.0, 0.0] なら真っ黒になる。
• glFogfv(GL_FOG_COLOR, fog_color) で、フォグの色を指定している。
• glFogi(GL_FOG_MODE, GL_LINEAR) で、フォグのかかり方の種類を指定している。
• フォグのかかり方が GL_LINEAR の場合、GL_FOG_START、GL_FOG_END で、フォグがかかり始める距離を指定できるらしい。
• GL_FOG_DENSITY の値は、フォグのかかり方 (GL_FOG_MODE) が、GL_EXP、GL_EXP2 の場合に絡んでくるらしい。今回は GL_LINEAR にしているから、関係してこないっぽい。

1. デスクトップの右上のほうに Bluetoothのアイコンがあるからクリック。
2. Make Discoverable を選ぶと Bluetooth機器を検索開始する。
3. Add Device... で、Bluetoothスピーカが出てきたら、選んで Pair ボタンをクリック。
4. Stop Discoverable で、検索停止。
5. スピーカアイコンを右クリックして、Bluetoothスピーカ名(今回は BTS-032A)を選ぶと、そちらが出力先になる。

sudo apt install bluealsa

$ bluetoothctl --version
bluetoothctl: 5.50

$ sudo bluetoothctl
[bluetooth]# agent on

[bluetooth]# scan on
Discovery started
[CHG] Controller B8:27:EB:93:58:00 Discovering: yes
[NEW] Device 41:42:9E:54:68:72 BTS-032A

[bluetooth]# info 41:42:9E:54:68:72
[bluetooth]# pair 41:42:9E:54:68:72
[bluetooth]# trust 41:42:9E:54:68:72
[bluetooth]# connect 41:42:9E:54:68:72
[BTS-032A]# quit

$ sudo bluetoothctl
Agent registered

[bluetooth]# agent on
Agent is already registered

[bluetooth]# scan on
Discovery started
[CHG] Controller B8:27:EB:93:58:00 Discovering: yes
[NEW] Device 41:42:9E:54:68:72 BTS-032A

[bluetooth]# info 41:42:9E:54:68:72
Device 41:42:9E:54:68:72 (public)
        Name: BTS-032A
        Alias: BTS-032A
        Class: 0x00240418
        Icon: audio-card
        Paired: no
        Trusted: no
        Blocked: no
        Connected: no
        LegacyPairing: no
        RSSI: -48

[bluetooth]# pair 41:42:9E:54:68:72
Attempting to pair with 41:42:9E:54:68:72
[CHG] Device 41:42:9E:54:68:72 Connected: yes
[CHG] Device 41:42:9E:54:68:72 Modalias: bluetooth:v05ACp0220d0001
[CHG] Device 41:42:9E:54:68:72 UUIDs: 00001101-0000-1000-8000-00805f9b34fb
[CHG] Device 41:42:9E:54:68:72 UUIDs: 0000110b-0000-1000-8000-00805f9b34fb
[CHG] Device 41:42:9E:54:68:72 UUIDs: 0000110c-0000-1000-8000-00805f9b34fb
[CHG] Device 41:42:9E:54:68:72 UUIDs: 0000110e-0000-1000-8000-00805f9b34fb
[CHG] Device 41:42:9E:54:68:72 UUIDs: 0000111e-0000-1000-8000-00805f9b34fb
[CHG] Device 41:42:9E:54:68:72 UUIDs: 00001124-0000-1000-8000-00805f9b34fb
[CHG] Device 41:42:9E:54:68:72 UUIDs: 00001200-0000-1000-8000-00805f9b34fb
[CHG] Device 41:42:9E:54:68:72 ServicesResolved: yes
[CHG] Device 41:42:9E:54:68:72 Paired: yes
Pairing successful
[CHG] Device 41:42:9E:54:68:72 ServicesResolved: no
[CHG] Device 41:42:9E:54:68:72 Connected: no
[CHG] Device 41:42:9E:54:68:72 RSSI: -39

[bluetooth]# trust 41:42:9E:54:68:72
[CHG] Device 41:42:9E:54:68:72 Trusted: yes
Changing 41:42:9E:54:68:72 trust succeeded

[bluetooth]# connect 41:42:9E:54:68:72
Attempting to connect to 41:42:9E:54:68:72
[CHG] Device 41:42:9E:54:68:72 Connected: yes
Connection successful
[CHG] Device 41:42:9E:54:68:72 ServicesResolved: yes

[BTS-032A]# quit

sudo systemctl status bluetooth.service

sudo vi /lib/systemd/system/bluetooth.service

#ExecStart=/usr/lib/bluetooth/bluetoothd
ExecStart=/usr/lib/bluetooth/bluetoothd --noplugin=sap

sudo reboot

$ amixer -D bluealsa scontrols
Simple mixer control 'BTS-032A - A2DP',0
Simple mixer control 'BTS-032A - SCO',0
Simple mixer control 'BTS-032A | Battery',0

$ amixer -D bluealsa
Simple mixer control 'BTS-032A - A2DP',0
  Capabilities: pvolume pswitch
  Playback channels: Front Left - Front Right
  Limits: Playback 0 - 127
  Mono:
  Front Left: Playback 127 [100%] [on]
  Front Right: Playback 127 [100%] [on]
Simple mixer control 'BTS-032A - SCO',0
  Capabilities: pvolume pvolume-joined cvolume cvolume-joined pswitch pswitch-joined cswitch cswitch-joined
  Playback channels: Mono
  Capture channels: Mono
  Limits: Playback 0 - 15 Capture 0 - 15
  Mono: Playback 14 [93%] [on] Capture 9 [60%] [on]
Simple mixer control 'BTS-032A | Battery',0
  Capabilities: pvolume pvolume-joined
  Playback channels: Mono
  Limits: Playback 0 - 100
  Mono: Playback 255 [255%]

amixer -D bluealsa sset 'BTS-032A - A2DP' 70%

cd /usr/share/sounds/alsa/
aplay Front_Center.wav
aplay Noise.wav

$ cat ~/.asoundrc
pcm.!default {
        type asym
        playback.pcm {
                type plug
                slave.pcm "output"
        }
        capture.pcm {
                type plug
                slave.pcm "input"
        }
}

pcm.output {
        type bluealsa
        device "41:42:9E:54:68:72"
        profile "a2dp"
}

ctl.!default {
        type bluealsa
}

git clone https://github.com/yhara/dxopal-game.git

git clone https://github.com/yhara/dxopal.git

• Firefoxで開いたら、マウスカーソルをキャラクターが追いかける何かが表示された。動いてるっぽい。
• Microsoft Edge も、同じように動いた。
• Google Chrome で開いたら、何も表示されなかった。というのも、Google Chrome はローカルHDD内のJavaScriptをいきなり動かさない設定になってるそうで。Google Chromeの起動オプションに「--allow-file-access-from-files」をつけて、index.html を開く必要があるらしい。
• IE11 では動かなかった。

include DXOpal

Image.register(:hoge, 'images/hoge.png') 
Image.register(:piyo, 'images/piyo.png') 

include DXOpal

Image.register(:hoge, 'images/hoge.png') 
Image.register(:piyo, 'images/piyo.png') 

module hoge

  Window.load_resources do
    img_hoge = Image[:hoge]
    img_piyo = Image[:piyo]
    
    Window.loop do
      # メインループ内の処理
    end
  end

end

AddType text/ruby rb

Android 4.4 から使用可能になった歩数計用の Sensor を使用

第 4 回・歩数計を作成してみよう！ | ピックアップ | ギャップロ より

#!ruby -Ks
# Tmxファイルを読み込んでDXRubyで描画するサンプル

require 'dxruby'
require 'tmx'

# BGマップデータ(二次元配列)を取得
def get_map_data(tmx, layer_name)
  mapw = tmx.width
  maph = tmx.height
  mapdata = []
  i = 0
  tmx.layers.each do |layer|
    next if layer.name != layer_name
    maph.times do |my|
      lines = []
      mapw.times do |mx|
        n = layer.data[i]
        lines.push((n <= 0)? 0 : n - 1)
        i += 1
      end
      mapdata.push(lines)
    end
    return mapdata
  end
end

tmx = Tmx.load("mylevel1.tmx") # tmxファイルを読み込み・解析

# マップ用画像(32x32,256x768)とオブジェクト用画像(24x24,192x96)を読み込み
imgarr = Image.loadTiles("mylevel1_tiles.png", 256/32, 768/32)
objimgs = Image.loadTiles("item_mix_all.png", 192/24, 96/24)

# BGマップデータ(二次元配列)を取得
layers = []
layers.push(get_map_data(tmx, "layer4"))
layers.push(get_map_data(tmx, "layer3"))
layers.push(get_map_data(tmx, "layer2"))
# layers.push(get_map_data(tmx, "layer1")) # アタリ判定用

# BGマップのスクロール最大値を取得
bgxmax = tmx.tilewidth * tmx.width - 640
bgymax = tmx.tileheight * tmx.height - 480

# 画面縦横幅がタイル何個分かを取得
bgtw = 640 / tmx.tilewidth
bgth = 480 / tmx.tileheight

# オブジェクトレイヤー情報を取得
sprs = []
tmx.object_groups[0].objects.each do |obj|
  x = obj.x + 16 - 12 # 配置したタイルの左下座標が得られる。左上座標ではない。
  y = obj.y - 16 - 12
  case obj.name
  when "ruby"
    sprs.push(Sprite.new(x, y, objimgs[6]))
  when "banana"
    sprs.push(Sprite.new(x, y, objimgs[8]))
  when "playerborn"
    sprs.push(Sprite.new(x, y, objimgs[16]))
  when "door"
    sprs.push(Sprite.new(x, y, objimgs[24]))
  end
end

bx, by = 0, 0
font = Font.new(26)
framecount = 0

# メインループ
Window.loop do
  break if Input.keyPush?(K_ESCAPE)
  
  # キー入力でスクロール
  old_bx = bx
  old_by = by
  spd = 8
  bx -= spd if Input.keyDown?(K_LEFT)
  bx += spd if Input.keyDown?(K_RIGHT)
  by -= spd if Input.keyDown?(K_UP)
  by += spd if Input.keyDown?(K_DOWN)
  bx = 0 if bx < 0
  by = 0 if by < 0
  bx = bgxmax if bx > bgxmax
  by = bgymax if by > bgymax

  # スクロール移動量を記録しておく
  bx_diff = bx - old_bx
  by_diff = by - old_by

  # BGマップを描画
  bgspd = [0.25, 0.5, 1.0, 1.0] # 各BGレイヤーのスクロール速度
  layers.each_with_index do |dt, i|
    bgx = bx * bgspd[i]
    bgy = by * bgspd[i]
    Window.drawTile(0, 0, dt, imgarr, bgx, bgy, bgtw, bgth)
  end

  # オブジェクト座標をスクロール移動量で変更
  sprs.each do |spr|
    spr.x -= bx_diff
    spr.y -= by_diff
  end
  
  # オブジェクトを描画
  Sprite.draw(sprs) if (framecount & 0x04 == 0)
  
  # メッセージ描画
  Window.drawFont(4, 4, "←→↑↓でスクロール", font)

  framecount += 1
end

$Head = qq(
<link rel="shortcut icon" href="icons/favicon.ico">
<link rel="alternate" type="application/rss+xml" title="RSS" href="${HNS::System::MyDiaryURI}rss.cgi">
<META http-equiv="Content-Style-Type" content="text/css">
<link rel="stylesheet" href="./import.css" type="text/css" media="all">

<script type="text/javascript" src="scripts/shCore.js"></script>
<script type="text/javascript" src="scripts/shBrushAS3.js"></script>
<script type="text/javascript" src="scripts/shBrushCss.js"></script>
<script type="text/javascript" src="scripts/shBrushJScript.js"></script>
<script type="text/javascript" src="scripts/shBrushPerl.js"></script>
<script type="text/javascript" src="scripts/shBrushPlain.js"></script>
<script type="text/javascript" src="scripts/shBrushPython.js"></script>
<script type="text/javascript" src="scripts/shBrushRuby.js"></script>
<script type="text/javascript" src="scripts/shBrushRuby.js"></script>
<script type="text/javascript" src="scripts/shBrushXml.js"></script>
<link type="text/css" rel="stylesheet" href="styles/shCoreDefault.css">
<script type="text/javascript">SyntaxHighlighter.all();</script>

);

# PRE
package HNS::Hnf::Command::PRE;
use vars qw(@ISA $Template $EndTemplate $NumAttr $IsOneline $AllowCommands
	    $IsBeginSection $CountName $OmittableEnd);

@ISA = qw(HNS::Hnf::Command::Cite);
$AllowCommands = [$HNS::Hnf::Command::Entities{'Inline'}];
$Template = "<pre>";
$EndTemplate = "</pre>";

# PRE
package HNS::Hnf::Command::PRE;
use vars qw(@ISA $Template $EndTemplate $NumAttr $IsOneline $AllowCommands
            $IsBeginSection $CountName $OmittableEnd
            $TemplateWithCode $EndTemplateWithCode
            $TemplateWithoutCode $EndTemplateWithoutCode);

@ISA = qw(HNS::Hnf::Command::Cite);
$NumAttr = 1;
$Template                = qq(<pre class="plain">);
$EndTemplate             = qq(</pre>);
$TemplateWithoutCode     = qq(<pre class="plain">);
$EndTemplateWithoutCode  = qq(</pre>);
$TemplateWithCode      = qq(<pre class="brush: %1">);
$EndTemplateWithCode   = "</pre>";
# $TemplateWithCode        = qq(<pre><code>);
# $EndTemplateWithCode     = qq(</code></pre>);
$AllowCommands = [$HNS::Hnf::Command::Entities{'Inline'}];

sub AsHTML ($$$){
    my ($self, $start, $params) = @_;
    my $codelang = $self->{attr}->[1];
    if ( $codelang ) {
        $Template = $TemplateWithCode;
        $EndTemplate = $EndTemplateWithCode;
    } else {
        $Template = $TemplateWithoutCode;
        $EndTemplate = $EndTemplateWithoutCode;
    }
    return $self->SUPER::AsHTML($start, $params);
}

 PRE ruby
 Rubyソースコード
 /PRE

 PRE perl
 Perlソースコード
 /PRE

from PyQt4 import QtCore, QtGui, QtWebKit
from mywebview import Ui_MyWebView
import codecs
import markdown2

...

HTML_HEADER = """
<!DOCTYPE html>
<html lang="ja">
<head>
<meta charset="utf-8" />
</head>
<body>
"""

HTML_FOOTER = """
</body>
</html>
"""

...

    def convert_md_to_html(self):
        """左ウインドウ内のMarkdownをhtmlに変換"""
        self.md_text = unicode(self.ui.editor_window.toPlainText())
        self.html_text = markdown2.markdown(self.md_text)
        self.html_data = HTML_HEADER + self.html_text + HTML_FOOTER
        return self.html_data

    def reload_html(self):
        """WebViewを更新"""
        if not self.converting:
            self.converting = True
            self.convert_md_to_html()
            self.ui.my_webview.setHtml(self.html_data)
            self.converting = False

「もういつ終了するか分からない」「長くは続けられない」「リンクするのでなく必要なら全文コピーしてほしい」といったことは、哲学や宗教ではなく、単純にサーバ負荷が高くなると、お金が払えなくなって続けられなくなる、ということなのだ。もっと露骨に言えば「無断コピーしてもらった方が、わたしは儲かる」（コストを削減できる）。

このようなトポロジーが成り立つためには、 キャッシュ（古い言葉で言えば無断コピー）は場合によってはフリーの情報発信者に利益を与える面もある、という点が、もっときちんと認識されるべきだろう。商業ベースで情報を販売するならもちろん話は別だが、個人サイト等で、フリーで普通に発信したいのに、プロプライエタリのマスメディアの感覚と混同して「自分の文章が無断で利用されるのは、わたしにとって損害だ」と錯覚してしまうと、いつまでたっても、非生産的なリーチャーのために生産的な発信者がコストを負担する構造から抜けられない。

ただしこれは心理的な面やスケールの要素もある問題で、 「情報の作者として尊敬されたい」というモチベーションが「情報自体」を生かしたい気持ちを上回ると機能しない。図式的には「わたしが死んだらこの情報は利用できなくなります」という作者と作品の無理心中関係だ。なぜならその作者にとって作品は第一義的に自分の功名心を満たすためのものだから、そのこと自体は少しも悪くないが、結果としては、本人が死んでしまえば、その作者にとっての作品の第一義的な存在意義もなくなるわけだ。