Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1403 1748 (N45W54 L=236)   676     79        0 (1368/1715-1431/1772)  59.0 W51-W58 N41-N46
      2  887 1643 (N49W02 L=184)  1619    359        4 ( 719/1598-1056/1679) -17.8 E14-W14 N42-N53
      3 1402 1602 (N35W41 L=223)  1716    329        4 (1237/1570-1541/1628) -13.5 W26-W52 N30-N37
      4  693 1512 (N42E17 L=165)   240     78        0 ( 652/1495- 729/1529) -23.2 E20-E13 N40-N44
      5  875 1465 (N36E03 L=179)   338    100        0 ( 833/1447- 935/1480) -15.9 E06-W01 N34-N37
      6 1561 1387 (N18W43 L=225)   397    105        0 (1537/1346-1595/1438) -80.5 W41-W44 N15-N21
      7  683 1262 (N25E19 L=163)   295     96        0 ( 634/1250- 730/1275)  -8.1 E22-E15 N24-N26
      8  177 1117 (N21E66 L=116)   965    124        2 ( 150/1064- 230/1158)  32.0 E70-E58 N17-N23
      9  970 1074 (N10E03 L=180)   444    152        0 ( 920/1031-1043/1109)  20.6 E06-W02 N08-N11
     10  747 1036 (N11E17 L=165)   662    247        1 ( 668/ 994- 859/1081)  -9.5 E21-E09 N08-N13
     11 1643  830 (S16W38 L=220)  2767    415        9 (1564/ 673-1699/ 994)  67.2 W31-W43 S25-S06
     12 1270  952 (S02W14 L=196)   219     55        1 (1245/ 931-1297/ 970) -56.3 W12-W15 S03-N00
     13 1572  907 (S10W33 L=215)   229     40        1 (1551/ 890-1595/ 929) -18.4 W31-W34 S10-S08
     14  395  867 (N05E44 L=138)   469     69        1 ( 370/ 836- 429/ 905) -59.0 E45-E41 N02-N07
     15 1806  821 (S21W54 L=236)  1549    240        3 (1764/ 762-1861/ 897) -77.5 W49-W61 S24-S15
     16  804  863 (S00E16 L=167)   428    197        1 ( 703/ 847- 884/ 878)  -5.2 E21-E10 S01-N01
     17  959  822 (S05E07 L=175)   336     92        4 ( 930/ 794- 998/ 864) -76.0 E08-E04 S06-S02
     18 1046  785 (S08E02 L=180)   359     98        2 (1014/ 749-1088/ 812)  14.0 E04-W00 S10-S06
     19 1853  747 (S27W62 L=244)  1192    138        4 (1820/ 695-1885/ 809)  50.2 W58-W66 S30-S23
     20  841  693 (S11E16 L=166)   434    138        1 ( 799/ 662- 904/ 722)  -9.5 E18-E12 S12-S09
     21  230  630 (S10E69 L=113)  1942    152        3 ( 205/ 569- 260/ 708)  48.4 E80-E65 S13-S04
     22  894  580 (S19E15 L=167)   250    126        1 ( 834/ 565- 955/ 600)   0.0 E19-E11 S19-S18
     23  336  513 (S18E62 L=120)   753    130        1 ( 316/ 460- 366/ 571)  38.7 E67-E56 S21-S13
     24 1091  475 (S29E05 L=177)   596    117        1 (1054/ 428-1134/ 514)  35.5 E08-E01 S32-S26
  

    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