2π2
.
id
.
(id,((~.<.(id.2π1.2π2.(id,2π2)o,id.2π2.2π2.(id,2π2)o)o,!.(++.(b_allvec[(0.0,0.0)o]o,id.2π1.2π1.2π1.2π1.2π1)o,2π2.2π1)o)o.id.id.id.(id,!.(2π2.2π1,2π2)o)o)*.distl.(id,iota.#.id.2π1.2π1.2π1)o.id.id)o
.
(id,(2π2)*.(2π1.2π1,(id.2π1.2π2.2π2,b_if(<.(id.2π1.2π2,id.2π2.2π2)o,id.2π2.2π2,id.2π1.2π2).(id,(id.2π2.2π1.2π2,id.2π2.2π2.2π2)o)o)o.(2π1.2π1,(2π2.2π1,2π2.2π2)o)o)o//.distl.(id,++.(b_allvec[(2π2,2π2)o]o,2π2.2π1)o)o.id.id.id.(id,-0.785398)o)o
.
(id,((2π2,2π2)o)*.distl.(id,2π2)o.id.id)o
.
(id,(id.4π3.2π2.(id,2π2.b_while((2π1,(+.(id.4π1.2π2.2π1,2.0)o,2π2,b_if(id.3π3.2π2,+.(id.3π1.2π2,id.3π2.2π2)o,-.(id.3π1.2π2,id.3π2.2π2)o).(id,(id.4π3.2π2.2π1,⁄.(2π2,+.(id.4π1.2π2.2π1,2.0)o)o,id.4π4.2π2.2π1)o)o,~.id.4π4.2π2.2π1)o.id.(id,×.(×.(id.4π2.2π2,2π2.2π1)o,2π2.2π1)o)o)o,>.(b_if(<.(2π2,0.0)o,-.(toFloat.2π1,2π2)o.(0,2π2)o,2π2).(id,-.(id.4π3.2π2.(id,2π2)o,id.4π3.2π2.2π1)o)o,0.00001)o.id.(id,(+.(id.4π1.2π2.2π1,2.0)o,2π2,b_if(id.3π3.2π2,+.(id.3π1.2π2,id.3π2.2π2)o,-.(id.3π1.2π2,id.3π2.2π2)o).(id,(id.4π3.2π2.2π1,⁄.(2π2,+.(id.4π1.2π2.2π1,2.0)o)o,id.4π4.2π2.2π1)o)o,~.id.4π4.2π2.2π1)o.id.(id,×.(×.(id.4π2.2π2,2π2.2π1.2π1)o,2π2.2π1.2π1)o)o.(id,(id.4π1.2π2,id.4π2.2π2,id.4π3.2π2,id.4π4.2π2)o)o)o.id).(id,(1.0,2π2,2π2,false)o)o)o.id.id.id.id.id.(id,⁄.(id.2π2.2π2,id.2π1.2π2)o)o)*.distl.(id,id)o.id.id)o
.
id
.
id