Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  535 1663 (N38E50 L=299)  2892    251        4 ( 446/1568- 623/1756) -14.7 E80-E38 N32-N44
      2  792 1586 (N35E23 L=326)  1707    267        4 ( 669/1544- 918/1619)   6.0 E32-E13 N31-N38
      3 1011 1475 (N30E05 L=344)   447    111        0 ( 979/1421-1040/1519) -50.2 E07-E02 N26-N32
      4  761 1406 (N23E21 L=328)  1095    419        1 ( 695/1326- 834/1497)  74.7 E26-E16 N17-N29
      5 1790 1414 (N32W62 L= 52)   540     32        0 (1773/1390-1810/1443)  63.4 W59-W65 N30-N34
      6 1461 1384 (N27W27 L= 17)   251     99        0 (1410/1359-1499/1398)  -8.1 W23-W30 N26-N28
      7 1629 1177 (N15W40 L= 29)   432    154        0 (1572/1159-1694/1205)   0.0 W35-W45 N14-N17
      8 1337 1004 (N03W19 L=  9)   250     89        0 (1299/ 989-1384/1018)  11.3 W17-W22 N01-N03
      9 1612  970 (N03W39 L= 28)   417    125        0 (1571/ 923-1668/ 994)  29.7 W35-W43 N00-N04
     10  259  863 (S15E54 L=295)   886    213        1 ( 204/ 816- 306/ 918)  20.0 E60-E49 S17-S11
     11  368  825 (S16E44 L=306)   469     91        2 ( 350/ 781- 393/ 870) -71.6 E45-E41 S19-S13
     12  853  717 (S19E08 L=341)   452    172        0 ( 774/ 695- 939/ 738)  20.0 E13-E02 S20-S16
     13  602  578 (S30E26 L=323)   769    163        1 ( 538/ 539- 687/ 606)  21.0 E32-E19 S33-S27
     14  501  498 (S38E37 L=312)   466     71        1 ( 484/ 466- 526/ 538)  80.5 E39-E34 S40-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