Segmentation Fault

コアダンプの数だけ強くなれるよ、デスマと戦うエンジニアのように。

Teratermマクロでカウンタ表示

Teratermマクロで実行回数を表示する。


カウンタ表示マクロ(counter.ttl)

; グローバル変数
Count = 0
true = 1
false = 0

; 以下、dateコマンドを無限に繰り返す
while true
  call show_counter
  sendln "date"
  wait ']$'
  pause 1
endwhile

; カウンタの表示
:show_counter
sprintf2 str "%d 回目" Count
statusbox str "カウンタ"
Count = Count + 1
return


実行結果
f:id:segmentation-fault:20170218200125p:plain

PowerShellで某コンビニの入店音ぽい音

WindowsPowerShellbeep音を出す。
折角なのであのメロディーの再現にトライしてみた。


実行に必要な準備


実行するスクリプト(enter.ps1)

# a certain convenience store

[Console]::Beep(1479, 400) # F#5
[Console]::Beep(1174, 400) # D5
[Console]::Beep(880,  400) # A4
[Console]::Beep(1174, 400) # D5
[Console]::Beep(1318, 400) # E5
[Console]::Beep(1760,1000) # A5

[Console]::Beep(1318, 400) # E5
[Console]::Beep(1479, 400) # F#5
[Console]::Beep(1318, 400) # E5
[Console]::Beep(880,  400) # A4
[Console]::Beep(1174, 800) # D5


実行結果

PS C:'\pass'>  Get-ExecutionPolicy
RemoteSigned
PS C:'\pass'> 
PS C:'\pass'> .\enter.ps1
(演奏中)


クオリティはご愛嬌ということで(笑)

Tone.jsで音を鳴らしてみる

Tone.jsを使って簡単な演奏をしてみた。
今回は4分音符で単調なメロディーを繰り返すだけ。

doremi.html

<!-- index.html -->
<!doctype html>
<html>
<head>
    <meta charset="UTF-8">
    <title>サウンド</title>
</head>

<body>
    <button id="play">PLAY</button>
    <button id="stop">STOP</button>
    <script src="https://code.jquery.com/jquery-2.1.4.min.js"></script>
    <script src="https://cdn.rawgit.com/Tonejs/Tone.js/4c2cf070/build/Tone.js"></script>
    <script>
      var bell = new Tone.Synth().toMaster();
      var bellPart = new Tone.Sequence(function(time, note){
          bell.triggerAttackRelease(note, "4n", time);
      }, ["C4", "D4", "E4", "F4", "E4", "D4","C4", "4n"]).start(0);
 
      Tone.Transport.bpm.value = 120;

      $("#play").click(function() {
        Tone.Transport.start()
      });
      
      $("#stop").click(function() {
        Tone.Transport.stop()
      });
    </script>
</body>

実行結果
f:id:segmentation-fault:20170217010424p:plain


今のところ4分音符の使い方しかわからず。
途中に2分音符や8分音符を挟むにはどうすればよいのだろう。

X11で始めるGUIプログラミング

いまどきX11でプログラム書くことがあるかは知らないけど、
凄い昔にLinuxGUIのプログラミングにトライしたときのサンプルコードを見つけたので掲載。
現代はQtとか使うのかな。

事前準備

$ sudo yum -y install libX11*


x11.c

#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include <stdio.h>
#include <math.h>

#define N 8

unsigned long GetColor( Display* dis, char* color_name )
{
    Colormap cmap;
    XColor near_color, true_color;

    cmap = DefaultColormap( dis, 0 );
    XAllocNamedColor( dis, cmap, color_name, &near_color, &true_color );
    return( near_color.pixel );
}


int main( void )
{
    Display* dis;
    Window win;
    XSetWindowAttributes att;
    GC gc;
    XEvent ev;

    int x[N],y[N];
    int i,j;

    dis = XOpenDisplay( NULL );
    win = XCreateSimpleWindow( dis, RootWindow(dis,0), 100, 100,
      256, 256, 5, WhitePixel(dis,0), BlackPixel(dis,0) );

    att.backing_store = WhenMapped;
    XChangeWindowAttributes( dis, win, CWBackingStore, &att );

    XSelectInput( dis, win, ExposureMask );
    XMapWindow( dis, win );

    do{
        XNextEvent( dis, &ev);
    }while( ev.type != Expose );

    gc = XCreateGC( dis, DefaultRootWindow(dis), 0, 0 );
    XSetForeground( dis, gc, GetColor( dis, "green")  );


    for( i=0 ; i < N ; i++ ){
        x[i] = (int)(128*cos(2*M_PI*i/N))+128;
        y[i] = (int)(128*sin(2*M_PI*i/N))+128;
    }

    for( i=0 ; i < N ; i++ ){
        for( j=i+1 ; j < N ; j++ ){
            XDrawLine( dis, win, gc, x[i], y[i], x[j], y[j] );
        }
    }

    XFlush( dis );

    getchar();
    XDestroyWindow( dis , win );
    XCloseDisplay( dis );

    return(0);
}


