FlyWithLua – Macな暮らし

便利なQuickLookコマンドを活用

polo-web — Thu, 09 Oct 2025 02:36:46 +0000

X-PlaneにあるQuickLookコマンドは非常に便利な機能ですが、設定がちょっと面倒なところがあります。そこでFlyWithLuaを使ってプラグインを作成してみました。

require "graphics"

local x1 = 15
--local x2 = 0
local y1 = 100
--local y2 = 0

--------------------------＊＊＊＊＊＊＊＊＊＊--------------------------
------------------------ テキスト、形の描画関数 ------------------------
--------------------------＊＊＊＊＊＊＊＊＊＊--------------------------
function draw_quick_look_memory()

	-- グラフィックシステムを初期化する
	XPLMSetGraphicsState(0,0,0,1,1,0,0)

	--マウスが乗った時全体を表示
	if MOUSE_Y > 700 or MOUSE_Y < 100 or MOUSE_X > x1+350 or MOUSE_X < x1 then
		return
	end

	--------------------------------------------------------
	-- 全体の透明な背景を描く
	--------------------------------------------------------
	graphics.set_color(0, 0, 0, 0.5)					--色を設定
	graphics.draw_rectangle(x1, y1, x1+350, 700)		--上の色の四角を描画

	--------------------------------------------------------
	-- ラインを描く
	--------------------------------------------------------
	graphics.set_color(x1, 1, 0, 0.5)				--以下のラインの色
	graphics.set_width(1)									--以下のラインの幅

	graphics.draw_line(x1, y1, x1, 700)			--一番左の縦ライン
	graphics.draw_line(x1+100, y1, x1+100, 700)	--左から２番目の縦ライン
	graphics.draw_line(x1+50, 300, x1+50, 400)		--左から短い３番目の縦ライン
	graphics.draw_line(x1+200, y1, x1+200, 700)	--左から４番目の縦ライン
	graphics.draw_line(x1+250, 300, x1+250, 400)		--左から短い５番目の縦ライン
	graphics.draw_line(x1+300, y1, x1+300, 700)	--左から６番目の縦ライン
	graphics.draw_line(x1+350, y1, x1+350, 700)	--一番右の縦ライン

	graphics.draw_line(x1, 700, x1+350, 700)	--一番上の横ライン
	graphics.draw_line(x1+300, 675, x1+350, 675)			--１段目の短横ライン
	graphics.draw_line(x1+300, 650, x1+350, 650)			--２段目の短横ライン
	graphics.draw_line(x1+300, 625, x1+350, 625)			--３段目の短横ライン
	graphics.draw_line(x1, 600, x1+350, 600)	--２段目の横ライン
	graphics.draw_line(x1+300, 575, x1+350, 575)			--１段目の短横ライン
	graphics.draw_line(x1+300, 550, x1+350, 550)			--２段目の短横ライン
	graphics.draw_line(x1+300, 525, x1+350, 525)			--３段目の短横ライン
	graphics.draw_line(x1, 500, x1+350, 500)	--３段目の横ライン
	graphics.draw_line(x1+300, 475, x1+350, 475)			--１段目の短横ライン
	graphics.draw_line(x1+300, 450, x1+350, 450)			--２段目の短横ライン
	graphics.draw_line(x1+300, 425, x1+350, 425)			--３段目の短横ライン
	graphics.draw_line(x1, 400, x1+350, 400)	--４段目の横ライン
	graphics.draw_line(x1+300, 375, x1+350, 375)			--１段目の短横ライン
	graphics.draw_line(x1+300, 350, x1+350, 350)			--２段目の短横ライン
	graphics.draw_line(x1+300, 325, x1+350, 325)			--３段目の短横ライン
	graphics.draw_line(x1, 300, x1+350, 300)	--５段目の横ライン
	graphics.draw_line(x1+300, 275, x1+350, 275)			--１段目の短横ライン
	graphics.draw_line(x1+300, 250, x1+350, 250)			--２段目の短横ライン
	graphics.draw_line(x1+300, 225, x1+350, 225)			--３段目の短横ライン
	graphics.draw_line(x1, 200, x1+350, 200)	--６段目の横ライン
	graphics.draw_line(x1+300, 175, x1+350, 175)			--１段目の短横ライン
	graphics.draw_line(x1+300, 150, x1+350, 150)			--２段目の短横ライン
	graphics.draw_line(x1+300, 125, x1+350, 125)			--３段目の短横ライン
	graphics.draw_line(x1, y1, x1+350, 100)	--一番下の横ライン



	--------------------------------------------------------
	-- quick_lookテキストの描画
	--------------------------------------------------------
	draw_string_Helvetica_10(x1+30, 645, "numpad-0")
	draw_string_Helvetica_10(x1+130, 645, "numpad-1")
	draw_string_Helvetica_10(x1+230, 645, "numpad-2")
	--------------------------------------------------------
	draw_string_Helvetica_10(x1+30, 545, "numpad-3")
	draw_string_Helvetica_10(x1+130, 545, "numpad-4")
	draw_string_Helvetica_10(x1+230, 545, "numpad-5")
	--------------------------------------------------------
	draw_string_Helvetica_10(x1+30, 445, "numpad-6")
	draw_string_Helvetica_10(x1+130, 445, "numpad-7")
	draw_string_Helvetica_10(x1+230, 445, "numpad-8")
	--------------------------------------------------------
	draw_string_Helvetica_10(x1+9, 345, "numpad")
	draw_string_Helvetica_10(x1+20, 332, "-9")
	draw_string_Helvetica_10(x1+59, 345, "numpad")
	draw_string_Helvetica_10(x1+67, 332, "-10")
	draw_string_Helvetica_10(x1+130, 345, "numpad-11")
	draw_string_Helvetica_10(x1+209, 345, "numpad")
	draw_string_Helvetica_10(x1+217, 332, "-12")
	draw_string_Helvetica_10(x1+259, 345, "numpad")
	draw_string_Helvetica_10(x1+267, 332, "-13")
	--------------------------------------------------------
	draw_string_Helvetica_10(x1+25, 245, "numpad-14")
	draw_string_Helvetica_10(x1+125, 245, "numpad-15")
	draw_string_Helvetica_10(x1+225, 245, "numpad-16")
	--------------------------------------------------------
	draw_string_Helvetica_10(x1+25, 145, "numpad-17")
	draw_string_Helvetica_10(x1+125, 145, "numpad-18")
	draw_string_Helvetica_10(x1+225, 145, "numpad-19")

	--------------------------------------------------------
	--quick_lookボタンのスペースにマウスが乗ったときの色の変化
	--------------------------------------------------------
	graphics.set_color(0, 1, 0, 0.2)	--長方形の色（薄いきみどり）、透明度
	--------------------------------------------------------
	-- quick_look_0
	if MOUSE_X > x1 and MOUSE_X < x1+100 and MOUSE_Y > y1*6 and MOUSE_Y < y1*7-10 then	--この範囲にマウスが入ったら
		graphics.draw_rectangle(x1, y1*6, x1+100, y1*7)	--長方形を描く
	end
	-- quick_look_1
	if MOUSE_X > x1+100 and MOUSE_X < x1+200 and MOUSE_Y > y1*6 and MOUSE_Y < y1*7-10 then
		graphics.draw_rectangle(x1+100, y1*6, x1+200, y1*7)
	end
	-- quick_look_2
	if MOUSE_X > x1+200 and MOUSE_X < x1+300 and MOUSE_Y > y1*6 and MOUSE_Y < y1*7-10 then
		graphics.draw_rectangle(x1+200, y1*6, x1+300, y1*7)
	end
	--------------------------------------------------------
	-- quick_look_3
	if MOUSE_X > x1 and MOUSE_X < x1+100 and MOUSE_Y > y1*5 and MOUSE_Y < y1*6-10 then	--この範囲にマウスが入ったら
		graphics.draw_rectangle(x1, y1*5, x1+100, y1*6)	--長方形を描く
	end
	-- quick_look_4
	if MOUSE_X > x1+100 and MOUSE_X < x1+200 and MOUSE_Y > y1*5 and MOUSE_Y < y1*6-10 then
		graphics.draw_rectangle(x1+100, y1*5, x1+200, y1*6)
	end
	-- quick_look_5
	if MOUSE_X > x1+200 and MOUSE_X < x1+300 and MOUSE_Y > y1*5 and MOUSE_Y < y1*6-10 then
		graphics.draw_rectangle(x1+200, y1*5, x1+300, y1*6)
	end
	--------------------------------------------------------
	-- quick_look_6
	if MOUSE_X > x1 and MOUSE_X < x1+100 and MOUSE_Y > y1*4 and MOUSE_Y < y1*5-10 then
		graphics.draw_rectangle(x1, y1*4, x1+100, y1*5)
	end
	-- quick_look_7
	if MOUSE_X > x1+100 and MOUSE_X < x1+200 and MOUSE_Y > y1*4 and MOUSE_Y < y1*5-10 then
		graphics.draw_rectangle(x1+100, y1*4, x1+200, y1*5)
	end
	-- quick_look_8
	if MOUSE_X > x1+200 and MOUSE_X < x1+300 and MOUSE_Y > y1*4 and MOUSE_Y < y1*5-10 then
		graphics.draw_rectangle(x1+200, y1*4, x1+300, y1*5)
	end
	--------------------------------------------------------
	-- quick_look_9
	if MOUSE_X > x1 and MOUSE_X < x1+50 and MOUSE_Y > y1*3 and MOUSE_Y < y1*4-10 then
		graphics.draw_rectangle(x1, y1*3, x1+50, y1*4)
	end
	-- quick_look_10
	if MOUSE_X > x1+50 and MOUSE_X < x1+100 and MOUSE_Y > y1*3 and MOUSE_Y < y1*4-10 then
		graphics.draw_rectangle(x1+50, y1*3, x1+100, y1*4)
	end
	-- quick_look_11
	if MOUSE_X > x1+100 and MOUSE_X < x1+200 and MOUSE_Y > y1*3 and MOUSE_Y < y1*4-10 then
		graphics.set_color(1, 1, 0, 0.3)	--長方形の色（薄い黄色）、透明度
		graphics.draw_rectangle(x1+100, y1*3, x1+200, y1*4)
	end

	-- quick_look_12
	if MOUSE_X > x1+200 and MOUSE_X < x1+250 and MOUSE_Y > y1*3 and MOUSE_Y < y1*4-10 then
		graphics.draw_rectangle(x1+200, y1*3, x1+250, y1*4)
	end
	-- quick_look_13
	if MOUSE_X > x1+250 and MOUSE_X < x1+300 and MOUSE_Y > y1*3 and MOUSE_Y < y1*4-10 then
		graphics.draw_rectangle(x1+250, y1*3, x1+300, y1*4)
	end
	--------------------------------------------------------
	-- quick_look_14
	if MOUSE_X > x1 and MOUSE_X < x1+100 and MOUSE_Y > y1*2 and MOUSE_Y < y1*3-10 then
		graphics.draw_rectangle(x1, y1*2, x1+100, y1*3)
	end
	-- quick_look_15
	if MOUSE_X > x1+100 and MOUSE_X < x1+200 and MOUSE_Y > y1*2 and MOUSE_Y < y1*3-10 then
		graphics.draw_rectangle(x1+100, y1*2, x1+200, y1*3)
	end
	-- quick_look_16
	if MOUSE_X > x1+200 and MOUSE_X < x1+300 and MOUSE_Y > y1*2 and MOUSE_Y < y1*3-10 then
		graphics.draw_rectangle(x1+200, y1*2, x1+300, y1*3)
	end
	--------------------------------------------------------
	-- quick_look_17
	if MOUSE_X > x1 and MOUSE_X < x1+100 and MOUSE_Y > y1*1 and MOUSE_Y < y1*2-10 then
		graphics.draw_rectangle(x1, y1*1, x1+100, y1*2)
	end
	-- quick_look_18
	if MOUSE_X > x1+100 and MOUSE_X < x1+200 and MOUSE_Y > y1*1 and MOUSE_Y < y1*2-10 then
		graphics.draw_rectangle(x1+100, y1*1, x1+200, y1*2)
	end
	-- quick_look_19
	if MOUSE_X > x1+200 and MOUSE_X < x1+300 and MOUSE_Y > y1*1 and MOUSE_Y < y1*2-10 then
		graphics.draw_rectangle(x1+200, y1*1, x1+300, y1*2)
	end
	--------------------------------------------------------



	--------------------------------------------------------------
	-- 記憶ボタン quick_look_mem 黄緑の描写とマスを置いた時の色の変化
	--------------------------------------------------------------
	-- quick_look_0_mem
	if MOUSE_X > x1 and MOUSE_X < x1+50 and MOUSE_Y > y1+590 and MOUSE_Y < y1+600 then	--この範囲にマウスが入ったら
		graphics.set_color(0, 1, 0, 0.8)	--長方形の色（きみどり）、透明度
	else
		graphics.set_color(0, 1, 0, 0.2)
	end
	graphics.draw_rectangle(x1, y1+585, x1+50, y1+600)	--長方形を描く
	-- quick_look_1_mem
	if MOUSE_X > x1+100 and MOUSE_X < x1+150 and MOUSE_Y > y1+590 and MOUSE_Y < y1+600 then	--この範囲にマウスが入ったら
		graphics.set_color(0, 1, 0, 0.8)	--長方形の色（きみどり）、透明度
	else
		graphics.set_color(0, 1, 0, 0.2)
	end
	graphics.draw_rectangle(x1+100, y1+585, x1+150, y1+600)	--長方形を描く
	-- quick_look_2_mem
	if MOUSE_X > x1+200 and MOUSE_X < x1+250 and MOUSE_Y > y1+590 and MOUSE_Y < y1+600 then	--この範囲にマウスが入ったら
		graphics.set_color(0, 1, 0, 0.8)	--長方形の色（きみどり）、透明度
	else
		graphics.set_color(0, 1, 0, 0.2)
	end
	graphics.draw_rectangle(x1+200, y1+585, x1+250, y1+600)	--長方形を描く
	--------------------------------------------------------
	-- quick_look_3_mem
	if MOUSE_X > x1 and MOUSE_X < x1+50 and MOUSE_Y > y1+490 and MOUSE_Y < y1+500 then	--この範囲にマウスが入ったら
		graphics.set_color(0, 1, 0, 0.8)	--長方形の色（きみどり）、透明度
	else
		graphics.set_color(0, 1, 0, 0.2)
	end
	graphics.draw_rectangle(x1, y1+485, x1+50, y1+500)	--長方形を描く
	-- quick_look_4_mem
	if MOUSE_X > x1+100 and MOUSE_X < x1+150 and MOUSE_Y > y1+490 and MOUSE_Y < y1+500 then
		graphics.set_color(0, 1, 0, 0.8)	--長方形の色（きみどり）、透明度
	else
		graphics.set_color(0, 1, 0, 0.2)
	end
	graphics.draw_rectangle(x1+100, y1+485, x1+150, y1+500)
	-- quick_look_5_mem
	if MOUSE_X > x1+200 and MOUSE_X < x1+250 and MOUSE_Y > y1+490 and MOUSE_Y < y1+500 then
		graphics.set_color(0, 1, 0, 0.8)	--長方形の色（きみどり）、透明度
	else
		graphics.set_color(0, 1, 0, 0.2)
	end
	graphics.draw_rectangle(x1+200, y1+485, x1+250, y1+500)
	--------------------------------------------------------
	-- quick_look_6_mem
	if MOUSE_X > x1 and MOUSE_X < x1+50 and MOUSE_Y > y1+390 and MOUSE_Y < y1+400 then
		graphics.set_color(0, 1, 0, 0.8)	--長方形の色（きみどり）、透明度
	else
		graphics.set_color(0, 1, 0, 0.2)
	end
	graphics.draw_rectangle(x1, y1+385, x1+50, y1+400)
	-- quick_look_7_mem
	if MOUSE_X > x1+100 and MOUSE_X < x1+150 and MOUSE_Y > y1+390 and MOUSE_Y < y1+400 then
		graphics.set_color(0, 1, 0, 0.8)	--長方形の色（きみどり）、透明度
	else
		graphics.set_color(0, 1, 0, 0.2)
	end
	graphics.draw_rectangle(x1+100, y1+385, x1+150, y1+400)
	-- quick_look_8_mem
	if MOUSE_X > x1+200 and MOUSE_X < x1+250 and MOUSE_Y > y1+390 and MOUSE_Y < y1+400 then
		graphics.set_color(0, 1, 0, 0.8)	--長方形の色（きみどり）、透明度
	else
		graphics.set_color(0, 1, 0, 0.2)
	end
	graphics.draw_rectangle(x1+200, y1+385, x1+250, y1+400)
	--------------------------------------------------------
	-- quick_look_9_mem
	if MOUSE_X > x1 and MOUSE_X < x1+50 and MOUSE_Y > y1+290 and MOUSE_Y < y1+300 then
		graphics.set_color(0, 1, 0, 0.8)	--長方形の色（きみどり）、透明度
	else
		graphics.set_color(0, 1, 0, 0.2)
	end
	graphics.draw_rectangle(x1, y1+285, x1+50, y1+300)
	-- quick_look_10_mem
	if MOUSE_X > x1+50 and MOUSE_X < x1+100 and MOUSE_Y > y1+290 and MOUSE_Y < y1+300 then
		graphics.set_color(0, 1, 0, 0.8)	--長方形の色（きみどり）、透明度
	else
		graphics.set_color(0, 1, 0, 0.2)
	end
	graphics.draw_rectangle(x1+50, y1+285, x1+100, y1+300)
	-- quick_look_11_mem
	if MOUSE_X > x1+100 and MOUSE_X < x1+150 and MOUSE_Y > y1+290 and MOUSE_Y < y1+300 then
		graphics.set_color(0, 1, 0, 0.8)	--長方形の色（きみどり）、透明度
	else
		graphics.set_color(0, 1, 0, 0.2)
	end
	graphics.draw_rectangle(x1+100, y1+285, x1+150, y1+300)

	-- quick_look_12_mem
	if MOUSE_X > x1+200 and MOUSE_X < x1+250 and MOUSE_Y > y1+290 and MOUSE_Y < y1+300 then
		graphics.set_color(0, 1, 0, 0.8)	--長方形の色（きみどり）、透明度
	else
		graphics.set_color(0, 1, 0, 0.2)
	end
	graphics.draw_rectangle(x1+200, y1+285, x1+250, y1+300)
	-- quick_look_13_mem
	if MOUSE_X > x1+250 and MOUSE_X < x1+300 and MOUSE_Y > y1+290 and MOUSE_Y < y1+300 then
		graphics.set_color(0, 1, 0, 0.8)	--長方形の色（きみどり）、透明度
	else
		graphics.set_color(0, 1, 0, 0.2)
	end
	graphics.draw_rectangle(x1+250, y1+285, x1+300, y1+300)
	--------------------------------------------------------
	-- quick_look_14_mem
	if MOUSE_X > x1 and MOUSE_X < x1+50 and MOUSE_Y > y1+190 and MOUSE_Y < y1+200 then
		graphics.set_color(0, 1, 0, 0.8)	--長方形の色（きみどり）、透明度
	else
		graphics.set_color(0, 1, 0, 0.2)
	end
	graphics.draw_rectangle(x1, y1+185, x1+50, y1+200)

	-- quick_look_15_mem
	if MOUSE_X > x1+100 and MOUSE_X < x1+150 and MOUSE_Y > y1+190 and MOUSE_Y < y1+200 then
		graphics.set_color(0, 1, 0, 0.8)	--長方形の色（きみどり）、透明度
	else
		graphics.set_color(0, 1, 0, 0.2)
	end
	graphics.draw_rectangle(x1+100, y1+185, x1+150, y1+200)
	-- quick_look_16_mem
	if MOUSE_X > x1+200 and MOUSE_X < x1+250 and MOUSE_Y > y1+190 and MOUSE_Y < y1+200 then
		graphics.set_color(0, 1, 0, 0.8)	--長方形の色（きみどり）、透明度
	else
		graphics.set_color(0, 1, 0, 0.2)
	end
	graphics.draw_rectangle(x1+200, y1+185, x1+250, y1+200)
	--------------------------------------------------------
	-- quick_look_17_mem
	if MOUSE_X > x1 and MOUSE_X < x1+50 and MOUSE_Y > 190 and MOUSE_Y < 200 then
		graphics.set_color(0, 1, 0, 0.8)	--長方形の色（きみどり）、透明度
	else
		graphics.set_color(0, 1, 0, 0.2)
	end
	graphics.draw_rectangle(x1, 185, x1+50, 200)
	-- quick_look_18_mem
	if MOUSE_X > x1+100 and MOUSE_X < x1+150 and MOUSE_Y > 190 and MOUSE_Y < 200 then
		graphics.set_color(0, 1, 0, 0.8)	--長方形の色（きみどり）、透明度
	else
		graphics.set_color(0, 1, 0, 0.2)
	end
	graphics.draw_rectangle(x1+100, 185, x1+150, 200)
	-- quick_look_19_mem
	if MOUSE_X > x1+200 and MOUSE_X < x1+250 and MOUSE_Y > 190 and MOUSE_Y < 200 then
		graphics.set_color(0, 1, 0, 0.8)	--長方形の色（きみどり）、透明度
	else
		graphics.set_color(0, 1, 0, 0.2)
	end
	graphics.draw_rectangle(x1+200, 185, x1+250, 200)
	--------------------------------------------------------

	--------------------------------------------
	-- 記憶ボタン（黄緑）のテキスト
	--------------------------------------------
	graphics.set_color(1, 1, 1, 1)
	--------------------------------------------
	draw_string_Helvetica_10(x1+8, 689, "Memory")		--nompad-0 用
	draw_string_Helvetica_10(x1+108, 689, "Memory")	--nompad-1 用
	draw_string_Helvetica_10(x1+208, 689, "Memory")	--nompad-2 用
	--------------------------------------------
	draw_string_Helvetica_10(x1+8, 589, "Memory")		--nompad-3 用
	draw_string_Helvetica_10(x1+108, 589, "Memory")	--nompad-4 用
	draw_string_Helvetica_10(x1+208, 589, "Memory")	--nompad-5 用
	--------------------------------------------
	draw_string_Helvetica_10(x1+8, 489, "Memory")		--nompad-6 用
	draw_string_Helvetica_10(x1+108, 489, "Memory")	--nompad-7 用
	draw_string_Helvetica_10(x1+208, 489, "Memory")	--nompad-8 用
	--------------------------------------------
	draw_string_Helvetica_10(x1+8, 389, "Memory")		--nompad-9 用
	draw_string_Helvetica_10(x1+58, 389, "Memory")		--nompad-10 用
	draw_string_Helvetica_10(x1+108, 389, "Memory")	--nompad-11 用
	draw_string_Helvetica_10(x1+208, 389, "Memory")	--nompad-12 用
	draw_string_Helvetica_10(x1+258, 389, "Memory")	--nompad-13 用
	--------------------------------------------
	draw_string_Helvetica_10(x1+8, 289, "Memory")		--nompad-14 用
	draw_string_Helvetica_10(x1+108, 289, "Memory")	--nompad-15 用
	draw_string_Helvetica_10(x1+208, 289, "Memory")	--nompad-16 用
	--------------------------------------------
	draw_string_Helvetica_10(x1+8, 189, "Memory")		--nompad-17 用
	draw_string_Helvetica_10(x1+108, 189, "Memory")	--nompad-18 用
	draw_string_Helvetica_10(x1+208, 189, "Memory")	--nompad-19 用
	--------------------------------------------

	--------------------------------------------
	-- ビュー（外側）のテキスト
	--------------------------------------------
	graphics.set_color(1, 1, 1, 1)
	--------------------------------------------
	draw_string_Helvetica_10(x1+310, 684, "Fixed display")		--nompad-0 用
	draw_string_Helvetica_10(x1+310, 659, "Single point display")	--nompad-1 用
	draw_string_Helvetica_10(x1+310, 634, "Runway")	--nompad-2 用
	draw_string_Helvetica_10(x1+310, 609, "Around the fuselage")		--nompad-3 用
	--------------------------------------------
	draw_string_Helvetica_10(x1+310, 584, "Trackingk")	--nompad-4 用
	draw_string_Helvetica_10(x1+310, 559, "Control tower")	--nompad-5 用
	draw_string_Helvetica_10(x1+310, 534, "On board")		--nompad-6 用
	draw_string_Helvetica_10(x1+310, 509, "Weapon tracking")	--nompad-7 用
	--------------------------------------------
	draw_string_Helvetica_10(x1+310, 484, "Free camera")	--nompad-8 用
	draw_string_Helvetica_10(x1+310, 459, "A")		--nompad-9 用
	draw_string_Helvetica_10(x1+310, 434, "B")		--nompad-10 用
	draw_string_Helvetica_10(x1+310, 409, "C")	--nompad-11 用X-Plane view
	--------------------------------------------
	draw_string_Helvetica_10(x1+310, 384, "A")
	draw_string_Helvetica_10(x1+310, 359, "B")
	draw_string_Helvetica_10(x1+310, 334, "C")
	draw_string_Helvetica_10(x1+310, 309, "D")
	--------------------------------------------
	draw_string_Helvetica_10(x1+310, 284, "A")
	draw_string_Helvetica_10(x1+310, 259, "B")
	draw_string_Helvetica_10(x1+310, 234, "C")
	draw_string_Helvetica_10(x1+310, 209, "D")
	--------------------------------------------
	draw_string_Helvetica_10(x1+310, 184, "A")
	draw_string_Helvetica_10(x1+310, 159, "B")
	draw_string_Helvetica_10(x1+310, 134, "C")
	draw_string_Helvetica_10(x1+310, 109, "replay toggle")
	--------------------------------------------



	-------------------------------------------------
	-- ビュー（外側）マウスクリック変化
	-------------------------------------------------
	graphics.set_color(0, 1, 0, 0.2)
	-------------------------------------------------
	-- No.1
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 675 and MOUSE_Y < 700 then
		graphics.draw_rectangle(x1+300, 675, x1+350, 700)
	end
	-- No.2
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 650 and MOUSE_Y < 675 then
		graphics.draw_rectangle(x1+300, 650, x1+350, 675)
	end
	-- No.3
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 625 and MOUSE_Y < 650 then
		graphics.draw_rectangle(x1+300, 625, x1+350, 650)
	end
	-- No.4
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 600 and MOUSE_Y < 625 then
		graphics.draw_rectangle(x1+300, 600, x1+350, 625)
	end
	-------------------------------------------------
	-- No.5
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 575 and MOUSE_Y < 600 then
		graphics.draw_rectangle(x1+300, 575, x1+350, 600)
	end
	-- No.6
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 550 and MOUSE_Y < 575 then
		graphics.draw_rectangle(x1+300, 550, x1+350, 575)
	end
	-- No.7
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 525 and MOUSE_Y < 550 then
		graphics.draw_rectangle(x1+300, 525, x1+350, 550)
	end
	-- No.8
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 500 and MOUSE_Y < 525 then
		graphics.draw_rectangle(x1+300, 500, x1+350, 525)
	end
	-------------------------------------------------
	-- No.9
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 475 and MOUSE_Y < 500 then
		graphics.draw_rectangle(x1+300, 475, x1+350, 500)
	end
	-- No.10
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 450 and MOUSE_Y < 475 then
		graphics.draw_rectangle(x1+300, 450, x1+350, 475)
	end
	-- No.11
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 425 and MOUSE_Y < 450 then
		graphics.draw_rectangle(x1+300, 425, x1+350, 450)
	end
	-- No.12
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 400 and MOUSE_Y < 425 then
		graphics.draw_rectangle(x1+300, 400, x1+350, 425)
	end
	-------------------------------------------------
	-- No.13
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 375 and MOUSE_Y < 400 then
		graphics.draw_rectangle(x1+300, 375, x1+350, 400)
	end
	-- No.14
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 350 and MOUSE_Y < 375 then
		graphics.draw_rectangle(x1+300, 350, x1+350, 375)
	end
	-- No.15
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 325 and MOUSE_Y < 350 then
		graphics.draw_rectangle(x1+300, 325, x1+350, 350)
	end
	-- No.16
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 300 and MOUSE_Y < 325 then
		graphics.draw_rectangle(x1+300, 300, x1+350, 325)
	end
	-------------------------------------------------
	-- No.17
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 275 and MOUSE_Y < 300 then
		graphics.draw_rectangle(x1+300, 275, x1+350, 300)
	end
	-- No.18
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 250 and MOUSE_Y < 275 then
		graphics.draw_rectangle(x1+300, 250, x1+350, 275)
	end
	-- No.19
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 225 and MOUSE_Y < 250 then
		graphics.draw_rectangle(x1+300, 225, x1+350, 250)
	end
	-- No.20
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 200 and MOUSE_Y < 225 then
		graphics.draw_rectangle(x1+300, 200, x1+350, 225)
	end
	-------------------------------------------------
	-- No.21
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 175 and MOUSE_Y < 200 then
		graphics.draw_rectangle(x1+300, 175, x1+350, 200)
	end
	-- No.22
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 150 and MOUSE_Y < 175 then
		graphics.draw_rectangle(x1+300, 150, x1+350, 175)
	end
	-- No.23
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 125 and MOUSE_Y < 150 then
		graphics.draw_rectangle(x1+300, 125, x1+350, 150)
	end
	-- No.24
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 100 and MOUSE_Y < 125 then
		graphics.draw_rectangle(x1+300, 100, x1+350, 125)
	end
	-------------------------------------------------
