Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1327 1758 (N39W49 L=287)  2121    272        4 (1202/1724-1466/1785) -23.2 W38-W61 N33-N43
      2 1617 1586 (N20W58 L=296)  4876    721        7 (1478/1442-1753/1690) -78.7 W50-W72 N09-N29
      3  797 1384 (N30E05 L=233)   519    207        1 ( 715/1352- 883/1414) -21.8 E10-W00 N26-N31
      4  532 1373 (N36E25 L=214)   469    145        1 ( 473/1338- 602/1401)   0.0 E29-E18 N34-N37
      5 1118 1202 (N12W10 L=248)   516    181        0 (1073/1121-1159/1276) -90.0 W08-W10 N06-N16
      6 1824 1184 (S08W58 L=296)   563    100        0 (1796/1135-1850/1223)  33.7 W53-W61 S09-S05
      7  175  790 (N08E68 L=170)  1457    253        0 ( 129/ 688- 215/ 910) -74.1 E72-E65 N01-N15
      8 1749  723 (S33W44 L=282)   708    119        1 (1716/ 686-1788/ 781) -45.0 W40-W48 S36-S28
      9  756  714 (S07E23 L=215)   512    166        0 ( 707/ 632- 780/ 776)  83.7 E24-E21 S12-S03
     10 1576  658 (S32W27 L=265)   717    150        1 (1523/ 606-1625/ 731)  40.6 W22-W31 S34-S27
     11  577  651 (S07E36 L=202)   299    102        1 ( 521/ 631- 615/ 666) -18.4 E40-E33 S08-S05
     12 1028  583 (S22E11 L=227)   685    146        2 ( 991/ 524-1050/ 657)  45.0 E14-E07 S24-S17
     13 1457  464 (S42W15 L=253)  1104    207        1 (1359/ 408-1521/ 526)  10.6 W05-W21 S44-S38
     14 1051  207 (S50E28 L=210)  1835    268        3 ( 918/ 165-1161/ 262)  -2.2 E42-E15 S52-S47
  

    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