mieki256's diary

// draw text on OpenGL for wglUseFontBitmaps

#include <GL/freeglut.h>
#include <stdio.h>
#include <tchar.h>

#define WIDTH 512
#define HEIGHT 288

static int count = 0;

class GLFONT
{
public:
  HFONT Hfont;
  HDC Hdc;

  // create font
  GLFONT(LPCTSTR fontname, int size)
  {
    Hfont = CreateFont(
        size,                    // font height
        0,                       // font width
        0,                       // テキストの角度
        0,                       // Orientation
        FW_REGULAR,              // font weight
        FALSE,                   // italic
        FALSE,                   // underline
        FALSE,                   // strikeout
        ANSI_CHARSET,            // charset
        OUT_DEFAULT_PRECIS,      // OutPrecision
        CLIP_DEFAULT_PRECIS,     // ClipPrecision
        ANTIALIASED_QUALITY,     // Quality
        FIXED_PITCH | FF_MODERN, // Pitch And Family
        fontname                 // face name
    );

    Hdc = wglGetCurrentDC();
    SelectObject(Hdc, Hfont);
  }

  // draw string
  void DrawString(int x, int y, char *format, ...)
  {
    int Length = 0;
    int list = 0;

    if (format == NULL)
      return;

    Length = strlen(format);
    list = glGenLists(Length);

    for (int i = 0; i < Length; i++)
    {
      wglUseFontBitmaps(Hdc, format[i], 1, list + i);
    }

    glDisable(GL_LIGHTING);
    glRasterPos2i(x, y);

    // draw
    for (int i = 0; i < Length; i++)
    {
      glCallList(list + i);
    }

    glEnable(GL_LIGHTING);

    // delete displey list
    glDeleteLists(list, Length);

    list = 0;
    Length = 0;
  }
};

GLFONT *font;

// Draw OpenGL
void display(void)
{
  glClearColor(0.2, 0.4, 0.8, 0.0);
  glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);

  // draw text
  glColor4f(1.0, 1.0, 1.0, 1.0); // set text color

  font->DrawString(40, 40, (char *)"Hello World");

  {
    char buf[256];
    sprintf(buf, "count %d", count);
    font->DrawString(40, 100, buf);
  }

  glutSwapBuffers();
  count++;
}

void idle(void)
{
  glutPostRedisplay(); // redraw
}

void keyboard(unsigned char key, int x, int y)
{
  switch (key)
  {
  case '\x1B':
  case 'q':
    // Exit on escape or 'q' key press
    glutLeaveMainLoop();
    // exit(EXIT_SUCCESS);
    break;
  }
}

int main(int argc, char *argv[])
{
  glutInit(&argc, argv);
  glutInitDisplayMode(GLUT_RGBA | GLUT_DOUBLE);
  glutInitWindowSize(WIDTH, HEIGHT);
  // glutInitWindowPosition(100, 100);

  glutCreateWindow("Draw string");

  glutKeyboardFunc(keyboard);
  glutDisplayFunc(display);
  glutIdleFunc(idle);

  glOrtho(0, WIDTH, HEIGHT, 0, -1, 1);
  font = new GLFONT(_T("Courier New"), 24);

  glutMainLoop();
  return 0;
}

ifeq ($(MSYSTEM),MINGW64)

# --------------------
# MSYS2 MINGW64 (gcc 13.2.0)

01_drawtextwgl.exe: 01_drawtextwgl.cpp Makefile
    g++ $< -o $@ -lglu32 -D FREEGLUT_STATIC -lfreeglut -lopengl32 -lwinmm -lgdi32 -static

else

# --------------------
# MinGW (gcc 6.3.0)

01_drawtextwgl.exe: 01_drawtextwgl.cpp Makefile
    g++ $< -o $@ -lglu32 -D FREEGLUT_STATIC -lfreeglut_static -lopengl32 -lwinmm -lgdi32

endif

.PHONY: clean
clean:
    rm -f *.exe
    rm -f *.o

• CPU : Celeron B820 (2C2T, 1.7GHz, SandyBridge)
• RAM : シングルチャネル 6GB (2GB + 4GB, DDR3-1600/PC3-12800, SO-DIMM 2スロット)
• HDD : SEAGATE ST320LT020-9YG142 (320GB, 5400rpm, Cache 16MB, Serial ATA300, 厚さ7mm)

haxelib install formatter

{
    "indentation": {
        "character": "    "
    }
}