end
do_every_draw("draw_quick_look_memory()")


--------------------------＊＊＊＊＊＊＊＊＊＊--------------------------
---------------------- マウスクリックの関数（機能）---------------------
--------------------------＊＊＊＊＊＊＊＊＊＊--------------------------
function qs_mouse_click_events()

	-- マウス押し下げで一度だけ反応します
	if MOUSE_STATUS ~= "down" then
		return
	end

	----------------------------------------------------------
	-- 記憶ボタン quick_look_mem のマウスクリック時のコマンド処理
	----------------------------------------------------------
	-- Memory（quick_look_0_mem）
	if MOUSE_X > x1 and MOUSE_X < x1+50 and MOUSE_Y > 690 and MOUSE_Y < 700 then	--この範囲にマウスが入ったら
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_0_mem")
		end
		RESUME_MOUSE_CLICK = true	--X-Plaenに対してクリックは有効にならない。つまり上の指定スペースだけ。
	end
	-- Memory（quick_look_1_mem）
	if MOUSE_X > x1+100 and MOUSE_X < x1+150 and MOUSE_Y > 690 and MOUSE_Y < 700 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_1_mem")
		end
		RESUME_MOUSE_CLICK = true
	end
	-- Memory（quick_look_2_mem）
	if MOUSE_X > x1+200 and MOUSE_X < x1+250 and MOUSE_Y > 690 and MOUSE_Y < 700 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_2_mem")
		end
		RESUME_MOUSE_CLICK = true
	end
	----------------------------------------------------------
	-- Memory（quick_look_3_mem）
	if MOUSE_X > x1 and MOUSE_X < x1+50 and MOUSE_Y > 590 and MOUSE_Y < 600 then	--この範囲にマウスが入ったら
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_3_mem")
		end
		RESUME_MOUSE_CLICK = true	--X-Plaenに対してクリックは有効にならない。つまり上の指定スペースだけ。
	end
	-- Memory（quick_look_4_mem）
	if MOUSE_X > x1+100 and MOUSE_X < x1+150 and MOUSE_Y > 590 and MOUSE_Y < 600 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_4_mem")
		end
		RESUME_MOUSE_CLICK = true
	end
	-- Memory（quick_look_5_mem）
	if MOUSE_X > x1+200 and MOUSE_X < x1+250 and MOUSE_Y > 590 and MOUSE_Y < 600 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_5_mem")
		end
		RESUME_MOUSE_CLICK = true
	end
	----------------------------------------------------------
	-- Memory（quick_look_6_mem）
	if MOUSE_X > x1 and MOUSE_X < x1+50 and MOUSE_Y > 490 and MOUSE_Y < 500 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_6_mem")
		end
		RESUME_MOUSE_CLICK = true
	end
	-- Memory（quick_look_7_mem）
	if MOUSE_X > x1+100 and MOUSE_X < x1+150 and MOUSE_Y > 490 and MOUSE_Y < 500 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_7_mem")
		end
		RESUME_MOUSE_CLICK = true
	end
	-- Memory（quick_look_8_mem）
	if MOUSE_X > x1+200 and MOUSE_X < x1+250 and MOUSE_Y > 490 and MOUSE_Y < 500 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_8_mem")
		end
		RESUME_MOUSE_CLICK = true
	end
	----------------------------------------------------------
	-- Memory（quick_look_9_mem）
	if MOUSE_X > x1 and MOUSE_X < x1+50 and MOUSE_Y > 390 and MOUSE_Y < 400 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_9_mem")
		end
		RESUME_MOUSE_CLICK = true
	end
	-- Memory（quick_look_10_mem）
	if MOUSE_X > x1+50 and MOUSE_X < x1+100 and MOUSE_Y > 390 and MOUSE_Y < 400 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_10_mem")
		end
		RESUME_MOUSE_CLICK = true
	end
	-- Memory（quick_look_11_mem）
	if MOUSE_X > x1+100 and MOUSE_X < x1+150 and MOUSE_Y > 390 and MOUSE_Y < 400 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_11_mem")
		end
		RESUME_MOUSE_CLICK = true
	end
	-- Memory（quick_look_12_mem）
	if MOUSE_X > x1+200 and MOUSE_X < x1+250 and MOUSE_Y > 390 and MOUSE_Y < 400 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_12_mem")
		end
		RESUME_MOUSE_CLICK = true
	end
	-- Memory（quick_look_13_mem）
	if MOUSE_X > x1+250 and MOUSE_X < x1+300 and MOUSE_Y > 390 and MOUSE_Y < 400 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_13_mem")
		end
		RESUME_MOUSE_CLICK = true
	end
	----------------------------------------------------------
	-- Memory（quick_look_14_mem）
	if MOUSE_X > x1 and MOUSE_X < x1+50 and MOUSE_Y > 290 and MOUSE_Y < 300 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_14_mem")
		end
		RESUME_MOUSE_CLICK = true
	end
	-- Memory（quick_look_15_mem）
	if MOUSE_X > x1+100 and MOUSE_X < x1+150 and MOUSE_Y > 290 and MOUSE_Y < 300 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_15_mem")
		end
		RESUME_MOUSE_CLICK = true
	end
	-- Memory（quick_look_16_mem）
	if MOUSE_X > x1+200 and MOUSE_X < x1+250 and MOUSE_Y > 290 and MOUSE_Y < 300 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_16_mem")
		end
		RESUME_MOUSE_CLICK = true
	end
	----------------------------------------------------------
	-- Memory（quick_look_17_mem）
	if MOUSE_X > x1 and MOUSE_X < x1+50 and MOUSE_Y > 190 and MOUSE_Y < 200 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_17_mem")
		end
		RESUME_MOUSE_CLICK = true
	end
	-- Memory（quick_look_18_mem）
	if MOUSE_X > x1+100 and MOUSE_X < x1+150 and MOUSE_Y > 190 and MOUSE_Y < 200 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_18_mem")
		end
		RESUME_MOUSE_CLICK = true
	end
	-- Memory（quick_look_19_mem）
	if MOUSE_X > x1+200 and MOUSE_X < x1+250 and MOUSE_Y > 190 and MOUSE_Y < 200 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_19_mem")
		end
		RESUME_MOUSE_CLICK = true
	end
	----------------------------------------------------------


	-------------------------------------------------
	-- 大きいボタン quick_look クリック時のコマンド処理
	-------------------------------------------------
	-- quick_look_0
	if MOUSE_X > x1+50 and MOUSE_X < x1+150 and MOUSE_Y > 600 and MOUSE_Y < 685 then	--この範囲にマウスが入ったら
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_0")
		else
			command_once("sim/view/quick_look_11")
		end
		RESUME_MOUSE_CLICK = true	--X-Plaenに対してクリックは有効にならない。つまり上の指定スペースだけ。
	end
	-- quick_look_1
	if MOUSE_X > x1+100 and MOUSE_X < x1+200 and MOUSE_Y > 600 and MOUSE_Y < 685 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_1")
		else
			command_once("sim/view/quick_look_11")
		end
		RESUME_MOUSE_CLICK = true
	end
	-- quick_look_2
	if MOUSE_X > x1+200 and MOUSE_X < x1+300 and MOUSE_Y > 600 and MOUSE_Y < 685 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_2")
		else
			command_once("sim/view/quick_look_11")
		end
		RESUME_MOUSE_CLICK = true
	end
	-------------------------------------------------
	-- quick_look_3
	if MOUSE_X > x1 and MOUSE_X < x1+100 and MOUSE_Y > 500 and MOUSE_Y < 585 then	--この範囲にマウスが入ったら
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_3")
		else
			command_once("sim/view/quick_look_11")
		end
		RESUME_MOUSE_CLICK = true	--X-Plaenに対してクリックは有効にならない。つまり上の指定スペースだけ。
	end
	-- quick_look_4
	if MOUSE_X > x1+100 and MOUSE_X < x1+200 and MOUSE_Y > 500 and MOUSE_Y < 585 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_4")
		else
			command_once("sim/view/quick_look_11")
		end
		RESUME_MOUSE_CLICK = true
	end
	-- quick_look_5
	if MOUSE_X > x1+200 and MOUSE_X < x1+300 and MOUSE_Y > 500 and MOUSE_Y < 585 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_5")
		else
			command_once("sim/view/quick_look_11")
		end
		RESUME_MOUSE_CLICK = true
	end
	-------------------------------------------------
	-- quick_look_6
	if MOUSE_X > x1 and MOUSE_X < x1+100 and MOUSE_Y > 400 and MOUSE_Y < 485 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_6")
		else
			command_once("sim/view/quick_look_11")
		end
		RESUME_MOUSE_CLICK = true
	end
	-- quick_look_7
	if MOUSE_X > x1+100 and MOUSE_X < x1+200 and MOUSE_Y > 400 and MOUSE_Y < 485 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_7")
		else
			command_once("sim/view/quick_look_11")
		end
		RESUME_MOUSE_CLICK = true
	end
	-- quick_look_8
	if MOUSE_X > x1+200 and MOUSE_X < x1+300 and MOUSE_Y > 400 and MOUSE_Y < 485 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_8")
		else
			command_once("sim/view/quick_look_11")
		end
		RESUME_MOUSE_CLICK = true
	end
	-------------------------------------------------
	-- quick_look_9
	if MOUSE_X > x1 and MOUSE_X < x1+50 and MOUSE_Y > 300 and MOUSE_Y < 385 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_9")
		else
			command_once("sim/view/quick_look_11")
		end
		RESUME_MOUSE_CLICK = true
	end
	-- quick_look_10
	if MOUSE_X > x1+50 and MOUSE_X < x1+100 and MOUSE_Y > 300 and MOUSE_Y < 385 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_10")
		else
			command_once("sim/view/quick_look_11")
		end
		RESUME_MOUSE_CLICK = true
	end
	-- quick_look_11
	if MOUSE_X > x1+100 and MOUSE_X < x1+200 and MOUSE_Y > 300 and MOUSE_Y < 385 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_11")
		else
			command_once("sim/view/quick_look_11")
		end
		RESUME_MOUSE_CLICK = true
	end
	-- quick_look_12
	if MOUSE_X > x1+200 and MOUSE_X < x1+250 and MOUSE_Y > 300 and MOUSE_Y < 385 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_12")
		else
			command_once("sim/view/quick_look_11")
		end
		RESUME_MOUSE_CLICK = true
	end
	-- quick_look_13
	if MOUSE_X > x1+250 and MOUSE_X < x1+300 and MOUSE_Y > 300 and MOUSE_Y < 385 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_13")
		else
			command_once("sim/view/quick_look_11")
		end
		RESUME_MOUSE_CLICK = true
	end
	-------------------------------------------------
	-- quick_look_14
	if MOUSE_X > x1 and MOUSE_X < x1+100 and MOUSE_Y > 200 and MOUSE_Y < 285 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_14")
		else
			command_once("sim/view/quick_look_11")
		end
		RESUME_MOUSE_CLICK = true
	end
	-- quick_look_15
	if MOUSE_X > x1+100 and MOUSE_X < x1+200 and MOUSE_Y > 200 and MOUSE_Y < 285 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_15")
		else
			command_once("sim/view/quick_look_11")
		end
		RESUME_MOUSE_CLICK = true
	end
	-- quick_look_16
	if MOUSE_X > x1+200 and MOUSE_X < x1+300 and MOUSE_Y > 200 and MOUSE_Y < 285 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_16")
		else
			command_once("sim/view/quick_look_11")
		end
		RESUME_MOUSE_CLICK = true
	end
	-------------------------------------------------
	-- quick_look_17
	if MOUSE_X > x1 and MOUSE_X < x1+100 and MOUSE_Y > 100 and MOUSE_Y < 185 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_17")
		else
			command_once("sim/view/quick_look_11")
		end
		RESUME_MOUSE_CLICK = true
	end
	-- quick_look_18
	if MOUSE_X > x1+100 and MOUSE_X < x1+200 and MOUSE_Y > 100 and MOUSE_Y < 185 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_18")
		else
			command_once("sim/view/quick_look_11")
		end
		RESUME_MOUSE_CLICK = true
	end
	-- quick_look_19
	if MOUSE_X > x1+200 and MOUSE_X < x1+300 and MOUSE_Y > 100 and MOUSE_Y < 185 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/quick_look_19")
		else
			command_once("sim/view/quick_look_11")
		end
		RESUME_MOUSE_CLICK = true
	end
	-------------------------------------------------





	-------------------------------------------------
	-- ビュー（外側）ボタンクリック
	-------------------------------------------------
	-- No.1 固定表示
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 675 and MOUSE_Y < 700 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/linear_spot")
		end
	　RESUME_MOUSE_CLICK = true
	end
	-- No.2
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 650 and MOUSE_Y < 675 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/still_spot")
		end
	　RESUME_MOUSE_CLICK = true
	end
	-- No.3
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 625 and MOUSE_Y < 650 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/runway")
		end
	　RESUME_MOUSE_CLICK = true
	end
	-- No.4
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 600 and MOUSE_Y < 625 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/circle")
		end
	　RESUME_MOUSE_CLICK = true
	end
	-------------------------------------------------
	-- No.5
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 575 and MOUSE_Y < 600 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/chase")
		end
	　RESUME_MOUSE_CLICK = true
	end
	-- No.6
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 550 and MOUSE_Y < 575 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/tower")
		end
	　RESUME_MOUSE_CLICK = true
	end
	-- No.7
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 525 and MOUSE_Y < 550 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/ridealong")
		end
	　RESUME_MOUSE_CLICK = true
	end
	-- No.8
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 500 and MOUSE_Y < 525 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/track_weapon")
		end
	　RESUME_MOUSE_CLICK = true
	end
	-------------------------------------------------
	-- No.9 free_camera
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 475 and MOUSE_Y < 500 then
		if MOUSE_STATUS == "down" then
			command_once("sim/view/free_camera")
		end
	　RESUME_MOUSE_CLICK = true
	end
	-- No.10
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 450 and MOUSE_Y < 475 then
		if MOUSE_STATUS == "down" then
			command_once("")
		end
	　RESUME_MOUSE_CLICK = true
	end
	-- No.11
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 425 and MOUSE_Y < 450 then
		if MOUSE_STATUS == "down" then
			command_once("")
		end
	　RESUME_MOUSE_CLICK = true
	end
	-- No.12
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 400 and MOUSE_Y < 425 then
		if MOUSE_STATUS == "down" then
			command_once("")
		end
		RESUME_MOUSE_CLICK = true
	end
	-------------------------------------------------
	-- No.13
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 375 and MOUSE_Y < 400 then

	end
	-- No.14
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 350 and MOUSE_Y < 375 then

	end
	-- No.15
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 325 and MOUSE_Y < 350 then

	end
	-- No.16
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 300 and MOUSE_Y < 325 then

	end
	-------------------------------------------------
	-- No.17
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 275 and MOUSE_Y < 300 then

	end
	-- No.18
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 250 and MOUSE_Y < 275 then

	end
	-- No.19
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 225 and MOUSE_Y < 250 then

	end
	-- No.20
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 200 and MOUSE_Y < 225 then

	end
	-------------------------------------------------
	-- No.21
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 175 and MOUSE_Y < 200 then

	end
	-- No.22
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 150 and MOUSE_Y < 175 then

	end
	-- No.23
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 125 and MOUSE_Y < 150 then

	end
	-- No.24
	if MOUSE_X > x1+300 and MOUSE_X < x1+350 and MOUSE_Y > 100 and MOUSE_Y < 125 then
	if MOUSE_STATUS == "down" then
		command_once("sim/replay/replay_toggle")
	end
