Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1035 1817 (N43E31 L=198)   452    103        0 (1002/1768-1060/1860) -26.6 E37-E25 N39-N46
      2  919 1754 (N34E33 L=196)   335     77        1 ( 907/1715- 933/1797) -40.6 E36-E29 N31-N37
      3  977 1452 (N16E15 L=214)   825    240        0 ( 903/1341-1045/1519) -28.3 E21-E07 N11-N18
      4 1841 1062 (N22W54 L=283)  1112    181        0 (1781/ 982-1875/1117) -24.4 W46-W59 N17-N24
      5  379 1025 (S23E41 L=188)   585    147        0 ( 328/ 977- 443/1070)  41.6 E45-E36 S26-S18
      6  596 1025 (S18E25 L=204)   678    271        0 ( 490/ 973- 721/1064)  40.2 E31-E18 S23-S12
      7  258  851 (S36E52 L=177)   364     81        0 ( 242/ 815- 278/ 889)  59.0 E54-E49 S38-S33
      8  708  858 (S24E14 L=215)   449    142        1 ( 646/ 824- 781/ 886)  45.0 E17-E09 S27-S20
      9  903  671 (S29W04 L=233)  2091    720        0 ( 653/ 554-1225/ 749)  11.0 E14-W27 S34-S24
     10 1712  651 (S05W56 L=285)   320     37        0 (1682/ 636-1734/ 670)  36.9 W53-W58 S06-S03
     11 1430  557 (S19W40 L=269)   627    155        1 (1369/ 510-1491/ 600)  69.4 W37-W42 S23-S15
     12  325  487 (S61E57 L=172)   610     32        0 ( 294/ 470- 349/ 503)   0.0 E67-E50 S63-S59
     13 1496  326 (S29W63 L=292)   953    134        2 (1437/ 290-1554/ 375)  82.9 W60-W65 S32-S24
  

    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