Code: Select all
Structure lineasdechoquepuntos
x.f
y.f
EndStructure
Structure lineasdechoque
List p1.lineasdechoquepuntos()
List p2.lineasdechoquepuntos()
EndStructure
Global NewList lineas.lineasdechoque()
If CreateJSON(1)
InsertJSONStructure(JSONValue(1), Lineas(), lineasdechoque)
txt.s= ProcedureReturn ComposeJSON(1,#PB_JSON_PrettyPrint)
EndIf
like this:
Code: Select all
{
"p1": [
{
"x": 3.9453125,
"y": 4.859375
}
],
"p2": [
{
"x": 3.90625,
"y": 4.0859375
}
]
}
Code: Select all
If CreateJSON(1)
InsertJSONStructure(JSONValue(1), @Lineas, lineasdechoque)
txt.s= ProcedureReturn ComposeJSON(1,#PB_JSON_PrettyPrint)
EndIf
What are doing bad?. Thanks again for help