　RESUME_MOUSE_CLICK = true

	end
	-------------------------------------------------

end
do_on_mouse_click("qs_mouse_click_events()")	--上の関数マウスクリックをここで実行

ビーコンライトスイッチをON/OFF

polo-web — Thu, 09 Oct 2025 02:14:53 +0000

非常に簡単なスクリプトですが、スイッチボタンを作成してビーコンライトをコントロールします。以下の画像ではセスナのスイッチで実行しています。マウスを左下隅に持っていくとボタンが表示され、クリックするとスイッチが連動します。

ファイル名は半角英数字だったら、好きなように付けてください。
ここでは BeaconLightSwitch.lua

require "graphics"
local qs_beacon_light = dataref_table("sim/cockpit/electrical/beacon_lights_on")

function draw_quick_settings()
	-- マウスが反応するスペース。この範囲にマウスを持っていくとボタンが出てくる。
	if MOUSE_Y > 100 or MOUSE_X > 600 then
		return
	end
	
	-- グラフィックシステムを初期化する
	XPLMSetGraphicsState(0,0,0,1,1,0,0)

	-- カラースイッチ情報を描画（ビーコンライトをON/OFFしたときの色）
	if qs_beacon_light[0] == 0 then
		graphics.set_color(1, 1, 0, 1)	--イエロー
	else
		graphics.set_color(0, 1, 0, 1)	--グリーン
	end
	graphics.draw_rectangle(0, 0, 40, 30)	--ビーコンの色範囲を描く
	
	-- 情報テキストを描く
	graphics.set_color(0, 0, 0, 1)	--黒
	draw_string_Helvetica_10(5, 17, "Beacon")
	draw_string_Helvetica_10(8, 5, "Light")
