jonnywalker-3.6.nlogo

NETLOGO

    set heading current-heading + 45
  if(att8-ahead > best-att)
   [set final-direction current-heading + 45
    set best-att att8-ahead]
    set heading final-direction 
    set current-heading final-direction
   ]
end

to move
  ifelse(walkability-of patch-ahead 1  < 80) 
  [fd 1][set heading downhill walkability
  fd 1]
 end
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;report values
 to-report diamdegree-ahead
  report diamdegree-of patch-ahead 1 
  end
 to-report isoarea-ahead
  report isoarea-of patch-ahead 1
  end 
  to-report walkability-ahead
  report walkability-of patch-ahead 1
  end 
  
  to-report att1-ahead
  report att1-of patch-ahead 1
  end 
  to-report att2-ahead
  report att2-of patch-ahead 1
  end 
  to-report att3-ahead
  report att3-of patch-ahead 1
  end 
  to-report att4-ahead
  report att4-of patch-ahead 1
  end 
  to-report att5-ahead
  report att5-of patch-ahead 1
  end 
  to-report att6-ahead
  report att6-of patch-ahead 1
  end 
   to-report att7-ahead
  report att7-of patch-ahead 1
  end 
   to-report att8-ahead
  report att7-of patch-ahead 1
  end 
 to report-walkability
   ask patches[set nj count johnnywalker-here]
   ask patches[set walkability building-walkability + nj * j-walkability]
  end
 

 
 to setup-count
   ask johnnywalker at-points [[-4 32][-4 31][-4 30][-4 29][-4 28]][if ccc = 0[set gatea gatea + 1 set ccc 10]]
    ask johnnywalker at-points [[-24 21][-23 21][-22 21][-21 21][-20 21]][if ccc = 0[set gateb gateb + 1 set ccc 10]] 
    ask johnnywalker at-points [[2 21][3 21][4 21][5 21][6 21]][if ccc = 0[set gatec gatec + 1 set ccc 10]]
    ask johnnywalker at-points [[12 3][12 2][12 1][12 0][12 -1]][if ccc = 0[set gated gated + 1 set ccc 10]]
    ask johnnywalker at-points [[-12 -20][-12 -21][-12 -22][-12 -23][-12 -24]][if ccc = 0[set gatee gatee + 1 set ccc 10]]
   set Gate-A  (gatea / clock * 20)
   set Gate-b  (gateb / clock * 20)
   set Gate-c  (gatec / clock * 20)
   set Gate-d  (gated / clock * 20)
   set Gate-e  (gatee / clock * 20)
   if Gate-A > gate-max-a[set gate-max-a Gate-A]
   if Gate-b > gate-max-b[set gate-max-b Gate-b]
   if Gate-c > gate-max-c[set gate-max-c Gate-c]
    if Gate-d > gate-max-d[set gate-max-d Gate-d]
    if Gate-e > gate-max-e[set gate-max-e Gate-e]
    if not random-des [if clock > 100[
    set b-arrived d-b-num / o-b-num
    set y-arrived d-y-num / o-y-num
    set v-arrived d-v-num / o-v-num
    set br-arrived d-br-num / o-br-num
    set s-arrived d-s-num / o-s-num
    set g-arrived d-g-num / o-g-num
    set r-arrived d-r-num / o-r-num
    set o-arrived d-o-num / o-o-num]]
    if flow-color[
    ask patches [set tnj tnj + nj]
    if clock mod 100 = 1[ask patches [if building-walkability < 200[set pcolor scale-color black tnj 1500 1]]]
    set-des-color
    set-gate-color]
   end
   
   to draw-plot
     set-plot-pen-mode 2
     set-plot-pen-color red
     plotxy clock gate-a
     set-plot-pen-color yellow
     plotxy clock gate-b
    set-plot-pen-color green
     plotxy clock gate-c
     set-plot-pen-color blue
     plotxy clock gate-d
     set-plot-pen-color violet
     plotxy clock gate-e

     if ((clock mod 100)= 0)[
     type period-num
     type "(" type "gate-max-A" type ":" print gate-max-a type ")"
     type "(" type "gate-max-B" type ":" print gate-max-b type ")"
     type "(" type "gate-max-C" type ":" print gate-max-c type ")"
     type "(" type "gate-max-D" type ":" print gate-max-d type ")"
     type "(" type "gate-max-E" type ":" print gate-max-e type ")"
     ]
     end
     
 
 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;set isovist degree;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;setup diamdegree
