mieki256's diary

• スクリーンセーバが32bit版アプリで、Windows が 64bit版の場合、C:\Windows\SysWOW64\ にコピー。
• スクリーンセーバが32bit版アプリで、Windows が 32bit版の場合、C:\Windows\System32\ にコピー。
• スクリーンセーバが64bit版アプリで、Windows が 64bit版の場合、C:\Windows\System32\ にコピー。

• ScreenSaverProc() の中に、時間計測処理と、初期化処理、描画処理、終了処理を呼び出す部分を追加した。
• StartScreenSaver(time_msec) に、タイマーをセットする際のミリ秒値を指定できるようにした。ここで与えたミリ秒の間隔で画面が更新される。
• FPSもカウントしてる。SaverInfo.fps の中に、計測したFPSが入っている。

#include "fb_screensaverkit.bas"

' use mmsystem
#include "windows.bi"
#include "win/mmsystem.bi"

' global work
Type wk
    scrw As Integer
    scrh As Integer
    x As Double
    y As Double
    dx As Double
    dy As Double
    r As Double
    max_fps As Double
End Type

Dim Shared wk As wk

'--------------------
' Initialize work

Sub InitProc()

    ' get screen size. width and height
    ' ScreenInfo scrw, scrh
    wk.scrw = SaverInfo.ScrWidth
    wk.scrh = SaverInfo.ScrHeight
    wk.max_fps = SaverInfo.max_fps

    wk.x = wk.scrw / 2.0
    wk.y = wk.scrh / 2.0
    wk.dx = (CDbl(wk.scrw) / wk.max_fps) * 0.6
    wk.dy = (CDbl(wk.scrh) / wk.max_fps) * 0.4
    wk.r = wk.scrh / 16.0

    ' timeBeginPeriod(1)
End Sub

'--------------------
' Rendering

Sub Render(ByVal delta As Double)
    If delta >= 1.0 Then delta = 1.0 / wk.max_fps
    
    ' move ball position
    wk.x += (wk.dx * wk.max_fps * delta)
    wk.y += (wk.dy * wk.max_fps * delta)
    If (wk.x <= wk.r And wk.dx < 0) Or (wk.x >= (wk.scrw - wk.r) And wk.dx > 0) Then wk.dx *= -1.0
    If (wk.y <= wk.r And wk.dy < 0) Or (wk.y >= (wk.scrh - wk.r) And wk.dy > 0) Then wk.dy *= -1.0

    ' draw start

    ' clear screen
    ' Line (0, 0)-(scrw, scrh), Rgb(0, 0, 0), BF
    color RGB(0, 0, 0), RGB(0, 0, 0)
    cls

    ' draw ball
    circle (wk.x, wk.y), wk.r, RGB(255, 0, 0), , , , F

    ' Get and draw FPS
    Dim As String fpstext = Str(SaverInfo.fps) & "FPS"
    Draw String ((wk.scrw - Len(fpstext) * 8) / 2, 10), fpstext, RGB(255, 255, 255)
    fpstext = ""  ' destroying a string

    ' draw end
End Sub

'--------------------
' End process

Sub ExitProc()
    ' timeEndPeriod(1)
End Sub

' --------------------
' main routine

Randomize Timer

'Start the Screen Saver. Set timer XX sec
StartScreenSaver(14)

' Wait until the screensaver ends
Do Until SaverInfo.IsClosing = True
    sleep 10
Loop

• InitProc() : 初期化処理。スクリーンセーバ用ウインドウが作成されたタイミングで呼ばれる。
• Render(delta) : 描画処理。毎フレーム呼ばれる。delta に、前回フレームからの経過時間(単位は秒。小数点以下有り)が入っているので、座標更新処理に使える。
• ExitProc() : 終了処理。スクリーンセーバ用ウインドウが破棄されるタイミングで呼ばれる。

/* Screensaver title */
STRINGTABLE
BEGIN
    1 "FreeBASIC Screensaver 3"
END

/* icon */
100 ICON "fbscricon.ico"