end
do_every_draw("draw_quick_settings()")

-- マウスをクリックしたときの動作を設定
function qs_mouse_click_events()
	-- 一度だけ反応します
	if MOUSE_STATUS ~= "down" then
		return
	end
	-- ビーコンライトのON/OFF
	if MOUSE_X < 40 and MOUSE_Y < 30 then
		if qs_beacon_light[0] == 0 then
			qs_beacon_light[0] = 1
		else
			qs_beacon_light[0] = 0
		end
		RESUME_MOUSE_CLICK = true
	end
end

do_on_mouse_click("qs_mouse_click_events()")

FlyWithLua & X-Plane

polo-web — Thu, 09 Oct 2025 02:08:56 +0000

FlyWithLuaを使うことによってX-Planeのさまざまなコントロールを可能します。作成したプラグインは非常に軽快に動作します。X-Planeの画面に直接表示されるので邪魔ではないかと思われがちですが、必要なときだけ表示するようにすれば便利なプラグインになると思います。

⚪️ FlyWuthLuaのインストール

ダウンロードはここから：FlyWithLua NG (Next Generation) Edition for X-Plane 11　

プラグインを使用するには、FlyWithLuaをフォルダー毎、X-Planeのpluginsフォルダーにコピーするだけです。結果次のようになります。
/X-Plane 11/Resources/plugins/FlyWithLua/Scripts/
作成したファイルをこの「Scripts」内に入れるだけです。

