CLIP STUDIOで正三角形格子を描いてみる

CLIP STUDIOで正三角形格子を描いてみる
CLIP STUDIOにはオートアクションていうのがあって手続きを自動でやってくれる機能があるけど
複雑なことができないので、UWSCでやってみた。

PUBLIC wait_sec=0.1  
PUBLIC h_center=549
PUBLIC d=100
//キャンバスエリア　縦120-975
PUBLIC num_line=INT((975-120)/d)

ID=GETID("CLIP STUDIO PAINT")
CTRLWIN(ID, MAX)
MOUSEORG(ID,1)
ACW(ID)

ROTE60

SCKEY(ID,VK_ALT,VK_V);sleep(1); KBD(VK_F)  //フィッテング
SCKEY(ID,VK_ALT,VK_V);sleep(1); KBD(VK_F)  //フィッテング 念の為もう一回

KBD(VK_P)  // PENモード
KBD(VK_U)  //図形モード

DRAW_LINE
ROTE60
DRAW_LINE
ROTE60
DRAW_LINE

CTRLWIN(ID, NORMAL)

PROCEDURE DRAW_LINE
	for y=h_center - d * num_line/2 to h_center + d * num_line/2 step d
		BTN(LEFT,DOWN,270,y)
		BTN(LEFT,UP,1600,y)
		SLEEP(wait_sec)
	next
FEND
PROCEDURE ROTE60
	for i=1 to 12
		KBD(VK_OEM_7)  //日本語キーボードの＾
		SLEEP(wait_sec)
	next
FEND

キャンバスの中心に線を描かないとずれてしまうけど、見た目にはわからない。