mieki256's diary

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <X11/Xlib.h>
#include <X11/xpm.h>
#include <math.h>
#include <time.h>

/* include xpm binary */
#include "bg01.xpm"
#define XPM_W 640
#define XPM_H 360
#define XPM_NAME bg01_xpm

/*
#include "bg02.xpm"
#define XPM_W 320
#define XPM_H 180
#define XPM_NAME bg02_xpm
*/

/* kind. 0: slow, 1: fast */
#define SCALING_KIND 1

#define WIN_X 0
#define WIN_Y 64
#define BORDER 0

#ifndef M_PI
#define M_PI 3.14159265358979
#endif

#define deg2rad(x) (x * M_PI / 180.0)

/* get a color value from a color name */
static unsigned long
get_color(Display *dpy, char *colorname)
{
    Colormap cmap;
    XColor near_color, true_color;

    cmap = DefaultColormap(dpy, DefaultScreen(dpy));
    XAllocNamedColor(dpy, cmap, colorname, &near_color, &true_color);
    return near_color.pixel;
}

/* scale Pixmap */
static void
scale_pixmap(Display *dpy, Drawable win,
             Pixmap *src, Pixmap *dst,
             int src_w, int src_h, int dst_w, int dst_h)
{
    GC gc;
    float xscale, yscale;
    int x, y;
    struct timespec start, end;
    double diff;

    xscale = (float)src_w / dst_w;
    yscale = (float)src_h / dst_h;

    gc = XCreateGC(dpy, win, 0, 0);
    XSetGraphicsExposures(dpy, gc, False);

    timespec_get(&start, TIME_UTC);

    switch (SCALING_KIND)
    {
    case 0:
        /* slow */
        for (y = 0; y < dst_h; y++)
        {
            int sy = (int)(y * yscale);
            for (x = 0; x < dst_w; x++)
                XCopyArea(dpy, *src, *dst, gc, (int)(x * xscale), sy, 1, 1, x, y);
        }
        break;
    case 1:
        /* fast */
        for (x = dst_w - 1; x >= 0; x--)
            XCopyArea(dpy, *src, *dst, gc, (int)(x * xscale), 0, 1, src_h, x, 0);

        if (src_h <= dst_h)
        {
            for (y = dst_h - 1; y >= 0; y--)
                XCopyArea(dpy, *dst, *dst, gc, 0, (int)(y * yscale), dst_w, 1, 0, y);
        }
        else
        {
            for (y = 0; y < dst_h; y++)
                XCopyArea(dpy, *dst, *dst, gc, 0, (int)(y * yscale), dst_w, 1, 0, y);
        }
        break;
    default:
        break;
    }

    XFreeGC(dpy, gc);

    timespec_get(&end, TIME_UTC);
    diff = (end.tv_sec + (double)end.tv_nsec / 1000000000) - (start.tv_sec + (double)start.tv_nsec / 1000000000);
    printf("%lf sec\n", diff);
}

/* update and draw */
static void
update(Display *dpy, Drawable win, GC gc,
       Pixmap pix, Pixmap buf,
       int new_w, int new_h)
{
    XWindowAttributes xgwa;
    int r, x, y;
    int scrw, scrh;

    /* get window attributes */
    XGetWindowAttributes(dpy, win, &xgwa);
    scrw = xgwa.width;  /* window width */
    scrh = xgwa.height; /* window height */

    scale_pixmap(dpy, win, &pix, &buf, XPM_W, XPM_H, new_w, new_h);

    /* centering */
    x = scrw - ((scrw + new_w) / 2);
    y = scrh - ((scrh + new_h) / 2);

    /* clear window */
    XClearWindow(dpy, win);

    /* draw image (Pixmap) */
    XSetGraphicsExposures(dpy, gc, False);
    XCopyArea(dpy, buf, win, gc, 0, 0, new_w, new_h, x, y);
}