draw_stringで複数行のテキストを表示 – FlyWithLua

polo-web — Wed, 27 Aug 2025 00:38:28 +0000

draw_string()では基本1行しか表示できない。以下のようにするにはテーブルを使う必要がある。

「i」が「list」のテーブル数、valueがテーブルのテキスト。
draw_stringの3番目にテーブルのテキストが上のように自動的に入ることになる。逆に下から入ることに注意が必要。

function Text_draw()
	list = {"a","b","c","d"}
	for i,value in ipairs(list) do
    		draw_string( 100, 90+(10*i), i .. ":" .. value, 0, 1, 0)
	end
end
do_every_draw("Text_draw()")

こういう方法もある

function Text_draw()
  arr = {"赤","黄","青"}
  for i = 1 , #arr do
  	draw_string( 100, 90+(10*i), arr[i], 0, 1, 0)
  end
end
do_every_draw("Text_draw()")

上から順番にテキスト表示する

3行目、iにマイナスを付けているのが味噌。

function Text_draw()
	for i = 1, 5, 1 do
		draw_string(100, 90 + (10 * -i), i, 0, 1, 0)	--「 −１」で上から下に表示されるようになる。
	end
end

do_every_draw("Text_draw()")

imgui ドローイングの作成 – FlyWithLua

polo-web — Sun, 31 Aug 2025 23:31:13 +0000