実行結果

$ gcc -o x11 x11.c -I/usr/include -L/usr/lib -lX11 -lm
$ ./x11


f:id:segmentation-fault:20170215233702p:plain

URLを指定して開いたページをPDFで保存する

IEで特定のページを開く→ 仮想プリンタでPDF印刷という作業を繰り返したい人向け。

[作業の流れ]

  1. 仮想プリンタ(BullzipやPDF reDirect等)をインストールして通常使うプリンタに設定する。
  2. ExcelでURLのリストを作り、マクロにPDF化するプログラムを記載して実行。


PDF_PRINT.xlsm
f:id:segmentation-fault:20170215020433p:plain

VBAコード

'Sleepを使うためライブラリを呼び出し
#If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
#End If

Sub PRINT_PDF()

  'URLリスト範囲
  Const URL_LIST_HEAD = 1
  Const URL_LIST_TAIL = 4
  Const URL_LIST_ROW = 1

  Dim UrlEntry As Long
  
  'URL数分繰り返し
  For UrlEntry = URL_LIST_HEAD To URL_LIST_TAIL
    'URLを指定してPDFで印刷する
    Call URL2PDF(Cells(UrlEntry, URL_LIST_ROW))
  Next UrlEntry

End Sub


Function URL2PDF(URL As String)
    
  'iexplore.exe起動
  Set IE = CreateObject("InternetExplorer.Application")
  
  'ブラウザ表示
  IE.Visible = True

  'URL指定したページを表示
  IE.Navigate URL
  
  'ページの読み込みが完了するまで待機
  Do Until IE.Busy = False
      Sleep 250
  Loop

  'デフォルトのプリンタ(今回はPDF出力する仮想プリンタ)で印刷実行
  'IE.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
  IE.ExecWB 6, 2
  
  'ENTER, ALT+F4(閉じる)キーの送信用
  Set Sh = CreateObject("WScript.Shell")
  
  '適度なwait
  Sleep 3000

  '仮想プリンタの印刷ボタンをポチッとな
  Sh.SendKeys ("{ENTER}")

  '適度なwait
  Sleep 10000
  
  '閉じるボタン(ショートカットキー)(必要なら)
  'Sh.SendKeys ("%" + "{F4}")

  '適度なwait
  Sleep 3000
  
  Set Sh = Nothing

  'IEを閉じる
  IE.Quit
  Set IE = Nothing
  
  'IEのプロセスを強制終了
  'IEを閉じるだけではプロセスが残り,次回のNavigateで失敗する場合があるので念のため
  Shell "taskkill /f /im iexplore.exe"
  
  '適度なwait
  Sleep 3000
  
End Function


動けばいいやで作ったツールなので変なSleepの処理などはご容赦。

最低限あると嬉しいvimrc

大抵もっとごちゃごちゃ書いてあるけど、個人的に最低限あると嬉しいvimrcの設定だけをピックアップ。

$cat ~/.vimrc
syntax on

"色設定
colorscheme desert

"前回編集終了位置からの再開
augroup vimrcExtend
au BufReadPost * if line("'\"") > 1 && line("'\"") <= line("$") | exe "normal! g`\""
augroup END

"C/C++ファイルのみ拡張Tab設定
autocmd FileType c,cpp set expandtab

"インデント関連
set cindent
set cinoptions=:0,p0,t0
set cinwords=if,else,while,for,do,switch,case
set backspace=2
set tabstop=4
set shiftwidth=4

"文字コード
set encoding=utf-8
set fileencodings=utf-8,iso-2022-jp,cp932,sjis,euc-jp

"行表示
set nu

"検索時のハイライト
set hlsearch

"ショートカット
nmap <ESC><ESC> : nohlsearch <CR>
nmap <TAB> : set nu <CR>
nmap <TAB><TAB> : set nonu <CR>

ソースコードと完全に同じ文字列を出力する

実用性はゼロですが、お遊び感覚でCとperlでやってみた。

Perlの場合

quine.pl

$_=q{                   q[
     *  *       *  *
   *      *   *      *
  *         *         *
  *                   *
   *   Hello Quine   *
    *               *
      *           *
        *       *
          *   *
            *
]; print"\$_=q{$_};eval\n"};eval

実行結果

$ perl quine.pl
$_=q{                   q[
     *  *       *  *
   *      *   *      *
  *         *         *
  *                   *
   *   Hello Quine   *
    *               *
      *           *
        *       *
          *   *
            *
]; print"\$_=q{$_};eval\n"};eval

Cの場合

quine.c

#define quine(x) main(){return puts(#x"\nquine("#x")");}
quine(#define quine(x) main(){return puts(#x"\nquine("#x")");})


実行結果

$ gcc -o quine quine.c
$ ./quine
#define quine(x) main(){return puts(#x"\nquine("#x")");}
quine(#define quine(x) main(){return puts(#x"\nquine("#x")");})