int main(void)
{
    Display *dpy;
    Window root;
    Window win;
    int screen;
    int display_w, display_h;
    XEvent evt;
    unsigned long black, white;
    XWindowAttributes xgwa;
    GC gc;
    Pixmap pix;
    Pixmap buf;
    int busy_loop;
    double new_w, new_h;
    double dx;

    /* open display */
    dpy = XOpenDisplay(NULL);
    root = DefaultRootWindow(dpy);
    screen = DefaultScreen(dpy);

    /* get display size */
    display_w = DisplayWidth(dpy, screen);
    display_h = DisplayHeight(dpy, screen);
    printf("Screen: %d x %d\n", display_w, display_h);

    /* get color black and white */
    white = WhitePixel(dpy, screen);
    black = BlackPixel(dpy, screen);

    /* create window */
    win = XCreateSimpleWindow(dpy, root,
                              WIN_X, WIN_Y, display_w, display_h, BORDER,
                              white, black);

    XSelectInput(dpy, win, KeyPressMask | ExposureMask);

    XMapWindow(dpy, win);

    /* wait display window */
    do
    {
        XNextEvent(dpy, &evt);
    } while (evt.type != Expose);

    XMoveWindow(dpy, win, WIN_X, WIN_Y);

    /* create graphics context */
    gc = XCreateGC(dpy, win, 0, 0);
    XSetGraphicsExposures(dpy, gc, False);

    /* load image */
    if (XpmCreatePixmapFromData(dpy, win, XPM_NAME, &pix, NULL, NULL))
    {
        fprintf(stderr, "Error not load xpm.");
        return 1;
    }

    XSetForeground(dpy, gc, get_color(dpy, "green"));

    XGetWindowAttributes(dpy, win, &xgwa);
    buf = XCreatePixmap(dpy, win, display_w, display_h, xgwa.depth);
    XFillRectangle(dpy, buf, gc, 0, 0, display_w, display_h);

    new_w = display_w;
    new_h = display_h;
    dx = -6;

    busy_loop = 1;
    while (busy_loop)
    {
        /* event */
        while (XPending(dpy))
        {
            XNextEvent(dpy, &evt);
            switch (evt.type)
            {
                /*
            case Expose:
                if (evt.xexpose.count == 0)
                {
                }
                break;
                */
            case KeyPress:
                busy_loop = 0;
                break;
            default:
                break;
            }
        }

        update(dpy, win, gc, pix, buf, new_w, new_h);

        new_w += dx;
        if (new_w <= 32)
        {
            new_w = 32;
            dx *= -1;
        }
        if (new_w >= display_w)
        {
            new_w = display_w;
            dx *= -1;
        }

        new_h = display_h * new_w / display_w;

        XFlush(dpy);
        usleep(16 * 1000); /* wait */
    }

    XFreePixmap(dpy, pix);
    XFreePixmap(dpy, buf);
    XFreeGC(dpy, gc);

    XDestroyWindow(dpy, win);
    XCloseDisplay(dpy);
    return 0;
}

gcc 06scale3.c -o 06scale3 -I /usr/include/X11 -lX11 -lXext -lm -lXpm

./06scale3

        /* fast */
        for (x = dst_w - 1; x >= 0; x--)
            XCopyArea(dpy, *src, *dst, gc, (int)(x * xscale), 0, 1, src_h, x, 0);
        for (y = dst_h - 1; y >= 0; y--)
            XCopyArea(dpy, *dst, *dst, gc, 0, (int)(y * yscale), dst_w, 1, 0, y);

        /* fast */
        for (x = dst_w - 1; x >= 0; x--)
            XCopyArea(dpy, *src, *dst, gc, (int)(x * xscale), 0, 1, src_h, x, 0);

        if (src_h <= dst_h)
        {
            for (y = dst_h - 1; y >= 0; y--)
                XCopyArea(dpy, *dst, *dst, gc, 0, (int)(y * yscale), dst_w, 1, 0, y);
        }
        else
        {
            for (y = 0; y < dst_h; y++)
                XCopyArea(dpy, *dst, *dst, gc, 0, (int)(y * yscale), dst_w, 1, 0, y);
        }