-- imgui はフローティング ウィンドウ内でのみ機能するため、最初に作成する必要があります。
draw_wnd = float_wnd_create(200, 100, 1, true)
float_wnd_set_title(draw_wnd, "imgui Demo")
float_wnd_set_imgui_builder(draw_wnd, "draw_demo")
float_wnd_set_onclose(draw_wnd, "closed_demo")


function draw_demo(wnd, x, y)
    local cx, cy = imgui.GetCursorScreenPos()   --ポジション設定用
        
    -- サイズ 100x100 の一種のキャンバスを作成します。
    -- 前の変数はキャンバスの左上端を記憶しているので、相対座標として使用して、絶対座標を使用してウィジェット内に描画できます。
    imgui.Dummy(100, 100)
    
    -- 斜めのラインを２つばつ印を作成、Parameters: x1、y1、x2、y2、色、厚さ
    imgui.DrawList_AddLine(cx, cy, cx + 20, cy + 20, 0xFF0000FF, 2)
    imgui.DrawList_AddLine(cx, cy + 20, cx + 20, cy, 0xFF0000FF, 2)
    
    -- 四角の線、Prameters: x1、y1、x2、y2、色、丸み（0.5もできる）太さが設定できない
    imgui.DrawList_AddRect(cx, cy, cx + 20, cy + 20, 0xFFFF0000, 0.5)

    -- 四角のベタ、Prameters: x1、y1、x2、y2、色、丸み
    imgui.DrawList_AddRectFilled(cx + 30, cy, cx + 50, cy + 20, 0xFFFF0000, 3)

    -- 三角の線、Parameters: x1、y1、x2、y2、x3、y3、色、太さ
    imgui.DrawList_AddTriangle(cx, cy + 60, cx + 40, cy + 60, cx + 20, cy + 30, 0xFF00FF00, 2.0)

    -- 三角のベタ、Parameters: x1, y1, x2, y2, x3, y3, color
    imgui.DrawList_AddTriangleFilled(cx + 50, cy + 60, cx + 90, cy + 60, cx + 50, cy + 30, 0xFF00FF00)

    -- 外の線の丸、Parameters: x1、y1、r、色、セグメント、厚さ
    imgui.DrawList_AddCircle(cx + 150, cy + 20, 20, 0xFF00FF00, 20, 1.0)

    -- 中のベタの丸、Parameters: x1, y1, r, color
    imgui.DrawList_AddCircleFilled(cx + 150, cy + 20, 10, 0xFF00FF00)
end

function closed_demo(wnd)
    -- Tこの関数は、ユーザーがウィンドウを閉じるときに呼び出されます。 
    -- ウィンドウが既に破棄されているため、この関数では imgui 関数の描画または呼び出しは許可されない。
end

imgui イメージ（画像）の作成 – FlyWithLua

polo-web — Mon, 01 Sep 2025 00:34:26 +0000

pngも読み込める。

-- imgui はフローティング ウィンドウ内でのみ機能するため、最初に作成する必要があります。
draw_wnd = float_wnd_create(250, 150, 1, true)
float_wnd_set_title(draw_wnd, "imgui Demo")
float_wnd_set_imgui_builder(draw_wnd, "draw_demo")
float_wnd_set_onclose(draw_wnd, "closed_demo")

-- imgui は画像の描画に対応しているので、読み込みましょう。 
-- スクリプトごとに一度だけロードされるように、イメージは常にグローバルにロードする必要があります。
image_id2 = float_wnd_load_image(SCRIPT_DIRECTORY .. "/plane3.jpg")


function draw_demo(wnd, x, y)
    -- 読み込まれた画像を描画する
    imgui.Image(image_id2, 200, 110)
    -- Prameters: float_wnd_load_image によって返される画像 ID、表示幅、表示高さ
end

function closed_demo(wnd)
    -- Tこの関数は、ユーザーがウィンドウを閉じるときに呼び出されます。 
    -- ウィンドウが既に破棄されているため、この関数では imgui 関数の描画または呼び出しは許可されない。
end

imgui リストボックスの作成 – FlyWithLua

polo-web — Mon, 01 Sep 2025 01:36:14 +0000

-- imgui はフローティング ウィンドウ内でのみ機能するため、最初に作成する必要があります。
draw_wnd = float_wnd_create(250, 150, 1, true)
float_wnd_set_title(draw_wnd, "imgui Demo")
float_wnd_set_imgui_builder(draw_wnd, "draw_demo")
float_wnd_set_onclose(draw_wnd, "closed_demo")


function draw_demo(wnd, x, y)
    local choices = {"Choice 1", "Choice 2", "Choice 3"}
        
        -- BBeginListBox は、リスト ボックスを開始します。 
        -- 最初のパラメータはラベルで、2 番目のパラメータは現在選択されている選択肢のテキストです。
        if imgui.BeginListBox("List Box", choices[choice]) then
            -- すべての選択肢をループする
            for i = 1, #choices do
                -- Selectable 関数は、リストボックスに選択肢を追加します。
                -- 最初のパラメーターはラベル。この選択肢が現在選択されている場合、2 番目のパラメーターは true でなければなりません。
                if imgui.Selectable(choices[i], choice == i) then
                    -- Selectable は、新しい選択肢が選択されたときに true を返します。
                    -- その選択肢を選択変数にコピーする必要があります。
                    choice = i
                end
            end
            -- BeginListBox が true を返す場合、つまりリストボックスが現在開いている場合にのみ呼び出される必要があります。
            imgui.EndListBox()
        end
end

function closed_demo(wnd)
    -- Tこの関数は、ユーザーがウィンドウを閉じるときに呼び出されます。 
    -- ウィンドウが既に破棄されているため、この関数では imgui 関数の描画または呼び出しは許可されない。
end

imgui Misc（寄せ集め）の作成 – FlyWithLua

polo-web — Tue, 02 Sep 2025 00:00:28 +0000

箇条書きでテキストを入れる

日本語はを入れると???で表示される。

-- imgui はフローティング ウィンドウ内でのみ機能するため、最初に作成する必要があります。
bullet_wnd = float_wnd_create(200, 80, 1, true)
float_wnd_set_title(bullet_wnd, "imgui Demo")
float_wnd_set_imgui_builder(bullet_wnd, "bullet_demo")
float_wnd_set_onclose(bullet_wnd, "closed_demo")


function bullet_demo(wnd, x, y)
    -- 箇条書きスタイルの列挙を作成する
    imgui.Bullet(); imgui.TextUnformatted("Bulletあいう")
    imgui.Bullet(); imgui.TextUnformatted("Style")
    imgui.Bullet(); imgui.TextUnformatted("Enumeration")
end

function closed_demo(wnd)
    -- Tこの関数は、ユーザーがウィンドウを閉じるときに呼び出されます。 
    -- ウィンドウが既に破棄されているため、この関数では imgui 関数の描画または呼び出しは許可されない。
end

区切り線を入れる

セパレーター（横の区切り線）、ウインドウの横一杯に入る。

-- imgui はフローティング ウィンドウ内でのみ機能するため、最初に作成する必要があります。
separator_wnd = float_wnd_create(200, 80, 1, true)
float_wnd_set_title(separator_wnd, "imgui Demo")
float_wnd_set_imgui_builder(separator_wnd, "separator_demo")
float_wnd_set_onclose(separator_wnd, "closed_demo")


function separator_demo(wnd, x, y)
     -- 区切り線を引く
     imgui.Separator()
end

function closed_demo(wnd)
    -- Tこの関数は、ユーザーがウィンドウを閉じるときに呼び出されます。 
    -- ウィンドウが既に破棄されているため、この関数では imgui 関数の描画または呼び出しは許可されない。
end

プログレスバーの表示

-- imgui はフローティング ウィンドウ内でのみ機能するため、最初に作成する必要があります。
ProgressBar_wnd = float_wnd_create(300, 80, 1, true)
float_wnd_set_title(ProgressBar_wnd, "imgui Demo")
float_wnd_set_imgui_builder(ProgressBar_wnd, "ProgressBar_demo")
float_wnd_set_onclose(ProgressBar_wnd, "closed_demo")


function ProgressBar_demo(wnd, x, y)
     -- プログレスバーを表示、1 = 100%
     imgui.ProgressBar(0.5)
end

function closed_demo(wnd)
    -- Tこの関数は、ユーザーがウィンドウを閉じるときに呼び出されます。 
    -- ウィンドウが既に破棄されているため、この関数では imgui 関数の描画または呼び出しは許可されない。
end

ツールチップ（説明領域）の作成

-- imgui はフローティング ウィンドウ内でのみ機能するため、最初に作成する必要があります。
tooltip_wnd = float_wnd_create(200, 100, 1, true)
float_wnd_set_title(tooltip_wnd, "imgui Demo")
float_wnd_set_imgui_builder(tooltip_wnd, "tooltip_demo")
float_wnd_set_onclose(tooltip_wnd, "closed_demo")


function tooltip_demo(wnd, x, y)
    --まず、チェックボックスを作成
    _, makeRed = imgui.Checkbox("Complicated Item", makeRed)
    if imgui.IsItemActive() then
        -- アイテムがクリックされている間に説明流域が表示されるツールチップを作成できます。
        imgui.BeginTooltip()
        -- この関数は、ツールボックス内のラッピングを構成し、それによってその幅を構成します
        imgui.PushTextWrapPos(imgui.GetFontSize() * 10)
        imgui.TextUnformatted("Here's a long explanation text that describes the purpose of this widget")
        -- ラッピングをリセットします。これは、PushTextWrapPos を使用した場合は常に行う必要があります。
        imgui.PopTextWrapPos()
        imgui.EndTooltip()
    end
end

function closed_demo(wnd)
    -- Tこの関数は、ユーザーがウィンドウを閉じるときに呼び出されます。 
    -- ウィンドウが既に破棄されているため、この関数では imgui 関数の描画または呼び出しは許可されない。
end

ボタン等に同じ文字列を使う場合、誓約がある

同じ名前で作成する場合、誓約があって使う場合注意が必要。

