Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1583 1667 (N24W63 L= 13)   750    119        1 (1525/1646-1639/1688) -17.1 W58-W72 N22-N26
      2 1033 1639 (N41W22 L=332)   767    206        1 ( 922/1591-1116/1679)  -6.7 W12-W29 N38-N42
      3 1661 1569 (N16W62 L= 12)   448     40        1 (1643/1545-1685/1594)  33.7 W59-W64 N15-N17
      4 1350 1463 (N21W33 L=342)   987    290        1 (1265/1367-1412/1519) -53.1 W27-W35 N15-N24
      5 1883 1225 (S09W66 L= 16)   681    102        0 (1867/1182-1914/1251)   5.7 W62-W72 S10-S07
      6  312 1109 (N28E46 L=263)  1107    258        2 ( 221/1028- 427/1175) -34.4 E56-E36 N20-N33
      7 1821 1117 (S12W55 L=  4)   582     43        1 (1800/1079-1841/1147)  56.3 W52-W57 S14-S10
      8 1626  855 (S20W32 L=341)  2102    452        4 (1508/ 693-1725/1052)  32.5 W20-W43 S27-S11
      9  194  811 (N12E65 L=245)  1327    165        3 ( 141/ 751- 252/ 872) -36.0 E71-E58 N08-N16
     10 1111  765 (S10E02 L=308)   629    133        1 (1081/ 695-1135/ 836)  60.3 E04-W01 S13-S06
     11  262  785 (N10E57 L=252)   435    109        0 ( 231/ 739- 291/ 829) -71.6 E59-E55 N06-N12
     12 1077  368 (S34E17 L=292)  2506    485        4 ( 892/ 270-1278/ 486)   5.0 E34-W00 S37-S29
     13  499  342 (S21E60 L=250)  1720    224        8 ( 410/ 289- 579/ 391) -36.0 E66-E52 S26-S16
     14  745  159 (S41E60 L=250)   690     57        1 ( 726/ 133- 761/ 188)  16.4 E70-E53 S43-S38
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y