Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1380 1643 (N43W35 L=215)   582    133        0 (1321/1618-1438/1673) -24.0 W30-W39 N40-N46
      2 1664 1500 (N31W55 L=236)   546    100        1 (1621/1476-1710/1518) -20.6 W51-W60 N28-N32
      3 1227 1485 (N33W17 L=197)   458     87        0 (1184/1460-1273/1510) -26.6 W13-W19 N30-N34
      4  536 1301 (N22E33 L=147)   471    118        0 ( 482/1265- 575/1322)  -7.1 E37-E29 N20-N23
      5 1247 1244 (N17W15 L=195)   362    136        0 (1202/1198-1283/1305) -60.3 W12-W17 N13-N20
      6  382 1219 (N17E45 L=136)   402     80        2 ( 360/1188- 406/1256) -63.4 E46-E42 N15-N19
      7  868 1056 (N07E10 L=171)   263     93        0 ( 827/1042- 918/1068)   0.0 E12-E06 N05-N07
      8 1092  863 (S06W04 L=184)   728    212        1 (1009/ 789-1157/ 923) -45.0 E01-W07 S10-S01
      9 1535  805 (S12W33 L=213)  1009    277        1 (1487/ 724-1574/ 908) -80.5 W29-W36 S16-S04
     10  250  744 (S13E60 L=121)  1050    179        2 ( 234/ 654- 280/ 815)  51.3 E64-E54 S18-S08
     11 1724  670 (S22W52 L=232)  1140    312        3 (1647/ 571-1781/ 752)  54.0 W46-W56 S28-S16
     12  731  701 (S15E20 L=160)   770    264        3 ( 606/ 660- 847/ 731)  -3.6 E28-E12 S17-S13
     13 1138  605 (S23W06 L=186)  1286    328        1 (1035/ 504-1255/ 721)  40.6 E01-W13 S29-S15
     14  731  659 (S18E21 L=160)   252     72        0 ( 688/ 643- 765/ 676)   9.5 E23-E17 S19-S16
     15 1544  608 (S25W36 L=216)   503    147        0 (1494/ 550-1592/ 660)  49.4 W32-W39 S28-S21
     16  851  603 (S22E13 L=167)   344     64        2 ( 821/ 580- 877/ 634)  53.1 E15-E11 S23-S19
     17 1388  319 (S47W31 L=211)   504     71        0 (1362/ 293-1418/ 348) -32.0 W27-W35 S49-S44
     18  998  229 (S54E07 L=173)   508     50        1 ( 976/ 204-1021/ 258) -71.6 E09-E04 S56-S50
     19 1116  202 (S58W06 L=186)  1084    106        2 (1071/ 178-1169/ 233) -26.6 W00-W12 S61-S53
     20 1218  189 (S61W19 L=200)   696     36        0 (1204/ 159-1235/ 223) -68.2 W15-W23 S65-S55
  

    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