------------------------------------------------------------------------------
CrystalDiskMark 8.0.2 x64 (C) 2007-2021 hiyohiyo
                                  Crystal Dew World: https://crystalmark.info/
------------------------------------------------------------------------------
* MB/s = 1,000,000 bytes/s [SATA/600 = 600,000,000 bytes/s]
* KB = 1000 bytes, KiB = 1024 bytes

[Read]
  SEQ    1MiB (Q=  8, T= 1):    20.710 MB/s [     19.8 IOPS] <389089.69 us>
  SEQ    1MiB (Q=  1, T= 1):    20.491 MB/s [     19.5 IOPS] < 50978.69 us>
  RND    4KiB (Q= 32, T= 1):     7.371 MB/s [   1799.6 IOPS] < 17737.18 us>
  RND    4KiB (Q=  1, T= 1):     7.149 MB/s [   1745.4 IOPS] <   572.50 us>

[Write]
  SEQ    1MiB (Q=  8, T= 1):    12.160 MB/s [     11.6 IOPS] <646386.69 us>
  SEQ    1MiB (Q=  1, T= 1):    12.561 MB/s [     12.0 IOPS] < 83061.68 us>
  RND    4KiB (Q= 32, T= 1):     2.828 MB/s [    690.4 IOPS] < 46078.32 us>
  RND    4KiB (Q=  1, T= 1):     2.783 MB/s [    679.4 IOPS] <  1469.64 us>

Profile: Default
   Test: 1 GiB (x3) [F: 0% (0/28GiB)]
   Mode: [Admin]
   Time: Measure 5 sec / Interval 5 sec 
   Date: 2021/06/04 23:29:51
     OS: Windows 10 Professional [10.0 Build 19042] (x64)
Comment: Transcend TS32GUSD300S-AE + BSCRMSDCBK(USB2.0)

GRUB_DEFAULT=0
# GRUB_HIDDEN_TIMEOUT=0
GRUB_HIDDEN_TIMEOUT_QUIET=true
GRUB_TIMEOUT=5
GRUB_DISTRIBUTOR=`lsb_release -i -s 2> /dev/null || echo Debian`
GRUB_CMDLINE_LINUX_DEFAULT="noquiet nosplash"
GRUB_CMDLINE_LINUX="persistent"

• GRUB_HIDDEN_TIMEOUT=0 の行をコメントアウト。
• GRUB_TIMEOUT=10 を =5 に変更。ここで指定した秒数が過ぎると、OSが自動で起動する。
• これは好みだけど、GRUB_CMDLINE_LINUX_DEFAULT="noquiet nosplash" を指定して、Ubuntuのスプラッシュ画面を非表示・起動する過程をテキスト表示するように指定。

menuentry "FreeBSD 10.3" {
    insmod ufs2
    set root=(hd0,3)
    kfreebsd /boot/loader
}

• 屋上付近の壁は窓がついてない。
• 壁の両脇も窓がついてないことが多い。
• 1〜2階のあたりは、上の階とは違うデザインになってる。

• パッと見、カラフルなUI。
• 図形を配置する方法がちとよく分からず。右下の Add Shape から、キャンバスにD&Dして、大きさを調整する、という感じでいいのかな？
• スペースキー + 左ドラッグで、キャンバスを移動。
• パス編集中、Shift + 左クリックで、頂点の種類を変更。
• 右上の、塗りと線のアイコンのどちからをクリックすることで、塗り、もしくは線の色を変えられる。右側の色ボタン、もしくはその右の三角を押して色を選択。あるいは、下にあるカラーリスト内をクリックして選択。
• エクスポート時に選べるベクターデータは、svg か wmf。…wmf は古い規格なので、emf に比べると精度が低くて見た目酷くなるんだけど、いいのかしら。