-- imgui はフローティング ウィンドウ内でのみ機能するため、最初に作成する必要があります。
button_wnd = float_wnd_create(150, 200, 1, true)
float_wnd_set_title(button_wnd, "imgui Demo")
float_wnd_set_imgui_builder(button_wnd, "button_demo")
float_wnd_set_onclose(button_wnd, "closed_demo")


function button_demo(wnd, x, y)
    -- キャプション文字列は、ウィンドウ内で一つでなければならないことに注意してください! 
        -- 同じキャプション（Button）を持つ複数のウィジェットが必要な場合は、## の後に、非表示のキャプション拡張の一意の ID を追加します。
        imgui.Button("ButtonA##1")
        imgui.Button("ButtonA##2")
        
        -- 別のバリエーション: ループ内からウィジェットを作成する場合に備えて、PushID と PopID を使用してカスタム ID 名前空間を作成します。
        for i = 1, 5 do
            imgui.PushID(i)
            imgui.Button("ButtonB")
            imgui.PopID()
        end
end

function closed_demo(wnd)
    -- Tこの関数は、ユーザーがウィンドウを閉じるときに呼び出されます。 
    -- ウィンドウが既に破棄されているため、この関数では imgui 関数の描画または呼び出しは許可されない。
end

io.open 保存したテキストファイルを読み込む – FlyWithLua

polo-web — Tue, 02 Sep 2025 00:13:43 +0000

テキストに保存されたファイル全てを一気に読み込み表示する。

９行目で「SCRIPT_DIRECTORY..」つまり、FlWithLua内にあるscriptフォルダ内にある「read.txt」に記述されたテキストの内容を読み込み表示することができる。
lineは全てのテキストを読み込むので、これでは行を指定して読み込むことはできない。

-- imguiはフローティングウィンドウ内でのみ機能するため、最初に作成する必要があります。
demo_wnd = float_wnd_create(250, 150, 1, true)
float_wnd_set_title(demo_wnd, "imgui Demo") --ウィンドウのタイトル
float_wnd_set_imgui_builder(demo_wnd, "build_demo")
 
-- imguiウインドウ内で実行するスクリプト -------------------------------------------------
function build_demo(wnd, x, y)
 
  local file = io.open(SCRIPT_DIRECTORY.."read.txt", "r")   -- read.txtの内容を読み込む。
  for line in file:lines() do   --ファイル内にあるだけの行を読み込む
    --imguiでTextUnformattedはテキストを描く関数
    imgui.TextUnformatted(line)	--ここに上の「line」変数を読み込む
  end
 
  file:close() -- 最後にf:closeでファイルを閉じる
end

指定のテキストを読み込むことができる。

テキストを用意する。読み込むテキストは区切りに「, 」を使う。最後の「, 」は入れない。入れると「,」が表示されてしまう。テキストはファイルの一番上から書き込む必要がある。

実際に読み込んだら、このように最後に「,」が表示される。

上の状態のテキストなら、下のスクリプトで指定の文字を読み込む事ができる。
テキストの数と指定の数を合わせる必要がある。そうでないと表示されない。

txtLine_1, txtLine_2, txtLine_3 = string.match(line, “(.-)%,(.-)%,(.+)”)
string.matchは文字列をマッチさせる関数。””内はマッチさせる方法、よくわからないが「, 」で区切られる内容をマッチさせているようだ。

-- imguiはフローティングウィンドウ内でのみ機能するため、最初に作成する必要があります。
demo_wnd = float_wnd_create(250, 150, 1, true)
float_wnd_set_title(demo_wnd, "imgui Demo") --ウィンドウのタイトル
float_wnd_set_imgui_builder(demo_wnd, "build_demo")

-- imguiウインドウ内で実行するスクリプト -------------------------------------------------
function build_demo(wnd, x, y)
    local file = io.open(SCRIPT_DIRECTORY .. "read.txt", "r")
    for line in file:lines() do
        txtLine_1, txtLine_2, txtLine_3 = string.match(line, "(.-)%,(.-)%,(.+)")
        imgui.TextUnformatted(txtLine_1)
        imgui.TextUnformatted(txtLine_2)
        imgui.TextUnformatted(txtLine_3)
    end
    file:close() -- 最後にf:closeでファイルを閉じる
end

string.match(line, “(.-)%,(.-)%,(.+)”) この状態では最後に「,」を追加すると「,」が消える。
string.match(line, “(.-)%,(.-)%,(.+),“) このように最後に赤の「,」を追加する。以下のように,が消えた。

inputに読み込む

imgui.TextUnformattedは読み込むことができたのでInputTextでも同じように読むことができる。ファイルは上と同じように「,」区切りである必要がある。最後の「,」を消す方法で作成している。

14行目の「string.match」で行を読み込む

-- imguiはフローティングウィンドウ内でのみ機能するため、最初に作成する必要があります。
demo_wnd = float_wnd_create(250, 150, 1, true)
float_wnd_set_title(demo_wnd, "imgui Demo") --ウィンドウのタイトル
float_wnd_set_imgui_builder(demo_wnd, "build_demo")

txtLine_1 = ""
txtLine_2 = ""
txtLine_3 = ""

-- imguiウインドウ内で実行するスクリプト -------------------------------------------------
function build_demo(wnd, x, y)
    local file = io.open(SCRIPT_DIRECTORY .. "read.txt", "r")
    for line in file:lines() do
        txtLine_1, txtLine_2, txtLine_3 = string.match(line, "(.-)%,(.-)%,(.+),") --(.+)は最後の読み込みにに使う。
        imgui.TextUnformatted(txtLine_1)
        imgui.TextUnformatted(txtLine_2)
        imgui.TextUnformatted(txtLine_3)

        local changed, newText_1 = imgui.InputText("Text-1", txtLine_1, 255) -- パラメーター：ラベル、現在のテキスト、許可される最大文字数
        if changed then
            txtLine_1 = newText_1
        end
        local changed, newText_2 = imgui.InputText("Text-2", txtLine_2, 255) -- パラメーター：ラベル、現在のテキスト、許可される最大文字数
        if changed then
            txtLine_2 = newText_2
        end
        local changed, newText_3 = imgui.InputText("Text-3", txtLine_3, 255) -- パラメーター：ラベル、現在のテキスト、許可される最大文字数
        if changed then
            txtLine_3 = newText_3
        end
    end
    file:close() -- 最後にf:closeでファイルを閉じる
end

別パターンの読み込み方法

こちらの方が簡単で理解しやすい。

書き出したファイルを読み込むことで、X-Planeを再起動しても表示を維持することができるようになる。
テキストファイルは改行で作成する。

15行〜20行で読み込んで、編集テキストを維持できるようになった。
と思ったが維持はできていない。リアルタイムに変更はできるが再起動すると内容はdata_2のテキストに変更されてしまう。つまり「line」は2行目のテキストを読み込んでいることになる。読み込みの方法が間違っていると思う。後で修正します。

if not SUPPORTS_FLOATING_WINDOWS then
    -- スクリプトが古いFlyWithLuaバージョンを停止しないようにするため
    logMsg("imgui not supported by your FlyWithLua version")
    return
end

local data_1 = ""--変数の数はio.openの数と必ず合わせる必要がある。
local data_2 = ""
local data_3 = ""
-- imguiはフローティングウィンドウ内でのみ機能するため、最初に作成する必要があります。
demo_wnd = float_wnd_create(200, 100, 1, true)
float_wnd_set_title(demo_wnd, "imgui TextEdit_Demo")
float_wnd_set_imgui_builder(demo_wnd, "build_demo")

--これによって編集テキストを維持できるようになった。
local backupfile = io.open(SCRIPT_DIRECTORY .. "read.txt", "r")
if backupfile ~= nil then --もしバックアップファイルが（nil）でない場合、つまり存在する場合。
    --以下の設定をするとテキストファイルにちゃんと記述されていないとウインドウ内のコンテンツが表示されなくる。
    bucontent = backupfile:lines() -- lines関数で行ごとに上から順番に読み込む
    data_1 = bucontent()           --1行目の読み込み
    data_2 = bucontent()           --２行目の読み込み
    data_3 = bucontent()

    backupfile:close()
end

--imguiでテキスト編集と編集したテキストを読み込み表示する関数
function build_demo(wnd, x, y)
    -- ユーザーがテキストを入力できるようにする。
    local changed, newText_1 = imgui.InputText("Text-1", data_1, 255) -- パラメーター：ラベル、現在のテキスト、許可される最大文字数
    if changed then
        data_1 = newText_1
    end
    local changed, newText_2 = imgui.InputText("Text-2", data_2, 255) -- パラメーター：ラベル、現在のテキスト、許可される最大文字数
    if changed then
        data_2 = newText_2
    end
    local changed, newText_3 = imgui.InputText("Text-3", data_3, 255) -- パラメーター：ラベル、現在のテキスト、許可される最大文字数
    if changed then
        data_3 = newText_3
    end

    local file = io.open(SCRIPT_DIRECTORY .. "read.txt", "w")
    file:write(data_1, "\n")
    file:write(data_2, "\n")
    file:write(data_3, "\n")
    file:close()
end

テストはしていないが、こんな方法もある

「if my_fp then」が余分に設定されている。

local my_fp = io.open(SCRIPT_DIRECTORY .. "hello.txt", "w")
if my_fp then
	my_fp:write("Hello world")
	my_fp:close()
end

日本語を読み込む

float_wnd_set_imgui_builderを使うと下のようには日本語を使えない。

このように日本語を使うには「float_wnd_set_ondraw()」を使う。テキスト読み込みは「draw_string」を使う必要がある。しかし、lineの行読み込みが１行になってしまう。何行かあるファイルを１行に重なって表示されてしまう。

fwl_wnd = float_wnd_create(250, 150, 1, true)
float_wnd_set_title(fwl_wnd, "imgui Demo")
float_wnd_set_ondraw(fwl_wnd, "on_draw")

function on_draw(fwl_wnd, x, y)
 
  local file = io.open(SCRIPT_DIRECTORY.."read.txt", "r")   -- read.txtの内容を読み込む。
  for line in file:lines() do   --ファイル内にあるだけの行を読み込む
    draw_string(x + 10, y + 10, line, "white")
  end
 
  file:close() -- 最後にf:closeでファイルを閉じる
