修复情节链条断掉
This commit is contained in:
parent
269815bf18
commit
bb592170c6
|
@ -3,7 +3,6 @@
|
|||
open AstAccess
|
||||
open System.Xml
|
||||
open System
|
||||
open System.Xml.Linq
|
||||
open System.IO
|
||||
|
||||
/// 展现节点 =========================================================================================
|
||||
|
@ -1072,7 +1071,7 @@ open System.IO
|
|||
| :? AstImport.SliceDef as defs ->
|
||||
let points = defs.children()|> List.filter(fun d -> not(d :? AstImport.TextItem))
|
||||
match points with
|
||||
| [] -> []
|
||||
| [] -> slice_combine(items.Tail)
|
||||
| _ ->
|
||||
(points.Head, points.Item(points.Length-1))::slice_combine(items.Tail)
|
||||
| :? AstImport.StoryDef as defs ->
|
||||
|
|
|
@ -2,7 +2,7 @@
|
|||
"profiles": {
|
||||
"AstConv": {
|
||||
"commandName": "Project",
|
||||
"commandLineArgs": "-file \"E:/storyline.xast\" -odir \"E:/diro\""
|
||||
"commandLineArgs": "-file \"E:/storyline.xast\" -odir \"E:/\""
|
||||
}
|
||||
}
|
||||
}
|
Loading…
Reference in New Issue