Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1257 1808 (N45W54 L= 75)  1066    154        2 (1178/1768-1311/1830) -58.0 W47-W61 N40-N48
      2 1619 1540 (N17W57 L= 79)   396    125        0 (1575/1495-1654/1582) -81.9 W55-W58 N13-N20
      3 1265 1451 (N24W27 L= 49)   376     73        1 (1231/1426-1287/1481)   9.5 W24-W30 N21-N25
      4 1075 1422 (N28W15 L= 36)   303     57        0 (1054/1391-1100/1451)  26.6 W13-W17 N25-N28
      5 1785 1311 (S00W59 L= 81)   480     25        0 (1758/1294-1811/1330)   0.0 W56-W62 S01-N00
      6 1003 1208 (N17W04 L= 25)   810    248        1 ( 959/1109-1081/1294)  38.7 W00-W10 N12-N20
      7 1389 1231 (N08W27 L= 48)   262     79        1 (1365/1188-1411/1261)  53.1 W24-W28 N05-N09
      8  811 1227 (N24E07 L= 14)   224     75        0 ( 774/1214- 852/1245) -36.9 E09-E04 N21-N25
      9  641 1131 (N22E20 L=  1)   603    232        0 ( 529/1079- 713/1163) -33.7 E28-E16 N17-N25
     10 1724  937 (S18W42 L= 63)   818    203        1 (1633/ 911-1826/ 962) -24.0 W34-W52 S22-S14
     11 1342  883 (S10W14 L= 36)   371     89        0 (1308/ 837-1372/ 927)  38.7 W11-W16 S11-S07
     12  469  850 (N10E38 L=343)   280     76        1 ( 448/ 816- 498/ 890) -78.7 E39-E36 N07-N12
     13  213  778 (N10E65 L=317)   561     96        0 ( 194/ 738- 240/ 826) -80.5 E66-E62 N07-N13
     14  936  763 (S06E12 L= 10)   199     85        0 ( 915/ 724- 969/ 799)  31.0 E13-E08 S07-S03
     15 1216  645 (S20W01 L= 22)   300     84        1 (1201/ 601-1233/ 691)  68.2 W00-W02 S22-S16
     16  862  562 (S15E22 L=359)   732    204        0 ( 825/ 474- 916/ 638)  36.0 E27-E16 S20-S11
     17  635  415 (S19E43 L=338)   422    109        0 ( 619/ 374- 659/ 463)  56.3 E45-E39 S22-S16
     18  932  379 (S29E26 L=356)   617    120        1 ( 898/ 334- 976/ 414)  24.0 E30-E21 S31-S27
     19  577  354 (S22E52 L=329)   845     73        2 ( 541/ 322- 605/ 390)  26.6 E56-E48 S24-S19
     20  709  369 (S24E41 L=340)   292     53        1 ( 669/ 357- 736/ 383) -21.8 E43-E38 S25-S22
  

    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