Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1161 1738 (N44W05 L= 63)   333     53        1 (1134/1718-1191/1760)  21.8 W02-W07 N41-N46
      2 1277 1677 (N40W14 L= 72)   270     66        2 (1263/1646-1297/1703)  59.0 W13-W16 N37-N42
      3 1359 1669 (N40W21 L= 79)   600     81        1 (1333/1634-1399/1700)  33.7 W18-W24 N37-N42
      4  914 1625 (N33E12 L= 46)   712    142        0 ( 863/1571- 959/1670) -32.0 E16-E08 N29-N36
      5 1464 1625 (N38W29 L= 87)   727    123        1 (1436/1575-1507/1657)  66.8 W26-W32 N33-N40
      6 1640 1520 (N32W42 L=100)  2621    475        6 (1503/1436-1795/1592)  -9.1 W30-W56 N27-N35
      7  202 1298 (N09E62 L=356)  1269    356        2 ( 147/1213- 247/1379) -34.5 E73-E56 N03-N14
      8  795 1307 (N11E16 L= 42)   266     55        1 ( 761/1285- 823/1327)   0.0 E17-E14 N09-N12
      9  449 1195 (N03E38 L= 20)   254     64        0 ( 416/1173- 480/1220)  31.0 E40-E35 N01-N04
     10  849  694 (S26E09 L= 49)   307     84        0 ( 821/ 657- 877/ 737)  56.3 E11-E07 S28-S22
     11  674  620 (S31E22 L= 36)   387    152        0 ( 595/ 587- 753/ 643) -15.3 E27-E16 S33-S30
     12  404  574 (S35E45 L= 13)   886    190        1 ( 335/ 542- 484/ 614) -14.0 E50-E38 S37-S32
     13 1691  466 (S33W57 L=115)   442    118        0 (1647/ 457-1730/ 477)  14.0 W53-W61 S33-S31
  

    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