Prolog 写経記 その 80 screen_background/1

(ほぼ) 毎日淡々と Prolog を写経します．元ネタはこちら．

Prologユーティリティライブラリ

続けて screen_background/1 を写経します．少々ヤケ気味．

解説

screen_background(Color) は画面の背景色を選択する．Color は dark か light のいずれかである．

ふーん．
おらいが使っているのは Windows 版の SWI-Prolog なんですが．．．
ちゃんと役に立つのでしょうか？
かなり微妙．．．
(こぴぺ)

モード

screen_background(+)

ふむ．

定義

では，こいつの定義を写経しませう．

screen_background(Colour) :-
	colour_code(Colour, Code),
	escape(Code).
colour_code(dark, '[?5l') :- !.
colour_code(light, '[?5h').

つまんね．

注意

screen_background(dark) は暗い背景の上に明るい文字を，screen_background(light) は明るい背景の上に暗い文字を表示するよう切り替える．

またまた Windows 版の SWI-Prolog で動くのかは微妙．．．

例

では使用例を写経しませう．
．．．
と思ったけれど使用例がない．(;_;)
まぁ，簡単だから使ってみましょう．

3 ?- screen_background(dark), write('Yuri').
5lYuri

Yes
4 ?- screen_background(light), write('Ebihara').
5hEbihara

Yes

ぐはぁっ，普通にダメっぽい．

---