Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  863 1772 (N36E31 L= 89)   753    153        3 ( 804/1734- 936/1802)   0.0 E36-E24 N33-N37
      2 1067 1605 (N28E11 L=109)   360    148        1 (1028/1567-1138/1630)  39.8 E12-E06 N25-N30
      3 1398 1575 (N35W12 L=132)   899    188        2 (1296/1536-1477/1599)   8.1 W04-W18 N32-N36
      4 1100 1361 (N14E03 L=117)   270    135        1 (1059/1309-1143/1411) -38.7 E05-W00 N11-N16
      5  492 1248 (S04E37 L= 83)   435    141        0 ( 458/1193- 511/1299)  81.9 E39-E35 S07-N00
      6 1669 1173 (N16W37 L=157)   616    125        0 (1615/1127-1712/1214) -14.0 W32-W40 N14-N17
      7  394 1160 (S10E42 L= 78)   271     93        0 ( 379/1116- 405/1209) -78.7 E43-E41 S12-S07
      8  187 1160 (S13E62 L= 58)   611    103        2 ( 137/1131- 235/1182)   0.0 E69-E56 S14-S11
      9  735 1066 (S10E17 L=102)   608    257        1 ( 625/1008- 823/1128)  42.0 E23-E13 S14-S05
     10 1899 1049 (N16W61 L=181)   591     92        1 (1882/1012-1921/1097)  78.7 W59-W64 N13-N18
     11  201  996 (S22E59 L= 61)   812    110        1 ( 157/ 954- 252/1039)  24.4 E64-E53 S24-S19
     12 1727  945 (N05W46 L=165)   890    187        1 (1703/ 858-1742/1039) -78.7 W42-W48 N00-N10
     13 1197  886 (S11W13 L=133)   324     85        0 (1169/ 847-1218/ 923) -53.1 W10-W14 S13-S09
     14 1236  778 (S16W18 L=137)   300     80        0 (1201/ 742-1265/ 810)  68.2 W16-W19 S19-S14
     15  935  759 (S24W00 L=120)   300    116        0 ( 888/ 737- 984/ 796)  -9.5 E03-W03 S25-S22
     16 1737  728 (S07W53 L=173)   440     56        1 (1717/ 699-1757/ 757)  90.0 W51-W56 S08-S04
     17 1772  649 (S10W61 L=180)  1364    204        6 (1719/ 586-1816/ 749)  84.8 W57-W66 S14-S03
     18 1689  658 (S12W52 L=172)  1115    178        2 (1630/ 586-1723/ 719) -18.4 W45-W57 S15-S07
     19 1836  647 (S08W69 L=188)   846     94        6 (1808/ 595-1859/ 690) -80.5 W65-W73 S10-S04
     20 1653  471 (S22W61 L=180)  1172    146        0 (1582/ 444-1724/ 510)  28.6 W54-W65 S24-S18
     21 1489  303 (S36W61 L=181)   707     74        2 (1459/ 275-1518/ 340) -38.7 W56-W65 S38-S34
  

    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