• いかにも昔の*NIX向けソフトな感じがする白黒オンリーの殺風景なUI。なんだか昔の Tcl/Tk 等を思い出す。
• 操作時、右上に、マウスの「左ボタン」「中ボタン」「右ボタン」の割り当てが表示される。中ボタンが決定で、右ボタンがキャンセルになってる場面が多い印象。中ボタンが決定なあたり、実に X Window 用らしい割り当てかなと。
• メニュー項目を選ぶときは、メニューボタンを押しっぱなしにして操作しないといけない。これが X Window 文化なのだろうか…。
• 配置した図形を選択する方法が分からない。左下のEDIT等を押して、やっていくしかないのだろうか。
• eps, emf, svg 等でエクスポート可能。他にもかなりの種類をサポートしている。
• 見た目はディザ等で表示されてるけど、epsエクスポートしたらグレースケールになっていた。作業中の見た目と出力結果が結構違ってくることを意識しながら作業する必要がありそう。

sudo apt-get install ttf-mscorefonts-installer texlive-latex-extra xfonts-100dpi xfonts-75dpi x11-utils texlive-latex-base

• 昔の*NIX向けソフトらしい白黒UI。
• ウインドウ下部のステータスバーに、マウスの、左、中、右ボタンの割り当てが表示される。
• 上のツールバー上に、塗りパターン、色選択ボタンがある。左クリックや右クリックで種類を順々に切り替えていける。選択リスト表示は、中ボタン。
• 保存ファイル名指定時に、ディレクトリ名もキーボードから入力しないといけないらしい。TABキーで補完は効かない。
• エクスポート時の操作がちと変わってる。File → Print/Export Format で保存形式(アイコン画像)を選んだうえで、File → Print をすることでベクターデータが保存されるらしい。
• eps, ps, pdf, svg でエクスポート(Print)可能。

;; insert-auto-time-stamp-string
;; auto-time-stamp の文字列を挿入

(setq *auto-time-stamp-insert-string* "Last updated: <>")

(defun insert-auto-time-stamp-string()
  (interactive)
  (insert *auto-time-stamp-insert-string*))

1. gccなどのコンパイラをインストールしてPathを設定。
2. ソースを作成、読み込み: C-x C-f (or C-c C-f) **.c
3. コンパイル: C-x & gcc **.c -o **.exe
4. 実行: C-x & **.exe

実行すると標準出力がxyzzyにパイプされ、xyzzyに表示される。

$ perl -MCPAN -e shell
cpan> install Jcode

cpan> install Jcode
Running install for module Jcode
Running make for D/DA/DANKOGAI/Jcode-2.00.tar.gz
CPAN: Digest::MD5 loaded ok
CPAN: Compress::Zlib loaded ok
Checksum for x:\xxxxxx\xxxxxx\activeperl\.cpan\sources\authors\id\D\DA\DANKOGAI\Jcode-2.00.ta
Scanning cache x:\xxxxxx\xxxxxx\activeperl\.cpan\build for sizes
Jcode-2.00
Jcode-2.00/t
Jcode-2.00/t/stripped.euc
(中略)
Jcode-2.00/Changes.ver0X
Jcode-2.00/Jcode.pm
Jcode-2.00/README
Jcode-2.00/Makefile.PL
Removing previously used x:\xxxxxx\xxxxxx\activeperl\.cpan\build\Jcode-2.00

  CPAN.pm: Going to build D/DA/DANKOGAI/Jcode-2.00.tar.gz