{
    "lineEnds": {
        "blockCurly": {
            "leftCurly": "both",
            "emptyCurly": "noBreak"
        }
    },
    "indentation": {
        "character": "    "
    }
}

    public function new () {
        super ();
    ...

↓

    public function new ()
    {
        super ();
    ...

LANG=C xdg-user-dirs-gdk-update

gsettings set org.blueman.transfer shared-path '/home/ユーザ名/Downloads'

require_relative './lib/dxrubyws'
require_relative './lib/standardgui'

WS.desktop.add_control(WS::WSWindow.new(100,100,300,200,"TutorialWindow"))

Window.loop do
  WS.update
end

require_relative './lib/standardgui'

require_relative './lib/dxrubyws'
require_relative './lib/standardgui'

# ウインドウを生成
window = WS::WSWindow.new(100,100,300,200,"TutorialWindow")

# 画面に登録
WS.desktop.add_control(window)

# ボタンを生成
button = WS::WSButton.new(10,10,100,20,"TutorialButton")

# ウインドウ(のクライアント領域)に登録
window.client.add_control(button)

Window.loop do
  WS.update
end

• WSWindowオブジェクトはコンテナの集合体。タイトルバーとクライアント領域に分かれてる。
• ユーザがコントロールを配置するのはクライアント領域のほう。
• クライアント領域は、WSWindow#clientでアクセスすることができる。

require_relative './lib/dxrubyws'
require_relative './lib/standardgui'

window = WS::WSWindow.new(100,100,300,200,"TutorialWindow")
WS.desktop.add_control(window)

button = WS::WSButton.new(10,10,100,20,"TutorialButton")
window.client.add_control(button)

# ボタンをクリックしたときに呼ばれる処理を登録
button.add_handler(:click) do
  # ボタンの表示位置を、右下に10ドット変更する
  button.x += 10
  button.y += 10
end

Window.loop do
  WS.update
end

require_relative './lib/dxrubyws'
require_relative './lib/standardgui'

module WS
  class TutorialWindow < WSWindow
    def initialize(*args)
      super
      button = WS::WSButton.new(10,10,100,20,"TutorialButton")
      client.add_control(button, :btn)
      button.add_handler(:click, self.method(:on_click))
    end

    def on_click(obj, tx, ty)
      client.btn.x += 10
      client.btn.y += 10
    end
  end
end

window = WS::TutorialWindow.new(100,100,300,200,"TutorialWindow")
WS.desktop.add_control(window)

Window.loop do
  WS.update
end

WS::WSImageButton.new(tx, ty, image, width, height, caption)

x : 表示位置 x
y : 表示位置 y
image : 画像オブジェクト(DXRuby の Imageオブジェクト)
width : 横幅。nil なら自動調整
height : 縦幅。nil なら自動調整
caption : キャプション文字列

# ImageButton(画像ボタン)を表示してみる

require_relative 'lib/dxrubyws'
require_relative 'lib/standardgui'

module WS

  # 画像ボタンを表示してみるウインドウのクラス
  class ImageButtonWindow < WSWindow

    # コンストラクタ。初期化処理
    def initialize(*args)
      super

      # 画像を用意する。アイコンが、8x3個、並んでる
      imgs = Image.loadTiles("toolbar.png", 8, 3)

      # 画像ボタンを生成
      # 引数として、(x, y, Imageオブジェクト, ボタン横幅, ボタン縦幅, caption) を渡す
      # 横幅、縦幅の指定が nil なら、画像サイズ＋αで調整してくれる
      x, y = 10, 10
      w, h = nil, nil
      imgbtn = WS::WSImageButton.new(x, y, imgs[1], w, h, "Open")

      # 画像ボタンをクライアント領域に追加
      client.add_control(imgbtn, :btn)

      # ボタンが押された時の処理を設定
      imgbtn.add_handler(:click, self.method(:on_click))
    end

    # ボタンを押した時の処理
    def on_click(obj, tx, ty)
      # ファイル選択ダイアログを開いてみる
      filter = [
        ["PNGファイル(*.png)", "*.png"],
        ["すべてのファイル(*.*)", "*.*"]
      ]
      filepath = Window.openFilename(filter, "ファイルを選択してください")

      unless filepath
        # キャンセルされた
        puts "Cancel."
      else
        # ファイルが選ばれた
        puts filepath
      end
    end
  end
end

# ウインドウを生成
window = WS::ImageButtonWindow.new(8, 8, 320, 96, "ImageButtonWindow")

# 画面に追加
WS.desktop.add_control(window)

Window.loop do
  WS.update
end

# ImageButton(画像ボタン)を表示して、ツールボックスっぽく並べてみる

require_relative 'lib/dxrubyws'
require_relative 'lib/standardgui'

module WS

  # ツールボックスっぽく表示してみるウインドウクラス
  class ToolBoxWindow < WSWindow

    # コンストラクタ。初期化処理
    def initialize(*args)
      super

      # アイコン画像を読み込む。アイコンが、8x3個、並んでる
      imgs = Image.loadTiles("toolbar.png", 8, 3)

      # アイコン種類を定義
      icon_list = [
        # 画像番号, caption, 押された時の処理名
        [0, "New", :create_new_data],
        [1, "Open", :load_data],
        [2, "Save", nil],
        [3, "Export", nil],

        [11, "Zoom +", nil],
        [12, "Zoom -", nil],
        [13, "Brush Size +", nil],
        [14, "Brush Size -", nil],

        [17, "Swap Fg/Bg Color", nil],
        [16, "Grid on/off", nil],
        [15, "Undo", nil],

        [4, "Pen", nil],
        [5, "Erase", nil],
        [6, "Line", nil],
        [7, "Rectangle", nil],

        [8, "Rectangle Fill", nil],
        [9, "Fill", nil],
        [10, "Text", nil],
      ]

      # アイコンの数だけループする
      x = 0
      y = 0
      i = 0
      icon_list.each do |d|
        idx, caption, job_sym = d

        # マウスカーソルでバルーン表示が隠れてしまうので、少し修正
        caption = "    " + caption + " "

        # 画像ボタンを生成
        # 引数として、(x, y, Imageオブジェクト, ボタン横幅, ボタン縦幅, caption) を渡す
        # 横幅、縦幅の指定が nil なら、画像サイズ＋αで調整してくれる
        imgbtn = WS::WSImageButton.new(x, y, imgs[idx], nil, nil, caption)

        # 画像ボタンをクライアント領域に追加
        client.add_control(imgbtn, :btn)

        if job_sym != nil
          # ボタンが押された時の処理を設定
          imgbtn.add_handler(:click, self.method(job_sym))
        end

        i += 1

        # 次のボタンの表示位置を決める
        if i % 11 == 0
          x = 0
          y += imgbtn.height
        else
          x += imgbtn.width
        end
      end
    end

    # Newボタンを押した時の処理
    def create_new_data(obj, tx, ty)
      puts "create new data"
    end

    # Openボタンを押した時の処理
    def load_data(obj, tx, ty)

      # ファイル選択ダイアログを開いてみる
      filter = [
        ["PNGファイル(*.png)", "*.png"],
        ["すべてのファイル(*.*)", "*.*"]
      ]
      filepath = Window.openFilename(filter, "ファイルを選択してください")

      unless filepath
        # キャンセルされた
        puts "Cancel."
      else
        # ファイルが選択された
        puts filepath
      end
    end
  end
end

# ツールボックスウインドウを生成
window = WS::ToolBoxWindow.new(8, 8, 320, 96, "ToolBoxWindow")

# 画面に追加
WS.desktop.add_control(window)

Window.loop do
  WS.update
end

• ボタンをずらずら並べていったら、自動でウインドウサイズも変わってほしいし、
• 逆に、ウインドウサイズを変更したら、ボタンが横に並ぶ個数も自動で変わったりしてほしい。

# test.pl: small script to test mod_dosevasive's effectiveness

use IO::Socket;
use strict;

for(0..100) {
    my $response;

    my $SOCKET = new IO::Socket::INET( Proto => "tcp",
                                       PeerAddr => "127.0.0.1:80");

    if (! defined $SOCKET) { die $!; }

    print $SOCKET "GET /?$_ HTTP/1.0\n\n";
    $response = <$SOCKET>;
    print $response;
    close($SOCKET);
}

原理主義は大抵の場合一般化とともに数の暴力で滅亡するので、いまや「ホームページ」発言に誰もツッコミを入れないのと同様トラックバックも数年後には「内容の似ているサイトに自動的にトラックバックを打つブログシステム」とかがいても皆疲れ果てて何もいわなくなるに一票。

トラックバックは死んだ - てくのーと2.0 より

＜コメント＞
　//　から行末までです

  (setq *uws-mode-syntax-table* (make-syntax-table))
  (do ((x #x21 (1+ x)))((>= x #x7f))
	(let ((c (code-char x)))
	  (unless (alphanumericp c)
		(set-syntax-punctuation *uws-mode-syntax-table* c))))

  (setq *uws-mode-syntax-table* (make-syntax-table))
  (set-syntax-word *uws-mode-syntax-table* #\_ )