//Inkscape_Base_Copy.uws
// 下地色レイヤーのコピーを前面に6枚、影・ハイライト用に作成します。
// 事前に彩色パーツを分割、レイヤーに振り分けた後、パスをマージした下地色レイヤーが
// アクティブの状態で使って下さい。
// レイヤー名を変更してもレイヤーパレット上では反映されない事がありますが、保存して
// 開き直すと反映されている筈です。
// 最後に下地色レイヤーをアクティブにしてレイヤーをロックします。

public Inkscape
Inkscape=GETID(" - Inkscape","gdkWindowToplevel",0.1)
While Inkscape < 0
  MsgBox("Inkscapeが起動してません")
  Exit
Wend

//レイヤー名の定義(引用符必須)
影1=" K1"
影1線=" K1_sen"
影2=" K2"
影2線=" K2_sen"
HL=" HL"
HL線=" HL_sen"

LockHard(True)
// BaseをInkscapeのクリップボードへコピー
CtrlWin(Inkscape,ACTIVATE)
SCKEY(Inkscape,VK_SHIFT,VK_CTRL,L)
KBD(VK_CTRL,2,40)
KBD(VK_SHIFT,2,40)
Layers=GETID("レイヤー(S) (Shift+Ctrl+L)","gdkWindowToplevel",-1)
//Layers=GETID("Layers (Shift+Ctrl+L)","gdkWindowToplevel",-1)
CtrlWin(Inkscape,ACTIVATE)
KBD(VK_F1,0,40)
KBD(VK_5,0,40)
SCKEY(Inkscape,VK_CTRL,A)
KBD(VK_CTRL,2,80)
SCKEY(Inkscape,VK_CTRL,C)
KBD(VK_CTRL,2,80)
Sleep(0.2)
KBD(VK_ESC,0,40)
SCKEY(Inkscape,VK_ALT,L)
KBD(VK_ALT,2,20)
KBD(VK_N,0,20)
Sleep(0.2)

// 現在のレイヤー名を取得
Ren_Layer=GETID("レイヤー名を変更","gdkWindowToplevel")
//Ren_Layer=GETID("Rename Layer","gdkWindowToplevel")
CtrlWin(Ren_Layer,ACTIVATE)
SCKEY(Ren_Layer,VK_CTRL,C)
KBD(VK_CTRL,2,40)
Sleep(0.2)
KBD(VK_ESC,0,40)
wks=GetStr(0)

// 影1レイヤー作成(Above Current以下同じ)
CtrlWin(Inkscape,ACTIVATE)
SCKEY(Inkscape,VK_ALT,L)
KBD(VK_ALT,2,40)
KBD(VK_RETURN,0,40)
影1=wks+影1
SendStr(0,影1,True)
addlayer()

// 影1-色トレスレイヤー作成
SCKEY(Inkscape,VK_ALT,L)
KBD(VK_ALT,2,40)
KBD(VK_RETURN,0,40)
影1線=wks+影1線
SendStr(0,影1線,True)
addlayer()

// 影2レイヤー作成
SCKEY(Inkscape,VK_ALT,VK_L)
KBD(VK_ALT,2,40)
KBD(VK_RETURN,0,40)
影2=wks+影2
SendStr(0,影2,True)
addlayer()

// 影2-色トレスレイヤー作成
SCKEY(Inkscape,VK_ALT,L)
KBD(VK_ALT,2,40)
KBD(VK_RETURN,0,40)
影2線=wks+影2線
SendStr(0,影2線,True)
addlayer()

// ハイライトレイヤー作成
SCKEY(Inkscape,VK_ALT,L)
KBD(VK_ALT,2,40)
KBD(VK_RETURN,0,40)
HL=wks+HL
SendStr(0,HL,True)
addlayer()

// ハイライト-色トレスレイヤー作成
SCKEY(Inkscape,VK_ALT,L)
KBD(VK_ALT,2,40)
KBD(VK_RETURN,0,40)
HL線=wks+HL線
SendStr(0,HL線,True)
addlayer()

// Baseレイヤー選択
Ctrlwin(Layers,ACTIVATE)
SCKEY(Layers,VK_DOWN,VK_DOWN,VK_DOWN,VK_DOWN,VK_DOWN,VK_DOWN,VK_LEFT,VK_LEFT,VK_RIGHT)
Sleep(0.2)
KBD(VK_SPACE,0,40)
Sleep(0.2)
Ctrlwin(Inkscape,ACTIVATE)
KBD(VK_ESC,0,40)
LockHard(False)
// 上書き保存
//SCKEY(Inkscape,VK_CTRL,S)
//KBD(VK_CTRL,2,0)
MsgBox("done.")


procedure addlayer()
  Sleep(0.2)
  Add_Layer=GETID("レイヤーを追加","gdkWindowToplevel")
  //Add_Layer=GETID("Add Layer","gdkWindowToplevel")
  CtrlWin(Add_Layer,ACTIVATE)
  SCKEY(Add_Layer,VK_CTRL,V)
  KBD(VK_CTRL,2,40)
  Sleep(0.2)
  KBD(VK_RETURN,0,40)
  CtrlWin(Inkscape,ACTIVATE)
  SCKEY(Inkscape,VK_CTRL,VK_ALT,V)
  KBD(VK_CTRL,2,40)
  KBD(VK_ALT,2,40)
  Sleep(0.2)
fend