Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1220 1764 (N48E13 L=359)   432     82        2 (1181/1745-1262/1782)  26.6 E15-E09 N45-N50
      2  495 1683 (N20E58 L=315)  1936    206        4 ( 433/1635- 571/1755)  68.2 E62-E53 N16-N26
      3 1369 1533 (N35W07 L= 19)  3108    662       12 (1264/1366-1451/1711) -39.3 E06-W16 N25-N45
      4  731 1552 (N18E33 L=339)   727    212        1 ( 709/1476- 771/1634) -45.0 E37-E27 N13-N22
      5  480 1595 (N14E53 L=319)   555    116        2 ( 449/1562- 507/1633) -78.7 E55-E49 N11-N16
      6  566 1456 (N08E40 L=332)   445    131        4 ( 526/1400- 598/1515)  90.0 E41-E38 N03-N11
      7  474 1478 (N07E48 L=325)   530    103        1 ( 439/1446- 511/1510)  45.0 E50-E45 N04-N09
      8 1780 1195 (N27W45 L= 57)   453     81        1 (1755/1145-1798/1238) -59.0 W42-W47 N24-N29
      9  648 1094 (S11E23 L=349)   224     56        0 ( 621/1061- 669/1132)  90.0 E24-E22 S13-S08
     10 1718 1042 (N16W43 L= 55)   470    100        3 (1697/ 999-1744/1090) -38.7 W39-W45 N14-N18
     11 1888  922 (N15W63 L= 76)  2870    379        7 (1845/ 809-1923/1037) -42.7 W58-W73 N10-N22
     12  268  932 (S29E49 L=323)  1052    292        0 ( 206/ 850- 356/1000)  47.5 E55-E41 S35-S23
     13  879  946 (S13E06 L=  6)   357    143        0 ( 801/ 911- 942/ 986)  53.1 E09-E03 S17-S09
     14 1563  876 (N02W36 L= 48)   275    102        0 (1516/ 861-1610/ 892)  26.6 W32-W38 N00-N03
     15 1161  825 (S12W13 L= 25)   226     81        0 (1121/ 804-1191/ 852)  36.9 W10-W14 S13-S09
     16  289  764 (S39E46 L=326)   460     79        3 ( 261/ 740- 314/ 790) -11.3 E49-E43 S41-S37
     17 1401  706 (S12W31 L= 43)   669    204        1 (1308/ 630-1495/ 750)  59.7 W28-W36 S18-S06
     18 1103  725 (S19W13 L= 25)   412    176        2 (1011/ 709-1189/ 745)  20.0 W07-W18 S21-S16
     19 1179  589 (S25W22 L= 35)   637    179        0 (1089/ 573-1264/ 610)  33.7 W16-W26 S27-S21
     20 1332  437 (S29W39 L= 51)   318     87        1 (1294/ 424-1377/ 453)  18.4 W36-W42 S29-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