Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  608 1756 (N27E54 L=142)  3561    472        7 ( 466/1610- 731/1844) -84.6 E63-E41 N15-N36
      2 1023 1772 (N39E25 L=171)   761    117        2 ( 976/1715-1056/1821) -26.6 E31-E19 N35-N42
      3  856 1650 (N25E28 L=167)   264     65        1 ( 828/1630- 879/1669)  18.4 E30-E27 N23-N26
      4 1601 1478 (N37W27 L=222)   541    107        1 (1582/1421-1619/1529) -76.0 W24-W28 N32-N40
      5 1481 1440 (N29W17 L=213)   329     79        1 (1460/1401-1497/1481) -59.0 W15-W19 N27-N32
      6 1301 1320 (N16W08 L=204)   274     99        1 (1272/1281-1335/1361)  78.7 W07-W09 N14-N19
      7 1356 1230 (N13W14 L=209)   244     57        0 (1329/1213-1392/1245)  11.3 W11-W16 N11-N13
      8  133 1200 (S15E74 L=121)   629     64        1 ( 112/1181- 160/1225) -15.3 E79-E68 S15-S12
      9 1713 1171 (N20W40 L=235)   299     59        0 (1693/1142-1738/1195)  53.1 W38-W41 N18-N22
     10  269 1128 (S17E54 L=142)   420     80        0 ( 243/1088- 291/1165)  68.2 E55-E51 S20-S15
     11  228 1062 (S22E57 L=138)   364     68        1 ( 208/1035- 260/1093) -21.8 E59-E53 S23-S19
     12  318 1028 (S22E47 L=148)   427     55        1 ( 302/ 997- 336/1062)  90.0 E48-E45 S24-S20
     13  237  965 (S28E55 L=140)   534     82        2 ( 214/ 928- 261/1008)  68.2 E58-E52 S29-S24
     14  348  987 (S24E44 L=152)   326     66        3 ( 311/ 968- 371/1006)  21.8 E47-E41 S25-S22
     15  530  947 (S23E29 L=167)   267    100        0 ( 501/ 905- 544/ 996) -51.3 E31-E27 S25-S20
     16 1274  919 (S07W17 L=212)   316     63        1 (1251/ 883-1307/ 948)  76.0 W14-W18 S08-S04
     17  802  895 (S20E10 L=186)   230     64        1 ( 764/ 877- 839/ 907)  26.6 E11-E07 S21-S18
     18 1477  726 (S11W35 L=230)   847    216        1 (1381/ 672-1570/ 765)  48.0 W30-W39 S16-S06
     19 1682  639 (S09W54 L=249)   824    173        0 (1635/ 587-1741/ 671)  45.0 W50-W59 S13-S06
     20 1182  587 (S27W22 L=218)   453    143        0 (1119/ 561-1245/ 626)  45.0 W18-W24 S29-S23
     21 1465  442 (S27W49 L=244)  1451    251        2 (1362/ 401-1580/ 490)   7.8 W39-W61 S28-S23
     22 1103  398 (S41W27 L=223)   908    150        1 (1032/ 371-1178/ 429)  36.9 W22-W31 S43-S37
     23  509  379 (S64E29 L=166)  1397    173        1 ( 434/ 340- 581/ 422)  -4.8 E42-E17 S65-S60
  

    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