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

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

//レイヤー名の定義(引用符必須)
下地="_base"
影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,40)
SCKEY(Inkscape,VK_CTRL,X)
KBD(VK_CTRL,2,40)
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)

// 下地レイヤー作成(As Sublayer of Current)
CtrlWin(Inkscape,ACTIVATE)
SCKEY(Inkscape,VK_ALT,L)
KBD(VK_ALT,2,40)
KBD(VK_RETURN,0,40)
SendStr(0,wks+下地)
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_TAB,0,40)
KBD(VK_DOWN,0,40)
KBD(VK_DOWN,0,40)
Sleep(0.2)
KBD(VK_ALT,1,80)
KBD(VK_A,0,40)
KBD(VK_ALT,2,40)
CtrlWin(Inkscape,ACTIVATE)
SCKEY(Inkscape,VK_CTRL,VK_ALT,V)
KBD(VK_CTRL,2,40)
KBD(VK_ALT,2,40)
Sleep(0.2)

// 影1レイヤー作成(レイヤーセット内で前面に作成 以下同じ)
CtrlWin(Inkscape,ACTIVATE)
SCKEY(Inkscape,VK_ALT,L)
KBD(VK_ALT,2,40)
KBD(VK_RETURN,0,40)
SendStr(0,wks+影1)
addlayer()

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

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

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

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

// ハイライト-色トレスレイヤー作成
SCKEY(Inkscape,VK_ALT,L)
KBD(VK_ALT,2,40)
KBD(VK_RETURN,0,40)
SendStr(0,wks+HL線)
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)
  //SCKEY(Inkscape,VK_CTRL,VK_ADD)
  //KBD(VK_CTRL,2,40)
  //Sleep(1)
fend