to setup-diamdegree
ask patches at-points[
[-10 -42]	[-11 -42]	[-4 -40]	[33 46]	[-5 -46]	[-8 -47]	[37 36]	[35 39]	[44 -49]	[-31 -11]	[24 -13]	[46 -48]	[39 41]	[-31 -12]	[46 -47]	[-30 -6]	[-30 -8]	[38 41]	[-41 -15]	[46 -46]	[-5 12]	[45 -49]	[45 -48]	[-45 14]	[36 36]	[19 -9]	[-31 -10]	[-37 18]	[-37 17]	[-13 22]	[-37 16]	[-37 15]	[23 -13]	[14 47]	[14 46]	[14 45]	[-2 -38]	[-30 -7]	[43 40]	[-2 -39]	[19 -10]	[-41 19]	[-3 -37]	[35 16]	[-7 -48]	[-4 -35]	[12 42]	[19 -8]	[-3 -35]	[-39 -10]	[17 42]	[45 1]	[-12 25]	[15 42]	[48 -45]	[-3 -36]	[14 42]	[-13 25]	[-11 25]	[16 42]	[13 42]	[-14 25]	[-10 25]	[-15 25]	[42 -10]	[-11 -41]	[-37 19]	[-37 -10]	[-1 -46]	[35 36]	[13 -41]	[44 1]	[-2 -37]	[22 -13]	[-12 -41]	[-10 -41]	[-12 22]	[-11 22]	[-42 12]	[-10 22]	[-42 14]	[-6 45]	[-5 -35]	[20 13]	[23 -17]	[-6 43]	[34 41]	[-6 44]	[-43 7]	[44 -38]	[0 -9]	[17 10]	[1 -9]	[17 9]	[-17 -29]	[40 46]	[40 45]	[40 47]	[44 40]	[43 -40]
[45 40]	[17 8]	[34 40]	[40 48]	[-47 10]	[34 43]	[38 47]	[34 44]	[44 -40]	[-46 10]	[34 45]	[38 46]	[38 45]	[34 46]	[34 39]	[39 48]	[34 38]	[34 37]	[43 -41]	[-42 34]	[-42 35]	[17 11]	[39 47]	[-42 33]	[-42 36]	[39 45]	[-42 37]	[-42 32]	[45 -38]	[-42 38]	[46 -41]	[-42 39]	[45 -42]	[46 -38]	[-10 43]	[45 -37]	[-10 44]	[46 -42]	[39 46]	[38 48]	[40 44]	[11 -39]	[-47 11]	[21 -38]	[22 -38]	[41 -42]	[17 12]	[-45 10]	[45 -36]	[-10 42]	[21 -5]	[-6 36]	[-8 -49]	[10 -33]	[47 -41]	[-42 -15]	[4 -43]	[-42 -10]	[-42 -8]	[-42 -11]	[-42 -7]	[-42 -12]	[-42 -6]	[-42 -13]	[-42 -5]	[39 44]	[-42 -14]	[-42 -4]	[20 -7]	[11 -33]	[10 -38]	[23 -38]	[47 -39]	[-8 -41]	[34 36]	[20 -38]	[-16 -31]	[-41 10]	[-6 37]	[46 -39]	[45 -41]	[44 -41]	[21 -6]	[44 -42]	[5 -44]	[43 -42]	[11 -38]	[38 44]	[25 -34]	[47 -38]	[47 -37]	[-15 -42]	[1 -45]	[-6 38]	[43 -43]	[-7 -41]	[20 -8]	[48 -37]	[24 -38]	[47 -42]
[40 -42]	[45 -40]	[44 -43]	[-29 38]	[-29 39]	[48 -38]	[45 -35]	[46 -45]	[42 -43]	[46 -36]	[-10 45]	[23 -19]	[-30 34]	[-31 38]	[48 -39]	[-31 39]	[22 -16]	[-30 33]	[-31 40]	[39 43]	[38 43]	[40 41]	[-31 36]	[-31 37]	[46 -37]	[40 43]	[-30 40]	[39 49]	[38 49]	[25 -38]	[21 -7]	[-30 39]	[11 -32]																																																																			
][set diamdegree 1]
 ask patches at-points[
 [-30 38]	[19 -38]	[15 11]	[10 -32]	[17 -38]	[-1 -45]	[18 -38]	[17 -39]	[39 -41]	[-17 -28]	[16 -38]	[16 -39]	[21 -39]	[20 -39]	[22 -39]	[19 -39]	[18 -39]	[-43 14]	[23 -39]	[24 -39]	[17 -40]	[37 41]	[-41 14]	[16 -40]	[20 -40]	[19 -40]	[18 -40]	[15 12]	[45 -39]	[25 -39]	[15 -41]	[-5 -41]	[-17 -27]	[12 -41]	[47 -40]	[6 -43]	[48 -40]	[15 9]	[46 -40]	[15 10]	[15 8]	[-43 13]	[-3 -33]	[-7 36]	[-44 12]	[-4 8]	[44 -39]	[-4 7]	[-4 9]	[-4 6]	[-4 10]	[-4 5]	[-4 11]	[-4 4]	[-4 12]	[-42 10]	[15 7]	[-43 10]	[-43 11]	[25 -43]	[-4 3]	[-44 11]	[-31 35]	[-31 33]	[15 6]	[6 -44]	[-43 12]	[20 -44]	[-44 13]	[-17 -26]	[-44 9]	[-30 37]	[-41 9]	[-42 9]	[18 -44]	[21 -44]	[-31 34]	[-41 8]	[26 -42]	[6 -45]	[-43 8]	[-44 14]	[40 49]	[-37 -8]	[-30 36]	[19 13]	[-2 -46]	[16 -41]	[6 -46]	[18 31]	[-28 8]	[23 -42]	[-29 40]	[3 -44]	[-42 11]	[1 -32]	[17 -44]	[11 -40]	[-30 35]	[24 -42]
[-41 7]	[2 -32]	[26 -41]	[-8 -36]	[21 -14]	[22 -44]	[-45 11]	[21 -15]	[-30 12]	[22 -42]	[21 -13]	[-9 -31]	[29 16]	[25 -41]	[-44 10]	[-42 7]	[24 -41]	[21 -12]	[41 43]	[42 43]	[43 43]	[16 -44]	[44 43]	[-10 46]	[21 -11]	[10 -39]	[-43 9]	[18 -43]	[27 -40]	[8 -32]	[48 -41]	[9 -35]	[21 -8]	[23 -41]	[26 -40]	[-9 -19]	[9 -34]	[8 -33]	[9 -33]	[8 -34]	[9 -32]	[23 -44]	[-6 46]	[21 -10]	[-42 8]	[-2 -33]	[20 -2]	[19 -44]	[-29 7]	[7 -32]	[-46 11]	[7 -31]	[-30 7]	[9 -36]	[25 -40]	[18 -41]	[-6 -35]	[41 41]	[42 41]	[20 -1]	[28 -39]	[43 41]	[14 -42]	[15 -44]	[13 -42]	[-23 42]	[-10 47]	[22 -41]	[21 -40]	[22 -40]	[21 -9]	[19 -41]	[18 38]	[19 -43]	[24 -20]	[17 -41]	[15 -43]	[-7 37]	[-38 -24]	[14 -43]	[24 -43]	[13 -43]	[-15 40]	[48 -42]	[9 -37]	[23 -40]	[20 -41]	[26 -39]	[27 -39]	[17 -43]	[-6 -41]	[5 -38]	[15 3]	[20 -10]	[16 -43]	[-7 -35]	[20 -9]	[23 -43]	[24 -44]	[8 -31]
[13 -44]	[22 -15]	[21 -41]	[24 -40]	[-3 -34]	[23 -18]	[21 -43]	[-10 33]	[22 -43]	[14 -44]	[19 -7]	[32 -35]	[20 -43]	[-9 -32]	[15 -42]	[8 -35]	[25 -44]	[1 -33]	[-40 8]	[-40 10]	[-40 7]	[-40 11]	[-40 6]	[-9 -33]	[-40 9]	[45 -31]	[-40 14]	[-40 12]	[-10 48]	[45 -30]	[15 4]	[-8 13]	[-7 14]	[-11 13]	[-6 14]	[-12 13]	[-5 14]	[-40 13]	[-13 13]	[11 -31]	[-4 14]	[3 -31]	[45 -16]	[-4 -34]	[-7 13]	[-6 13]	[-5 13]	[-30 41]	[9 -31]	[-5 3]	[-4 13]	[16 -42]	[-28 9]	[-29 12]	[-29 32]	[-28 10]	[-8 -35]	[-39 -24]	[3 -32]	[-10 49]	[-14 13]	[-9 -15]	[-36 -14]	[-36 -13]	[-36 -15]	[-36 -12]	[-36 -16]	[-36 -11]	[-36 -17]	[5 -43]	[-36 -10]	[-36 -18]	[-8 14]	[-36 -19]	[-36 -8]	[-36 -7]	[-29 6]	[-36 -6]	[18 47]	[-36 -5]	[-36 -4]	[-28 12]	[-36 -24]	[-37 -24]	[2 -44]	[0 -45]	[-3 -46]	[-27 9]	[-5 -47]	[-6 -47]	[-29 41]	[-28 41]	[-8 -48]	[33 -20]	[-28 7]	[-15 13]	[18 -42]	[-9 -34]	[17 -42]	[-27 8]
[-26 6]	[-9 -36]	[-9 -16]	[-10 -35]	[-28 42]	[34 -19]	[-10 50]	[-16 -32]	[0 -33]	[19 -42]	[-1 -33]	[-16 -33]	[20 -42]	[-16 -34]	[21 -42]	[-16 -35]	[-16 -36]	[-16 -37]	[-5 -34]	[-9 -37]	[-16 -38]	[-6 -34]	[25 -42]	[-16 -39]	[-16 -40]	[10 -31]	[34 -20]	[-16 -41]	[-9 -35]	[-29 10]	[-16 -42]	[34 -18]	[-9 -38]	[7 -46]	[-27 10]	[-40 15]	[16 27]	[16 12]	[-9 -17]	[16 11]	[16 10]	[16 9]	[-17 -24]	[35 -17]	[-30 10]	[18 42]	[-27 6]	[-26 7]	[18 46]	[-27 11]	[31 -25]	[-16 13]	[32 -34]	[18 39]	[18 40]	[18 41]	[18 43]	[18 44]	[18 45]	[25 13]	[33 -26]	[37 -30]	[-13 40]	[-14 40]	[24 9]	[-8 28]	[-9 -39]	[-9 -18]	[18 13]	[35 -18]	[33 -32]	[-8 16]	[36 -30]	[-20 28]	[33 -33]	[-28 11]	[-30 6]	[-9 43]	[46 -30]	[43 -31]	[-17 13]	[-40 16]	[-40 17]	[-40 18]	[44 -30]	[32 -7]	[-31 41]	[-29 5]	[11 -41]	[-7 16]	[24 8]	[33 -31]	[39 42]	[38 42]	[40 42]	[37 42]	[41 42]	[36 42]	[42 42]	[35 42]
[43 42]	[34 42]	[44 42]	[44 41]	[33 42]	[45 42]	[45 41]	[32 42]	[46 42]	[46 41]	[31 42]	[47 42]	[47 41]	[30 42]	[32 -21]	[48 42]	[48 41]	[49 42]	[49 41]	[-29 11]	[50 41]	[50 42]	[46 -31]	[-27 7]	[-28 6]	[43 -30]	[44 -31]	[16 13]	[-18 13]	[-30 5]	[-9 42]	[-29 42]	[10 -40]	[-26 8]	[-10 34]	[9 -38]	[42 -31]	[42 -32]	[42 -30]	[-19 13]	[-9 45]	[-9 46]	[-9 47]	[17 13]	[-30 11]	[-9 44]	[-10 35]	[-30 32]	[-9 36]	[-9 37]	[50 14]	[-10 32]	[10 -41]	[-9 38]	[15 5]	[-10 36]	[-10 37]	[-10 38]	[-10 -36]	[47 -31]	[23 -30]	[8 -36]	[9 -39]	[7 -33]	[-21 -11]	[-40 19]	[-7 38]																																	
][set diamdegree 2]
  ask patches at-points[
 [25 12]	[35 -19]	[26 28]	[-10 -37]	[33 -8]	[-26 9]	[-26 10]	[-21 -12]	[-26 11]	[-16 -24]	[8 -37]	[-34 -9]	[-33 -9]	[-32 -9]	[-31 -9]	[-10 -33]	[-30 -9]	[-10 -34]	[-29 -9]	[-42 -9]	[-10 -27]	[-28 -9]	[-9 -41]	[-43 -9]	[-10 -26]	[-27 -9]	[-10 -25]	[-26 -9]	[-25 -9]	[9 -40]	[-9 -46]	[-48 -9]	[-9 -47]	[-49 -9]	[-10 -30]	[-10 -29]	[-10 -28]	[-9 -40]	[-25 7]	[-9 -44]	[-9 -45]	[46 -17]	[-10 -32]	[22 -30]	[-10 -31]	[-28 5]	[-9 -42]	[-9 -43]	[-44 -9]	[35 -20]	[43 -16]	[-9 50]	[-35 -9]	[-35 20]	[-34 20]	[-36 20]	[-33 20]	[-37 20]	[-32 20]	[-38 -9]	[-38 20]	[-31 20]	[-39 -9]	[-39 20]	[-30 20]	[-40 -9]	[-40 20]	[-29 20]	[-41 20]	[-28 20]	[-42 20]	[-27 20]	[-43 20]	[-26 20]	[-44 20]	[-26 4]	[-25 20]	[-45 -9]	[-45 20]	[-24 20]	[-46 -9]	[-46 20]	[-40 -24]	[-47 -9]	[-47 20]	[-9 49]	[-48 20]	[36 -17]	[-21 -10]	[-49 20]	[-36 -9]	[-41 -9]	[21 -30]	[-27 5]	[-26 5]	[-9 48]	[36 -18]	[31 -37]	[-37 -9]	[44 -16]
[7 -47]	[26 24]	[6 -47]	[20 -30]	[26 23]	[0 16]	[-37 -19]	[7 -48]	[7 50]	[-21 -13]	[37 -16]	[6 -48]	[31 -5]	[-30 42]	[19 -30]	[36 -19]	[43 -15]	[29 -3]	[46 -16]	[-11 14]	[-25 8]	[7 -49]	[16 28]	[6 -49]	[18 -30]	[-26 12]	[-10 40]	[-9 35]	[30 -32]	[29 -33]	[28 -33]	[-16 14]	[-17 14]	[31 -31]	[29 -32]	[30 -33]	[29 -34]	[5 -49]		[-12 14]	[-13 14]	[-14 14]	[-15 14]	[30 -31]	[-1 16]		[-2 16]	[33 -27]	[31 -32]	[30 -34]	[17 -29]	[-31 42]	[-11 40]	[28 -32]	[27 -33]	[-11 32]	[16 16]	[16 17]	[16 18]	[16 19]	[16 20]	[16 21]	[16 22]	[16 23]	[16 24]	[16 25]	[16 26]	[-21 -20]	[-25 10]	[17 -30]	[16 -29]	[16 -30]	[15 -29]	[15 -30]	[25 11]	[14 -29]	[14 -30]	[13 -29]	[13 -30]	[12 -29]	[12 -30]	[11 -29]	[11 -30]	[42 -29]	[-18 14]	[-20 13]	[-19 14]	[-20 14]	[25 -33]	[26 -32]	[-41 -24]	[24 -33]	[36 -27]	[-31 32]	[30 -39]	[30 -35]	[42 -18]	[42 -17]	[38 -30]	[38 -31]
[38 -32]	[38 -33]	[38 -29]	[-32 42]	[-33 42]	[40 -19]	[-25 6]	[-34 42]	[-12 40]	[-25 5]	[27 -32]	[37 -9]	[23 -33]	[38 -11]	[38 -10]	[39 -11]	[36 -26]	[29 -31]	[26 -33]	[22 -33]	[35 -27]	[41 -19]	[25 -32]	[40 -18]	[39 -19]	[41 -16]	[27 -41]	[41 -15]	[26 -43]	[37 -27]	[-7 43]	[-7 44]	[-7 45]	[-9 -24]	[40 -15]	[21 -33]	[-7 46]	[41 -13]	[35 -26]	[-8 32]	[36 -8]	[40 -14]	[34 -28]	[31 -36]	[-35 42]	[39 -18]	[37 -10]	[39 -16]	[49 -17]	[-9 40]	[41 -14]	[38 -19]	[24 -32]	[39 -17]	[38 -14]	[42 -15]	[36 -20]	[38 -12]	[38 -15]	[20 -33]	[39 -12]	[38 -27]	[35 -28]	[26 -30]	[25 -30]	[28 -31]	[24 -30]	[37 -17]	[38 -18]	[44 -28]	[19 -31]	[29 -41]	[18 -31]	[40 -13]	[27 -42]	[17 -31]	[27 -30]	[-36 42]	[21 -31]	[20 -31]	[-25 4]	[35 -7]	[16 -32]	[33 -28]	[37 -18]	[43 -28]	[38 -16]	[22 -31]	[-37 42]	[29 -40]	[19 -33]	[28 -41]	[42 -16]	[17 -32]	[40 -11]	[35 -29]	[36 -29]	[37 -29]	[32 -30]	[31 -30]
[27 -31]	[23 -31]	[23 -32]	[19 14]	[19 -32]	[18 14]	[18 -32]	[49 -18]	[17 14]	[16 14]	[7 -34]	[38 -28]	[34 -29]	[28 -30]	[26 -31]	[30 -30]	[9 -41]	[24 -31]	[20 -32]	[-27 12]	[16 -33]	[37 -28]	[36 -28]	[29 -30]	[31 -35]	[22 -32]	[21 -32]	[25 10]	[39 -13]	[17 -33]	[41 -31]	[32 -29]	[25 -31]	[36 -9]	[42 -14]	[18 -33]	[26 31]	[38 -20]	[43 -19]	[-42 -24]	[-25 9]	[-21 -24]	[26 32]	[-25 12]	[48 -31]	[-7 47]	[-25 11]	[41 -27]	[49 -16]	[26 33]		[35 -8]	[45 -19]	[46 -18]	[34 -6]	[47 -16]	[45 -28]	[41 -28]	[47 -17]	[28 -42]	[32 -3]	[-9 32]	[-9 33]	[-8 33]	[34 -27]	[-9 34]	[32 -32]	[30 -36]	[41 -29]	[-8 44]	[30 -37]	[-8 45]	[-9 18]	[-8 46]	[-27 4]	[-9 17]	[-8 47]	[47 -18]	[-8 48]	[-8 49]	[-9 14]	[-8 50]	[48 -16]	[27 -43]	[-9 13]	[-8 34]	[-8 35]	[-9 28]	[-8 36]	[-9 27]	[-8 37]	[-9 26]	[-8 38]	[-9 25]	[37 -20]	[-8 39]	[-9 24]	[32 -33]	[-9 23]	[-9 22]
[-8 42]	[-9 21]	[-8 43]	[47 -29]	[-9 20]	[-8 40]	[-9 19]	[44 -19]	[29 -39]	[-7 48]	[41 -10]	[-7 49]	[-10 14]	[-7 50]	[-10 13]	[33 -29]	[32 -31]	[31 -34]	[42 -27]	[30 -38]	[-43 -24]																																																																															
][set diamdegree 3] 
 ask patches at-points[
 [33 -30]	[38 -17]	[29 -38]	[33 -5]	[28 -43]	[49 -15]	[31 -2]	[40 -17]	[25 9]	[34 -26]	[37 -19]	[31 -33]	[46 -28]	[46 -19]	[40 -12]	[28 -40]	[47 -28]	[24 -21]	[39 -20]	[34 -9]	[-9 -20]	[18 -29]	[49 -19]	[-32 32]	[35 -10]	[30 -4]	[43 -27]	[25 2]	[32 -6]	[8 -49]	[41 -20]	[48 -19]	[29 -2]		[-25 41]	[36 -11]	[-24 41]	[-23 41]	[37 -26]	[-19 41]	[-38 42]	[-18 41]	[-39 42]	[-17 41]	[-40 42]	[-16 41]	[20 14]	[-41 42]	[-15 41]	[-42 42]	[-14 41]	[48 -18]	[-43 42]	[-13 41]	[-44 42]	[-12 41]	[-45 42]	[-11 41]	[-46 42]	[-10 41]	[-47 42]	[-9 41]	[-48 42]	[8 -48]	[-8 41]	[-8 0]	[-49 42]	[40 -20]	[41 -30]	[33 -7]	[30 -3]	[42 -28]	[47 -19]	[48 -17]	[7 -45]	[20 -29]	[34 -8]	[31 -4]	[44 -27]	[-28 4]	[7 -44]	[38 -26]	[42 -20]	[37 -11]	[41 -17]	[39 -14]	[32 -5]	[-29 4]	[30 -2]	[33 -21]	[26 18]	[25 7]	[-9 16]	[-33 32]	[38 -13]	[36 -10]	[40 -16]	[42 -19]	[34 -7]	[31 -3]
[48 -28]	[-45 -24]	[25 8]	[-44 -24]	[29 31]	[-10 16]	[37 -12]	[35 -9]	[41 -18]	[39 -15]	[33 -6]	[32 -4]	[48 -29]	[-11 16]	[19 -29]	[-12 16]	[47 -30]	[48 -30]	[2 28]	[2 50]	[44 -20]	[45 -20]	[43 -20]	[46 -27]		[32 -25]	[29 32]	[45 -27]	[47 -27]	[48 -27]																																																																						
][set diamdegree 4]
 ask patches at-points[
[48 -20]	[-24 0]	[47 -20]	[-21 0]	[26 17]	[26 16]	[26 13]	[26 12]	[26 11]	[26 10]	[26 9]	[26 8]	[26 7]	[26 6]	[26 5]	[21 14]	[22 14]	[23 14]	[26 4]	[26 3]	[26 2]	[26 -1]	[24 14]	[46 -20]	[25 14]	[26 14]	[-40 5]	[27 24]	[27 23]	[27 25]	[27 22]	[27 26]	[27 21]	[27 27]	[27 20]	[27 19]	[27 18]	[27 17]	[27 16]	[27 13]	[27 12]	[27 11]	[27 10]	[27 28]	[27 9]	[27 8]	[27 7]	[27 6]	[27 5]	[27 4]	[27 3]	[27 14]	[27 -1]	[29 14]	[49 -49]	[34 -21]	[-30 4]	[50 -49]	[29 40]	[29 41]	[29 42]	[29 43]	[29 44]	[29 45]	[27 31]	[27 32]	[27 33]	[29 34]	[27 34]	[29 35]	[27 35]	[29 36]	[27 36]	[29 37]	[27 37]	[29 38]	[27 38]	[29 39]	[29 33]	[27 44]	[27 45]	[27 46]	[27 47]	[27 48]	[27 49]	[28 32]	[28 33]	[28 34]	[28 35]	[28 36]	[28 37]	[28 38]	[28 39]	[28 40]	[28 41]	[28 7]	[28 31]	[28 42]	[28 6]	[28 43]
[28 5]	[28 44]	[28 4]	[28 45]	[28 3]	[28 46]	[29 46]	[28 47]	[29 47]	[28 48]	[29 48]	[28 49]	[29 49]	[28 28]	[28 -2]	[28 18]	[28 17]	[28 16]	[28 9]	[28 8]	[17 28]	[28 24]	[28 23]	[28 25]	[28 22]	[28 26]	[28 21]	[28 27]	[28 20]	[28 19]	[28 12]	[28 11]	[28 10]	[27 39]	[27 40]	[27 41]	[28 13]	[27 42]	[27 43]	[28 14]	[-46 -24]	[-47 -24]	[-48 -24]	[42 -26]	[-3 0]	[-9 0]	[41 -26]	[-4 0]	[-5 0]	[-6 0]	[49 -33]	[50 3]	[-20 16]	[50 -48]	[49 -48]	[49 -32]	[-33 4]	[35 -21]	[49 -20]	[49 -31]	[50 -47]	[49 -47]	[-2 0]	[-20 32]	[-32 4]	[49 -30]	[-19 16]	[50 -46]	[49 -46]	[-1 0]	[-18 16]	[49 -29]	[-49 -24]	[50 -45]	[49 -45]	[-10 0]	[0 0]	[-24 4]	[-24 5]	[-17 16]	[-24 6]	[-24 7]	[-24 8]	[-24 9]	[-24 10]	[-24 11]	[-24 12]	[49 -28]	[50 -44]	[49 -44]	[-10 -24]	[-11 -24]	[-16 16]	[49 -27]	[-15 16]	[50 -43]	[49 -43]			
][set diamdegree 5]
 ask patches at-points[
 [49 -37]	[-14 16]	[-31 4]	[50 -42]	[49 -42]	[49 -35]	[49 -36]	[-13 16]	[44 -26]	[50 -41]	[49 -41]	[43 -26]	[33 -25]	[50 -40]	[49 -40]		[37 -21]	[-20 40]		[49 -38]	[50 -39]	[49 -39]	[18 2]	[1 0]	[50 -38]	[50 1]	[36 -21]	[50 0]	[50 -1]	[19 -21]	[50 -37]	[6 28]	[50 -36]	[-34 4]	[-35 4]	[-36 4]	[-37 4]	[28 2]	[-38 4]	[50 -35]	[48 -26]	[29 -1]	[28 -1]	[-39 4]	[-40 4]	[50 -34]	[50 -33]	[18 -21]	[-20 41]	[17 -21]		[50 -32]	[16 -21]	[14 15]	[13 15]	[15 15]	[12 15]	[16 15]	[11 15]	[17 15]	[10 15]	[18 15]	[9 15]	[19 15]	[8 15]	[20 15]	[7 15]	[21 15]		[22 15]	[23 15]	[24 15]	[25 15]		[26 15]	[1 15]	[27 15]	[0 15]	[28 15]	[-1 15]	[29 15]	[-2 15]	[30 15]	[-3 15]	[31 15]	[-4 15]	[32 15]	[-5 15]	[33 15]	[-6 15]	[34 15]	[-7 15]	[35 15]	[-8 15]	[36 15]	[-9 15]	[37 15]	[-10 15]	[38 15]	[-11 15]
[39 15]	[-12 15]	[40 15]	[-13 15]	[15 -21]	[41 15]	[-14 15]	[42 15]	[-15 15]	[43 15]	[-16 15]	[44 15]	[-17 15]	[45 15]	[-18 15]	[46 15]	[-19 15]	[47 15]	[-20 15]	[48 15]	[49 15]	[50 15]	[14 -21]	[13 -21]	[27 2]	[50 -31]	[-24 -9]	[-24 -10]																																																																								
[6 0]