Checking if your kit is complete...
Looks good
Writing Makefile for Jcode
dmake.exe:  Error -- `x:\usr\local\Perl\lib^NAME' not found, and can't be made
  x:\xxxxxx\bin\dmake.exe  -- NOT OK
Running make test
  Can't test without successful make
Running make install
  make had returned bad status, install seems impossible

cpan>

"〜\Perl\lib\CPAN\Config.pm"というのが設定内容を保持しているファイルです。これの内容をエディタなどでいじってやればちゃんとCPANモジュールの動作に反映されますし、消してやれば次のCPAN シェル起動時にまた設定が始まります。

設定画面を改めて出す方法はCPANのシェル画面で"o conf init"とすればよいようです。

perl\lib\CPANのConfig.pm　削除し、Config.pm~ を　Config.pm　としてから、中身の1を0に変更すると、再設定可能

cpan>o conf init

C:\perl\lib\CPAN/Config.pmを直接編集することもできます。

x:\xxxxxx\xxxxxx\activeperl>perl -MCPAN -e shell
Terminal does not support AddHistory.

cpan shell -- CPAN exploration and modules installation (v1.7601)
ReadLine support available (try 'install Bundle::CPAN')

cpan> install Jcode
CPAN: Storable loaded ok
Going to read x:\xxxxxx\xxxxxx\activeperl\.cpan\Metadata
  Database was generated on Fri, 03 Jun 2005 23:08:12 GMT
Running install for module Jcode
Running make for D/DA/DANKOGAI/Jcode-2.00.tar.gz
CPAN: Digest::MD5 loaded ok
CPAN: Compress::Zlib loaded ok
Checksum for x:\xxxxxx\xxxxxx\activeperl\.cpan\sources\authors\id\D\DA\DANKOGAI\Jcode-2.00.tar.gz ok
Scanning cache x:\xxxxxx\xxxxxx\activeperl\.cpan\build for sizes
Jcode-2.00
Jcode-2.00/t
Jcode-2.00/t/stripped.euc
Jcode-2.00/t/unibench.pl
Jcode-2.00/t/table.sjis
(中略)
Jcode-2.00/Jcode.pm
Jcode-2.00/README
Jcode-2.00/Makefile.PL
Removing previously used x:\xxxxxx\xxxxxx\activeperl\.cpan\build\Jcode-2.00

  CPAN.pm: Going to build D/DA/DANKOGAI/Jcode-2.00.tar.gz

Checking if your kit is complete...
Looks good
Writing Makefile for Jcode

Microsoft (R) Program Maintenance Utility   Version 1.50
Copyright (c) Microsoft Corp 1988-94. All rights reserved.

cp Jcode/Nihongo.pod blib\lib/Jcode/Nihongo.pod
cp Jcode.pm blib\lib/Jcode.pm
  x:\xxxxxx\bin\nmake.EXE  -- OK
Running make test

Microsoft (R) Program Maintenance Utility   Version 1.50
Copyright (c) Microsoft Corp 1988-94. All rights reserved.

        x:\usr\local\Perl\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib\lib', 'blib\arch')" t\append.t t\convert.t t\getcode.t t\h2z.t t\jf
old.t t\length.t t\mime.t t\new.t t\perl581.t t\regex.t t\tr.t
t\append.....ok
t\convert....ok
t\getcode....ok
t\h2z........ok
t\jfold......ok
t\length.....ok
t\mime.......ok
t\new........ok
t\perl581....ok
t\regex......ok
t\tr.........ok
All tests successful.
Files=11, Tests=231,  8 wallclock secs ( 0.00 cusr +  0.00 csys =  0.00 CPU)
  x:\xxxxxx\bin\nmake.EXE test -- OK
Running make install

Microsoft (R) Program Maintenance Utility   Version 1.50
Copyright (c) Microsoft Corp 1988-94. All rights reserved.

Installing x:\usr\local\Perl\site\lib\Jcode.pm
Installing x:\usr\local\Perl\site\lib\Jcode\Nihongo.pod
Appending installation info to x:\usr\local\Perl\lib/perllocal.pod
  x:\xxxxxx\bin\nmake.EXE install  -- OK

cpan>

perl -MJcode -e "print $Jcode::VERSION"

perldoc Jcode

・ Internet Explorerでの接続設定は正しいのに、メールソフトでの接続設定が正しくない
・ メールを送受信する際の、IDやパスワードの入力が正しくない
・ ウイルス対策ソフトウェアの動作によって、送受信ができなくなっている