/* dialog */
FB_SCRNSAVER_ABOUT DIALOGEX 6, 18, 160, 62
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | DS_NOFAILCREATE
 FONT 12,"Arial"
CAPTION "FB Screensaver Sample 3"
BEGIN
    DEFPUSHBUTTON "OK" IDOK, 55, 40, 50, 14
    CTEXT "FB Screensaver Sample 3" -1, 0, 5, 160, 8
    CTEXT "Version 1.0" -1, 0, 15, 160, 8
END

1 24 "ssfbscrsample3.xml"

sudo apt install gpaint

sudo apt install gnome-paint

sudo apt install xpaint

sudo apt install mtpaint

sudo apt install grafx2

sudo apt install kolourpaint

sudo apt install pinta

sudo add-apt-repository ppa:alex-p/azpainter
sudo apt update
sudo apt install azpainter

• 64bit版なら lazpaint7.0.7_linux64.deb を、
• 32bit版なら lazpaint7.0.7_linux32.deb を、

sudo apt install tuxpaint

sudo apt remove tuxpaint
sudo flatpak install tuxpaint

販売総数は1993年の販売終了までに1250万から1700万台とされ、単一機種としては最も販売台数の多いパーソナルコンピュータであり、今もこの記録は破られていない。

コモドール64 - Wikipedia より

• 冒頭、電車内にいきなり出てきたヒーローの姿を、周囲の乗客はガン無視している。
• カラオケボックスの中でウロウロしているヒーローと怪人の姿を、ヒロインと同席していた職場の同僚達はガン無視している。

• 電車内の乗客は、突如出現したヒーローの姿に驚き、スマホを取り出してカメラで撮ってネットにアップするだろうし。
• カラオケボックス内の同僚達は、ヒーローと怪人の登場に驚き、これどんなイベントなの、誰が仕掛けたのよ、いやあ凝ってるなあ、と騒ぐだろう。

>>> # python-fu を使う際のお約束
>>> from gimpfu import *

>>> # 画像を取得
>>> image = gimp.image_list()[0]
>>> image
<gimp.Image '[名称未設定]'>

>>> # レイヤーを作成・追加
>>> layer = gimp.Layer(image, "Layer Name", image.width, image.height, RGBA_IMAGE, 100, NORMAL_MODE)
>>> image.add_layer(layer, 0)

>>> # 矩形の選択範囲を作成。x,y,w,hを指定
>>> pdb.gimp_image_select_rectangle(image, 2, 16, 32, 256, 512)

>>> # 選択範囲をチャンネルに保存
>>> channel = pdb.gimp_selection_save(image)
>>> channel
<gimp.Channel '選択マスク コピー'>

>>> # 矩形の選択範囲を作成。
>>> pdb.gimp_image_select_rectangle(image, 2, 24, 48, 128, 256)

>>> # 描画色を指定。python-fuの場合、0.0 - 1.0 で指定
>>> gimp.set_foreground(1.0, 0.5, 0.0)

>>> # 塗り潰し
>>> pdb.gimp_edit_fill(layer, FOREGROUND_FILL)

>>> # 選択範囲解除
>>> pdb.gimp_selection_none(image)

>>> # 選択範囲をチャンネルから読み出す
>>> pdb.gimp_selection_load(channel)

>>> # チャンネルを削除
>>> pdb.gimp_image_remove_channel(image, channel)

export G_FILENAME_ENCODING=@locale
export GTK_IM_MODULE=scim
export QT_IM_MODULE=scim
export XMODIFIERS=@im=scim
# scim -d

export XMODIFIERS=@im=scim

export XMODIFIERS=@im=SCIM

export XMODIFIERS=@im=SCIM

/SupportedUnicodeLocales = en_US.UTF-8,ja_JP.UTF-8

AdaptecのAIC-7890ABチップとAIC-3860Qチップを積んだ製品で、つまりAdaptec AHA-2940U2Wがそのままオンボードになったもの。

種類が増える440BXマザーボード、早くも「大競争時代」か？ より

knoppix 3 noswap lang=ja

su -

jfbterm

sfdisk -l

shred -n 3 -v /dev/sda1