package Ġk proc . fract al Ċ Ċ import Ġprocessing . core . P App let Ċ import Ġprocessing . core . P Vector Ċ Ċ fun ĠP App let . quad ( p 1 : ĠP Vector , Ġp 2 : ĠP Vector , Ġp 3 : ĠP Vector , Ġp 4 : ĠP Vector ) Ġ{ ĊĠĠĠ Ġthis . quad ( ĊĠĠĠĠĠĠĠ Ġp 1 . x , Ġp 1 . y , ĊĠĠĠĠĠĠĠ Ġp 2 . x , Ġp 2 . y , ĊĠĠĠĠĠĠĠ Ġp 3 . x , Ġp 3 . y , ĊĠĠĠĠĠĠĠ Ġp 4 . x , Ġp 4 . y ) Ċ } Ċ Ċ fun ĠP App let . triangle ( p 1 : ĠP Vector , Ġp 2 : ĠP Vector , Ġp 3 : ĠP Vector ) Ġ{ ĊĠĠĠ Ġthis . triangle ( ĊĠĠĠĠĠĠĠ Ġp 1 . x , Ġp 1 . y , ĊĠĠĠĠĠĠĠ Ġp 2 . x , Ġp 2 . y , ĊĠĠĠĠĠĠĠ Ġp 3 . x , Ġp 3 . y ) Ċ } Ċ Ċ fun ĠP App let . dist ( p : ĠP Vector , Ġq : ĠP Vector ): ĠFloat Ġ{ ĊĠĠĠ Ġreturn ĠP App let . dist ( p . x , Ġp . y , Ġq . x , Ġq . y ) Ċ } Ċ