end

\nのテキストが表示される問題

ファイルから改行テキストを表示したいのだが、\nの文字がそのまま表示され改行されない。

NSString* title = [NSString stringWithFormat:@"%@\n%@", onemb, twomb];
[myButton setTitle:title forState: UIControlStateNormal];

let firstLine = "first"
let secondLine = "second"
let button = UIButton()
button.setTitle(firstLine + "\n" + secondLine, for: .normal)

imgui テキストをファイルに書き込む – FlyWithLua

polo-web — Tue, 02 Sep 2025 00:23:25 +0000

指定の場所にテキストを書き出すことができる。最後に”W”が付く。

書き込みオプション

io.open (“filename”, “オプション”)

この関数は、文字列モードで指定されたモードでファイルを開きます。新しいファイルハンドルを返します。エラーの場合は、nilとエラーメッセージを返します。

モード文字列は、次のいずれかになります。

“r”：読み取りモード（デフォルト）。
“w”：書き込みモード。
“a”：追加モード。
“r+”：更新モード。以前のすべてのデータが保持されます。（書き込みができない）
“w+”：更新モード。以前のデータはすべて消去されます。（前のデータを消して書き直される）
“a+”：更新モードを追加します。以前のデータは保持され、書き込みはファイルの最後でのみ許可されます。（前のデータを残して、その後に書き込まれる）

モード文字列の最後に「b」を付けることもできます。これは、一部のシステムでファイルをバイナリモードで開くために必要です。

ファイルの書き出し先の指定

X-Planeの最初のディレクトリに「TestWriteToFile.txt」ファイルが作成される。

file = io.open(“TestWriteToFile.txt”, “w”)

現在使用している機体のディレクトリに「TestWriteToFile.txt」ファイルが作成される。

file = io.open(AIRCRAFT_PATH..”TestWriteToFile.txt”, “w”)

X-Planeの中へのパスを自由に作成「TestWriteToFile.txt」ファイルが作成される。

local file = io.open (“/X-Plane 11/Resources/plugins/FlyWithLua/Scripts/missions.ini”,”W”)

Resourcesにluaファイルがあった場合のパスに「Tmissions.ini」ファイルが作成される。

INIファイルは、ソフトウェアの設定などを記録するために用いられるファイル形式の一つ。構造は単純なテキストファイルであり、設定ファイルのフォーマットとしてよく使われる。INIとはinitialization（イニシャライゼーション）の略であり、その他にconfiguration（コンフィギュレーション）の略である「.CFG」や「.conf」、あるいは「.TXT」なども使われる。つまりはtxtと同じファイルということになる。

local file = io.open (“./Resources/plugins/FlyWithLua/Scripts/missions.ini”,”W”)

luaファイルがあった場所からのパスに「missions.ini」ファイルが作成される。

local file = io.open (SCRIPT_DIRECTORY .. “/missions.ini”,”W”)

Windowsの場合のパスの書き方

“Resources\plugins\FlyWithLua\Scripts\”

全てのファイルを書き込む

下のようにTest.txtファイルを自動で作成して、テキストを書き込む作業になる。ファイルはFlyWithLuaのscriptディレクトリに出力されて書き込まれる。

いかのファイル、不安定。書き込みがあったり、なかったり。
type別に書き込むことができるようだが….

local Array1 = {
{"Numbers",1,2,3,4,5},
{"Strings","a","b","c","d","e"},
{"Booleans", true, false},
"1234567890abcdefgh",
99,
true
}
 
local NewArray = { }
local write = true
 
function ArrayTest()
 
if write then
 
local file = io.open(SCRIPT_DIRECTORY.."Test.txt", "w") --Test.txtファイルを書き出す。
  --上のArray1をこのテキストに書き込む
    for i=1,#Array1 do
        if type(Array1[i]) == "table" then
            file:write("{") --このカッコも書き込む
            for l=1,#Array1[i] do --配列内にある行の数だけ書き込む
                if type(Array1[i][l]) == "number" then file:write(Array1[i][l]) end
                if type(Array1[i][l]) == "string" then file:write('"'..Array1[i][l]..'"') end
                if type(Array1[i][l]) == "boolean" then file:write(tostring(Array1[i][l])) end
                if l < #Array1[i] then file:write(",") end
            end
            file:write("}\n") --改行する
        else
            for name,val in ipairs(Array1) do
                file:write(name," = ",val)
                if i < #Array1 then file:write("\n") end
            end
        end
    end
file:close()
write = false
 
end
end
do_often("ArrayTest()")

上のコードの26行目ぐらいまでは理解できるが、その後の部分がわからない。

ここで重要なのは、名前を格納できないため、配列に名前を付けないことです。代わりに、この配列が格納するものに関する識別子は、サブ配列の最初の値として保存されます。したがって、「Numbers = {1,2,3,4,5}」の代わりに、「{“Numbers”,1,2,3,4,5}」と書く必要があります。保存ファイルのどこにどの値が保存されているかが正確にわかっている場合、これは実際には必要ありませんが、デバッグに役立ちます。

ファイルから配列をロードするには、読み取りプロセス中に各行を分析する必要があります。配列の開始区切り文字として「{」、値区切り文字として各「,」、終了区切り文字として「}」を使用します。

機体の名前を書き出す

機体のフォルダー内に「Mysave.txt」ファイルが書き出され、機体の名前がその仲に記述され保存される。

function writetofile()
        file = io.open(AIRCRAFT_PATH.."Mysave.txt", "w")
        file:write("-- File for: "..AIRCRAFT_FILENAME.." --\n") -- Write file header

        io.close(file)
end

do_often("writetofile()")

単純にテキストを書き込む（基本形）

X-Planeの最初のディレクトリに自動的にtextファイルを作成して、datarefの値をその中に書き込む。

単純にテキストを指定して書き込む。

1、2行目のテキストが書き込まれる。

data_1 = "ABCD"
data_2 = "123457851"

function data_test()
    file = io.open("dataTest.txt", "w") --X-Planeの最初のディレクトリに自動的にファイルが作成され書き込まれて保存される。

    file:write(data_1, "\n")
    file:write(data_2, "\n")

    file:close()
end

do_every_frame("data_test()")

datarefの数値を取得して書き込む

-- open files
dataref("FMC01L", "sim/cockpit2/radios/actuators/nav1_frequency_Mhz")
dataref("FMC01S", "sim/cockpit2/radios/actuators/nav2_right_frequency_hz")

function PetlaFMC()
    file = io.open("DaneDoFMC.txt", "w") --X-Planeの最初のディレクトリに自動的にファイルが作成され書き込まれて保存される。

    file:write(FMC01L, "\n")
    file:write(FMC01S, "\n")

    file:close()
end

do_every_frame("PetlaFMC()")

条件付きファイルで、自動的に飛行機がロードされるようにする

おなじくdatarefを扱うが、機体を指定して書き出すファイル名を機体のファイル名にして出力する。
以下はC172を指定している。

-- dataref  Variablen
local ap_altitude    = dataref_table("sim/cockpit/autopilot/altitude", "writable")
local baro_setting   = dataref_table("sim/cockpit/misc/barometer_setting", "writable")
local baro_setting2  = dataref_table("sim/cockpit/misc/barometer_setting2", "writable")
local hobbs_time     = dataref_table("sim/time/hobbs_time", "writable")

-- 機体ごとに異なるファイルを作成する
local planeref       = "C172"
--Windowsの場合
local hobbs_filename = "Resources\\plugins\\FlyWithLua\\Scripts\\" .. planeref .. "_settings.txt"
--Macの場合
local hobbs_filename = "Resources/plugins/FlyWithLua/Scripts/" .. planeref .. "_settings.txt" --planerefの中に機体名が入る

-- 目的の値でファイルを作成する関数
function save_hobbstime()
    local hobbsfile = io.open(hobbs_filename, "w+")

    if (hobbsfile == nil) then                   --ファイルが空なら
        print("write error in save_hobbstime()") --Logファイルに出力さっる。save_hobbstime() での書き込みエラー
        return
    end

    hobbsfile:write(hobbs_time[0], "\n")
    hobbsfile:write(baro_setting[0], "\n")
    hobbsfile:write(baro_setting2[0], "\n")
    hobbsfile:write(ap_altitude[0], "\n")
    hobbsfile:close()
end

-- 上の関数を呼び出す
save_hobbstime()

imgui.InputTextでの入力テキストを書き込む

InputTextを使ってテキストを入力して書き出す。
問題なくリアルタイムに書き出されるが、このままではX-Planeを再起動したり、FlyWithLuaを読み込み治すとテキストは消えてしまう。これは読み込みの機能が無いからである。

demo_wnd = float_wnd_create(200, 100, 1, true)
float_wnd_set_title(demo_wnd, "imgui Demo")
float_wnd_set_imgui_builder(demo_wnd, "build_demo")
float_wnd_set_onclose(demo_wnd, "closed_demo")

local data_1 = ""
local data_2 = ""

function build_demo(demo_wnd, x, y)
    file = io.open("dataTest.txt", "w") --X-Planeの最初のディレクトリに自動的にファイルが作成され書き込まれて保存される。

    file:write(data_1, "\n")
    file:write(data_2, "\n")

    file:close()

    -- ユーザーがテキストを入力できるようにする。1行のみ。
    local changed, newText_1 = imgui.InputText("Text-1", data_1, 255)
    -- Parameters: ラベル、現在のテキスト、許可される最大文字数
    if changed then
        data_1 = newText_1
    end
    local changed, newText_2 = imgui.InputText("Text-2", data_2, 255)
    -- Parameters: ラベル、現在のテキスト、許可される最大文字数
    if changed then
        data_2 = newText_2
    end
end

function closed_demo(demo_wnd)
    -- Tこの関数は、ユーザーがウィンドウを閉じるときに呼び出されます。
    -- ウィンドウが既に破棄されているため、この関数では imgui 関数の描画または呼び出しは許可されない。
end