Canvas Aided Lisp Magic: Lisp でキャンバスベースのアプリケーションを作成し、Linux、macOS、Windows、Web 上で配布できます。
English | 日本語
任意のディレクトリを探し、ファイルを作成する: canvas.lisp
(defparameter *color-list* '((0.83 0.82 0.84) (0.89 0.12 0.17) (0.94 0.87 0.47) (0 0.35 0.59)))
(defun draw ()
(c:set-operator :darken)
(dotimes (i 7)
(c:arc (+ 72 (* (- (/ *calm-window-width* 5) 44) i)) 73 50 0 (* 2 pi))
(apply #'c:set-source-rgb (nth (if (>= i 4) (- i 4) i) *color-list*))
(c:fill-path)))ターミナルを起動し、そのディレクトリに cd してコマンドを入力する:
calm
CALM で作られた他のアプリケーションについては、Made with CALM をご覧ください。
-
ダウンロード
-
解凍
-
解凍したディレクトリを PATH 環境に追加する
macOS の場合は、代わりに
/Applications/Calm.app/Contents/MacOS/を追加する
macOS と Windows ユーザーの場合、CALM を使うには Windows SmartScreen よりもスマートであるか、macOS を飼いならす事ができる必要があります。万が一何かあったときのために、ここにインストールガイドがあります。
現在、サポートされているプラットフォームは GitHub Actions runner images によって制限されています。
もしあなたのプラットフォームがサポートされていない場合は、ソースから実行を使ってください。
ターミナルを起動し、canvas.lisp ファイルが存在するディレクトリに cd し、次のコマンドを入力する:
calm publishこのコマンドは、プラットフォームによって異なるパッケージを生成する:
Linux: AppImage
注
ファンシーウィンドウのアイコンは Wayland では表示されない、何故かは不明。
macOS: Application Bundle
注
DMG の作成は create-dmg によって行われ、もし存在しなければ
brew install create-dmgによってインストールされます。そのため、create-dmg を持っていない場合は、これで create-dmg がインストールされます。また、Homebrew を持っていない場合は Homebrew をインストールしてくれます。
バイナリ検出は
command -v create-dmgとcommand -v brewで行われています。
Windows: Installer
注
インストーラの作成は NSIS によって行われ、もし存在しなければ
winget install nsisによってインストールされます。NSIS (つまりmakensis) が PATH の下にない場合、NSIS がインストールされます。また、PATH の下に winget がなければ、これで winget もインストールされます。
バイナリ検出は
where makensisとwhere wingetによって行われています。
calm publish-webこのコマンドを実行すると、Lisp コードをコンパイルして Web ページを作成することができます。
詳しくはコマンドリファレンスを参照してください。
CALM 1.0.0 から、バージョン番号は Semantic Versioning Specification に従います。これは、私がおかしくなることを心配することなく、落ち着いて CALM を使えることを意味します。というのも、私がおかしくなりそうなときはいつでも、何かが変更される前にお知らせしますし、何か驚かせるようなことがあったらメジャーバージョンを上げます。
Keep CALM and have fun.
このコマンドはプロジェクトのディレクトリ内で実行する必要があり、canvas.lisp というファイルが存在するはずです。
このコマンドは canvas.lisp をロードし、関数 draw または draw-forever の指示に従ってウィンドウを表示します。canvas.lisp は普通の Lisp ソースファイルなので、好きなように記述してください。
CALM 関連の関数やパラメータについては、API リファレンスを参照してください。
このコマンドは、デフォルトのディレクトリ構造でサンプルアプリケーションを作成します。最初にプロジェクトディレクトリを作成する必要があります:
mkdir my-cool-app
cd my-cool-app
calm hello以下のファイルとディレクトリが作成されます:
.
├── assets
├── canvas.lisp
└── fonts
└── fonts.conf
assets ディレクトリと fonts ディレクトリに入れたファイルは、配布時にアプリケーションに同梱されます。お気に入りのフォントを fonts ディレクトリに置くと、アプリケーション内でそのフォントを使用できるようになります。
フォントの使い方については、API リファレンス: テキストのレンダリングを参照してください。
このコマンドは以下を生成します:
- Linux AppImage
- DMG 内の macOS アプリケーションバンドル
- Windows アプリケーションインストーラー
実行しているプラットフォームによって異なります。
引数はとりませんが、いくつかのオプションは環境変数で設定できます。オプションの詳細については calm publish-with-options を確認してください。
このコマンドは calm publish と同じことをしますが、その代わりにカスタマイズ可能なすべてのオプション（デフォルト値が用意されています、心配しないでください）について、それぞれあなたの意見を聞きます:
| OS | ENV | 説明 |
|---|---|---|
| Linux | APP_NAME | AppImage のファイル名 |
| Linux | APP_ICON | AppImage ファイルのアイコンと SDL2 Window、PNG ファイルの絶対パス |
| macOS | APP_NAME | Launchpad に表示される macOS アプリケーションバンドルの名 |
| macOS | APP_ICON | macOS アプリケーションアイコン、ICNS ファイルの絶対パス |
| macOS | BUNDLE_ID | CFBundleIdentifier、例えば com.vitovan.helloworld |
| macOS | APP_VERSION | CFBundleShortVersionString、例えば: 10.14.1 |
| macOS | DMG_ICON | Apple Disk Image (DMG) のアイコン、ICNS ファイルの絶対パス |
| Windows | APP_NAME | Windows アプリケーション名は、コントロールパネル > プログラムと機能、アプリケーションと機能、およびデスクトップショートカットの名前として表示されます |
| Windows | APP_ICON | Windows EXE アイコン、ICO ファイルの絶対パス |
対応する環境変数を設定した場合、オプションは聞かれません。また、calm publish コマンドを使っているときにこれらの環境変数を設定することもできます。
このコマンドは、インターネット上で提供するために必要なすべての素材を含む web ディレクトリを生成します。一般的な使い方は次のようになります:
cd my-cool-app
calm publish-web以下のファイルが作成されます:
web
├── calm.data
├── calm.html
├── calm.js
├── calm.wasm
├── canvas.js
├── favicon.ico
└── jscl.js
calm.html がエントリーポイントです。web ブラウザの制限のため、このファイルは次のような HTTP プロトコルでご覧ください:
cd web
python3 -m http.server 8000次にブラウザで http://127.0.0.1:8000/calm.html を開きます。
注: デフォルトでは fonts と assets ディレクトリ内のファイルはパック されません 。以下の REBUILD_WASM_P オプションを確認してください。
このコマンドは calm publish-web 用であることを除けば、calm publish-with-options のように動作します。
| ENV | 説明 |
|---|---|
| LISP_FILES | (load "shape.lisp") のようなコードは、JSCL が HTTP リクエストでそのファイルをロードしようとするため、ウェブアプリケーションに問題を引き起こす可能性があります。 canvas.lisp 以外のファイルをインクルードする必要がある場合は、JSCL をバイパスするようにコードを修正してください、例えば: 次のように、 #-jscl (load "shape.lisp") を実行し、このオプションを設定する: ("/abs/path/to/canvas.lisp" "/abs/path/to/shape.lisp") 。ENV を設定する場合は、二重引用符をエスケープすることを忘れないでください。 |
| REBUILD_WASM_P | デフォルトでは、WebAssembly ファイルはローカルでビルドされず、CALM Releases からダウンロードされます: calm.tar 。 このビルド済み WebAssembly バイナリは OpenSan-Regular.ttf とバンドルされており、以下の API リファレンスにある Cairo および SDL2 のすべての API を公開しています。 他の fonts や assets をバンドルする必要がある場合や、より多くの C API をウェブに公開する必要がある場合は、このオプションを "yes" に設定してください。 注意: WebAssembly のバイナリをビルドするには、たくさんの依存関係が必要になります。そのため、 docker コマンドが自由に使えることを確認して下さい。デフォルト: "no" |
JSCL は CALM の Web 上でのバックボーンですので、JSCL の変更は CALM 自体の変更とみなされます。CALM の各バージョンで使用されている JSCL のコードベースは固定されていますので、CALM をアップデートしない限り変更されることはありません。安心してお使いください。
CALM は、SDL2 や Cairo、その他のものの上の薄いレイヤーになることを意図しています。なので、CALM が提供する API の数はできるだけ少なくなるように意図しています。
これは CALM アプリケーションのエントリーファイルです。通常、draw という関数が含まれています。
これは CALM アプリケーションのエントリー関数で、アプリケーションが起動すると呼び出されます。表示されるキャンバスの描画関数を呼び出すことになっています:
(defun draw ()
(c:set-source-rgb 1 0 0)
(c:arc 200 73 50 0 (* 2 pi))
(c:fill-path))この関数は受動的に呼び出されます。つまり、マウスの動き、キーのダウン、キーのアップ、マウスボタンのダウンなど、ユーザーによって何らかのイベントがトリガーされない限り、この関数は最初の呼び出しの後、再び呼び出されることはありません。
ユーザーの操作なしにキャンバスを更新し続けたい場合は、draw-foreverを使うべきです。
注: c:arc のような関数は CALM が公開しているサードパーティの API です。詳しくはキャンバスに描画を参照してください。
この関数は draw 関数と同様に、CALM アプリケーションのエントリーポイントとしても機能します。draw と draw-forever の両方を定義することは、John Wick の犬を殺してしまうような深刻な結果をもたらすので、避けることが重要です。
この関数はユーザーの操作に関係なく、*calm-delay* ミリ秒ごとに呼び出されます。
この変数は、CALM がキャンバスをリフレッシュする前に何ミリ秒待つかをコントロールします
デフォルト: 42
この変数はデスクトッププラットフォームでのみ機能します。ウェブプラットフォームでは *calm-fps* をチェックしてください。
この変数はこの後のキャンバスをリフレッシュするかどうかを制御します。
通常はこの変数に触れる必要はありません。しかし、draw-forever を使用していて、リフレッシュのプロセスを手動でコントロールしたい場合、この変数は役に立ちます。例えば:
(defparameter *game-started* nil)
(defun on-keyup (key)
(when (c:keq key :SCANCODE-SPACE)
(setf *game-started* (not *game-started*))))
(defun draw-forever ()
(format t "drawing canvas...~%")
(c:set-source-rgb (/ 12 255) (/ 55 255) (/ 132 255))
(c:paint)
(c:set-source-rgb 1 1 1)
(c:move-to 70 90)
(c:select-font-family "Arial" :normal :normal)
(c:set-font-size 60)
(c:show-text (format nil "Press SPACE: ~A" (write-to-string (mod (c:get-ticks) 9))))
(setf *calm-redraw* *game-started*))注: この変数は、ユーザーイベントがトリガーされるたびに T に設定されます。
この変数は CALM がキャンバスを更新する前に何ミリ秒待つかを制御します。0 を設定すると、ブラウザの requestAnimationFrame メカニズムを使用してキャンバスを更新します。
デフォルト: 42
この変数はウェブ上でのみ動作します。デスクトッププラットフォームでは *calm-delay* をチェックしてください。
CALM での描画は、Cairo を使って実現できます。
どのように描画するかについては、Cairo チュートリアルと Cairo API を読んでください。
たとえば:
cairo_set_line_width (cr, 0.1);
cairo_set_source_rgb (cr, 0, 0, 0);
cairo_rectangle (cr, 0.25, 0.25, 0.5, 0.5);
cairo_stroke (cr);は以下と同じです
(c:set-line-width 0.1)
(c:set-source-rgb 0 0 0)
(c:rectangle 0.25 0.25 0.5 0.5)
(c:stroke)cl-cairo2 によってエクスポートされる シンボルはすべて、c: のような接頭辞でアクセスできるようにすべきです、例えば： c:arc 。ウェブ上では、アクセス可能なシンボルは cairo.lisp によって制限されています。
Cairo は CALM の主要な描画機能ですので、Cairo 関連のシンボルの変更は CALM 自体の変更とみなされます。安心してお使いください。
丸みのある長方形を描きます。
(defun draw ()
(c:set-source-rgb 0 0 1)
(c:rrectangle 20 20 100 100 :radius 8) ;; <---- ここ
(c:fill-path))png ファイルを表示します。
(defun draw ()
(c:show-png "assets/calm.png" 20 20 100 100))この関数は必要に応じて png を引き伸ばします。
この関数はc:show-textで使用するフォントを選択します。
(c:select-font-family "Open Sans" :normal :normal)次の 3 つの引数を取ります: family、slant、weight です。詳細な例については、c:show-text を参照して下さい。
カスタムフォントをインストールせずに使用するには、canvas.lispファイルからの相対パスで、fontsディレクトリに置くだけです。
この関数は単純なテキストを表示します。
(defun draw ()
(c:move-to 30 100)
(c:set-font-size 84)
(c:select-font-family "Open Sans" :italic :bold)
(c:show-text "DON'T PANIC"))この関数は Pango Markup を表示します。
(defun draw ()
(c:move-to 20 10)
(c:set-font-size 84)
(c:show-markup "This is <span fgcolor='#245791' weight='bold' face='Open Sans'>SICK</span>"))c:show-markup と c:show-text では座標系が若干異なるので、c:show-markup と c:show-text を切り替える場合には少し位置を調整する必要があるかもしれないです。
この関数は以下の理由によりウェブには公開されていません:
- Pango はマルチスレッドを必要とし、そのためには余計な HTTP HEADERS を設定する必要がある。
- Pango を WebAssembly にコンパイルすると、読み込みにかかる時間とデータが増えます。
- Pango を使用する場合、余分なフォントがバンドルされることが多く、ロードされるデータが増えます。
というわけで、実装は簡単ですが、デフォルトで Pango をインクルードするのは良いアイデアとは思えません。
wavファイルを再生します。
もし c:play-wav が以前に呼ばれ、前の wav ファイルがまだ再生されていた場合、その音はマージされます。
(c:play-wav "assets/ouch.ogg" :loops 0 :channel -1):loops を -1 に設定すると、"無限に" （～65000 回）再生します
:channel を -1 に設定すると、最初に空いているチャンネルで再生します
同時に再生できるファイルの最大数は *calm-audio-numchans* 変数に制限されます。
同時に再生される wav ファイルの最大数です。
デフォルト: 8
c:play-wav の音量を設定します。
(c:volume-wav 128 :channel -1)値は 0 （無音）から 128 の間でなければなりません。
:channel を -1 に設定すると、すべてのチャンネルを意味します。
あるチャンネル、あるいはすべてのチャンネルを停止します。
(c:halt-wav :channel -1):channel を -1 に設定すると、すべてのチャンネルを意味します。
MP3、Ogg、WAV の音楽ファイルを再生します。
他のタイプのファイルでも動作するかもしれませんが、CALM が保証するものではありません。
(c:play-music "assets/bgm.ogg" :loops 0)もし c:play-music が以前に呼ばれ、前の音楽がまだ再生されていた場合、それは停止され、最新の音楽が再生され始めます。
c:play-music の音量を設定します。
(c:volume-music 128)値は 0 （無音）から 128 の間でなければなりません。
音楽の再生を停止します。
音声ファイルを再生します。この機能は HTMLAudioElement を利用するため、ウェブ上でのみ利用可能です。
(c:play-audio "assets/meow.ogg" :loop-audio-p nil :volume 1):volume は 0 から 1 の間でなければなりません。
特定のオーディオファイルまたはすべてのオーディオファイルの再生を停止します。
(c:halt-audio "assets/purr.ogg")引数なしで呼び出すと、再生中のすべてのオーディオを停止します。
上記の変数はマウスと指（モバイルウェブブラウザのようなタッチデバイス）の状態を保持し、読み取り専用です。(setf *calm-state-mouse-x* 20) の結果は漂白剤を飲むことと同じです。
これは単なる SDL_GetTicks です。
これらのコールバックは、あなたが定義すべき関数です。定義しておけば、対応するイベントがトリガーされたときに呼び出されます。
あなたはこれらのコールバックが何をするのか知っているが、知らないのは、その本来あるべき引数でしょう。詳しい例については c:keq を確認して下さい。
この関数は、最初の引数を無限の SDL2 スキャンコードと比較し、マッチするものがあれば T を返します。
(defun on-keyup (key) ;; 悪い vimer のためのキーアップハンドラー
(cond
((c:keq key :scancode-left :scancode-h)
(format t "move left~%"))
((c:keq key :scancode-right :scancode-l)
(format t "move right~%"))
((c:keq key :scancode-up :scancode-k)
(format t "move up~%"))
((c:keq key :scancode-down :scancode-j)
(format t "move down~%"))
(t (format t "I don't know what to do~%"))))SDL2 スキャンコード: https://wiki.libsdl.org/SDL2/SDL_Scancode
(defun on-mousewheel (x y direction)
;; コードをここに
)(defun internal-on-mousemotion (&key x y)
;; コードをここに
)(defun on-mousebuttonup (&key button x y clicks)
;; コードをここに
)
(defun on-mousebuttondown (&key button x y clicks)
;; コードをここに
)(defun on-fingermotion (&key x y dx dy pressure finger-id)
;; コードをここに
)(defun on-fingerup (&key x y dx dy pressure finger-id)
;; コードをここに
)
(defun on-fingerdown (&key x y dx dy pressure finger-id)
;; コードをここに
)(defun on-windowresized (width height)
;; コードをここに
)これら 2 つのコールバックは引数を取りません:
(defun on-windowenter ()
;; コードをここに
)この変数は読み取り専用で、作成された SDL_Window のインスタンスを保持します。
この変数を使用すると、次のような SDL2 ウィンドウ関連のあらゆる関数を使用できます:
;; ウィンドウの位置を取得
(sdl2:get-window-position *calm-window*)
;; ウィンドウを常に上に表示
(sdl2-ffi.functions:sdl-set-window-always-on-top
*calm-window*
sdl2-ffi:+true+)CALM アプリケーションのウィンドウの初期位置（x、y）。
デフォルト: :centered
SDL_WindowFlags のリスト。
この値は次のように設定できます: (setf *calm-window-flags* '(:shown :allow-highdpi :resizable))
デフォルト: '(:shown :allow-highdpi)
あなたはこれらの変数が何をするか知っているはずです。
そうでないなら、5 ドルを私に渡して、そしてもっとよく考えて下さい。
OKOK、これを書くよ、これを書くよ、ちょっと待ってて。
待っている間、以下の便利なリンクをチェックできますよ:
-
SDL2
-
Cairo
-
開発ツール
-
Common Lisp
ソースコードは GPL-2.0-only でリリースされています。