1

// geometry.ysl2

     2

//

     3

// Geometry (bounding box intersection) definitions

     4

     5

// This retrieves geometry obtained through "inkscape -S"

     6

// already parsed by python and presented as a list of

     7

// <bbox x="0" y="0" w="42" h="42">

     8

const "geometry", "ns:GetSVGGeometry()";

     9

    10

// Debug data

    11

emit "debug:geometry" {

    12

    | ID, x, y, w, h

    13

    foreach "$geometry"

    14

        |  «@Id» «@x» «@y» «@w» «@h»

    15

}

    16

    17

// Rates 1D intersection of 2 segments A and B

    18

// described respectively with a0,a1 and b0,b1

    19

def "func:intersect_1d" {

    20

    // it is assumed that a1 > a0 and b1 > b0

    21

    param "a0";

    22

    param "a1";

    23

    param "b0";

    24

    param "b1";

    25

    26

    const "d0", "$a0 >= $b0";

    27

    const "d1", "$a1 >= $b1";

    28

    choose {

    29

        when "not($d0) and $d1"

    30

            // b contained in a

    31

            //   a0<b0 b1<a1

    32

            // a +--------+

    33

            // b    +--+

    34

            result "3";

    35

        when "$d0 and not($d1)"

    36

            // a contained in b

    37

            //   b0<a0 a1<b1

    38

            // a    +--+

    39

            // b +--------+

    40

            result "2";

    41

        when "$d0 and $d1 and $a0 < $b1"

    42

            // a and b are overlapped 

    43

            //   b0<a0<b1<a1

    44

            // a    +-----+

    45

            // b +-----+

    46

            result "1";

    47

        when "not($d0) and not($d1) and $b0 < $a1"

    48

            // a and b are overlapped

    49

            //   a0<b0<a1<b1

    50

            // a +-----+

    51

            // b    +-----+

    52

            result "1";

    53

            // since orientation doesn't matter,

    54

            // rated same as previous symetrical overlapping

    55

        otherwise

    56

            result "0"; /* no intersection*/

    57

    }

    58

}

    59

    60

    61

// Rates intersection A and B areas described with x,y,w and h 

    62

// attributes passed as $a and $b parameters.

    63

// 

    64

// returns :

    65

// 0 - no intersection

    66

//            .-----.

    67

//    .-----. |    b|

    68

//    |     | |     |

    69

//    |     | '-----'

    70

//    |a    |

    71

//    '-----'

    72

//

    73

// 1 - overlapping

    74

//        .-----.

    75

//    .---|--. b|

    76

//    |   |  |  |

    77

//    |   '-----'

    78

//    |a     |

    79

//    '------'

    80

//

    81

// 2 - overlapping

    82

//        .-----.

    83

//        |  a  |

    84

//    .---|-----|---.

    85

//    |   '-----'   |

    86

//    | b           |

    87

//    '-------------'

    88

//

    89

// 3 - overlapping

    90

//        .-----.

    91

//        |  b  |

    92

//    .---|-----|---.

    93

//    |   '-----'   |

    94

//    | a           |

    95

//    '-------------'

    96

//

    97

// 4 - a contained in b

    98

//    .-------------.

    99

//    |   .-----.   |

   100

//    |   |  a  |   |

   101

//    |b  '-----'   |

   102

//    '-------------'

   103

//

   104

// 6 - overlapping

   105

//        .----.

   106

//        |   b|

   107

//    .---|----|---.

   108

//    |a  |    |   |

   109

//    '---|----|---'

   110

//        '----'

   111

//

   112

// 9 - b contained in a

   113

//    .-------------.

   114

//    |   .-----.   |

   115

//    |   |  b  |   |

   116

//    |a  '-----'   |

   117

//    '-------------'

   118

//

   119

def "func:intersect" {

   120

    param "a";

   121

    param "b";

   122

   123

    const "x_intersect", "func:intersect_1d($a/@x, $a/@x+$a/@w, $b/@x, $b/@x+$b/@w)";

   124

   125

    choose{

   126

        when "$x_intersect != 0"{

   127

            const "y_intersect", "func:intersect_1d($a/@y, $a/@y+$a/@h, $b/@y, $b/@y+$b/@h)";

   128

            result "$x_intersect * $y_intersect";

   129

        }

   130

        otherwise result "0";

   131

    }

   132

}

   133

   134

// return overlapping geometry for a given element

   135

// all intersercting element are returned

   136

// except groups, that must be contained to be counted in

   137

def "func:overlapping_geometry" {

   138

    param "elt";

   139

    const "groups", "/svg:svg | //svg:g";

   140

    const "g", "$geometry[@Id = $elt/@id]"; 

   141

    const "candidates", "$geometry[@Id != $elt/@id]";

   142

    result """$candidates[(@Id = $groups/@id and (func:intersect($g, .) = 9)) or 

   143

                          (not(@Id = $groups/@id) and (func:intersect($g, .) > 0 ))]""";

   144

}