Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1258 1715 (N46W37 L=233)   404     40        1 (1234/1690-1279/1739)  53.1 W34-W39 N44-N48
      2  761 1605 (N48E11 L=185)  1725    449        6 ( 572/1525- 948/1652) -20.9 E31-W03 N39-N53
      3 1236 1547 (N35W25 L=222)  1787    395        5 (1040/1497-1397/1579)  -8.1 W09-W37 N30-N38
      4  715 1423 (N35E16 L=181)   284     81        0 ( 673/1408- 758/1435) -18.4 E18-E12 N34-N36
      5  633 1222 (N23E23 L=174)   217     78        1 ( 593/1208- 675/1234) -18.4 E25-E19 N22-N24
      6  873 1163 (N17E07 L=189)   285    151        0 ( 812/1112- 920/1197) -50.2 E10-E04 N13-N19
      7  126 1040 (N16E75 L=122)  1936    111        3 (  97/ 988- 153/1087) -31.0 E84-E69 N12-N18
      8  724 1031 (N11E18 L=178)   457    148        0 ( 672/ 989- 802/1064)  12.5 E22-E13 N08-N12
      9 1477  872 (S10W26 L=222)   662    153        3 (1433/ 786-1518/ 939)  66.0 W22-W28 S15-S06
     10  238  855 (N05E59 L=137)  1294    186        5 ( 185/ 797- 293/ 910) -28.6 E65-E54 N00-N07
     11 1373  824 (S11W18 L=215)   266    110        1 (1351/ 772-1403/ 855)  59.0 W16-W20 S14-S09
     12  698  797 (S03E23 L=173)   307    104        1 ( 668/ 755- 725/ 840) -78.7 E24-E22 S05-N00
     13  564  827 (N00E32 L=165)   313     86        0 ( 521/ 810- 613/ 837)   0.0 E34-E28 N00-N01
     14 1305  793 (S12W14 L=210)   306     79        2 (1276/ 764-1335/ 822)  14.0 W11-W15 S13-S10
     15 1715  774 (S21W44 L=241)   410     72        0 (1681/ 750-1743/ 792)  21.8 W41-W47 S22-S20
     16 1736  695 (S27W47 L=244)   613    111        0 (1702/ 657-1771/ 744)  45.0 W43-W50 S29-S24
     17 1467  678 (S22W24 L=220)  1299    224        4 (1399/ 617-1545/ 743)  28.6 W18-W29 S25-S18
     18  620  655 (S11E31 L=165)   472    104        3 ( 580/ 628- 678/ 682)  20.6 E34-E26 S12-S09
     19  684  556 (S18E30 L=167)   407    182        0 ( 614/ 535- 762/ 593) -24.0 E33-E24 S19-S14
     20  887  426 (S30E20 L=177)   601    119        2 ( 859/ 373- 918/ 479)  49.4 E22-E16 S33-S26
     21  979  167 (S56E28 L=168)   479     59        1 ( 953/ 153-1004/ 189) -63.4 E31-E24 S58-S53
  

    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