factor/library/test/gadgets/rectangles.factor

USING: gadgets kernel namespaces test ;

[ << rect f @{ 10 10 0 }@ @{ 20 20 0 }@ >> ]
[
    << rect f @{ 10 10 0 }@ @{ 50 50 0 }@ >>
    << rect f @{ -10 -10 0 }@ @{ 40 40 0 }@ >>
    intersect-rect
] unit-test

[ << rect f @{ 200 200 0 }@ @{ 0 0 0 }@ >> ]
[
    << rect f @{ 100 100 0 }@ @{ 50 50 0 }@ >>
    << rect f @{ 200 200 0 }@ @{ 40 40 0 }@ >>
    intersect-rect
] unit-test

[ << rect f @{ -10 -10 0 }@ @{ 70 70 0 }@ >> ]
[
    << rect f @{ 10 10 0 }@ @{ 50 50 0 }@ >>
    << rect f @{ -10 -10 0 }@ @{ 40 40 0 }@ >>
    union-rect
] unit-test

[ << rect f @{ 100 100 0 }@ @{ 140 140 0 }@ >> ]
[
    << rect f @{ 100 100 0 }@ @{ 50 50 0 }@ >>
    << rect f @{ 200 200 0 }@ @{ 40 40 0 }@ >>
    union-rect
] unit-test

[ f ] [
    << rect f @{ 100 100 0 }@ @{ 50 50 0 }@ >>
    << rect f @{ 200 200 0 }@ @{ 40 40 0 }@ >>
    intersects?
] unit-test

[ t ] [
    << rect f @{ 100 100 0 }@ @{ 50 50 0 }@ >>
    << rect f @{ 120 120 0 }@ @{ 40 40 0 }@ >>
    intersects?
] unit-test

[ f ] [
    << rect f @{ 1000 100 0 }@ @{ 50 50 0 }@ >>
    << rect f @{ 120 120 0 }@ @{ 40 40 0 }@ >>
    intersects?
] unit-test