Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  810 1743 (N30E38 L= 18)   314     83        0 ( 792/1696- 825/1777) -56.3 E39-E35 N26-N32
      2  564 1720 (N22E54 L=  2)   616    142        0 ( 526/1655- 592/1774) -26.6 E62-E48 N18-N25
      3  625 1715 (N23E49 L=  7)   359     63        2 ( 597/1692- 648/1739)  76.0 E50-E46 N21-N25
      4  565 1619 (N16E47 L=  9)   678    153        2 ( 506/1582- 628/1661)  54.5 E50-E42 N12-N19
      5  371 1570 (N09E61 L=355)  4514    388       14 ( 200/1474- 488/1646)  27.5 E82-E49 N01-N15
      6 1770 1379 (N37W43 L= 98)  1146    195        2 (1748/1295-1789/1482) -85.6 W40-W45 N31-N45
      7 1451 1410 (N27W15 L= 70)   605    164        1 (1386/1345-1516/1445)  -5.2 W09-W20 N24-N29
      8  707 1369 (N04E27 L= 29)   282     61        0 ( 675/1354- 745/1383)  11.3 E29-E24 N02-N05
      9  496 1363 (S01E41 L= 15)   486    108        2 ( 445/1342- 553/1382)  15.9 E43-E36 S02-N00
     10  931  978 (S12E04 L= 52)   758    333        3 ( 835/ 885- 991/1130)  79.4 E07-E01 S18-S02
     11 1900 1057 (N22W61 L=117)   930    112        4 (1861/1004-1933/1101) -51.3 W54-W66 N19-N24
     12 1821 1035 (N18W51 L=107)   372     52        0 (1789/1012-1854/1056)  33.7 W48-W54 N15-N19
     13  507 1000 (S21E30 L= 25)   398    128        1 ( 455/ 973- 559/1045)  35.5 E34-E27 S23-S17
     14  386 1009 (S23E40 L= 16)   237     67        0 ( 368/ 976- 408/1038) -36.9 E41-E37 S24-S21
     15  188  987 (S28E61 L=355)  1520    194        3 ( 120/ 959- 282/1019)  10.3 E71-E49 S30-S24
     16  669  945 (S20E18 L= 37)   298    115        2 ( 616/ 929- 730/ 961)  15.9 E21-E14 S21-S18
     17 1824  842 (N07W57 L=113)   559     99        1 (1773/ 817-1869/ 863)  29.1 W52-W62 N05-N10
     18 1872  710 (N03W70 L=126)   641     73        1 (1860/ 667-1887/ 747) -59.0 W67-W73 N00-N05
     19 1513  617 (S14W42 L= 97)   325     71        0 (1493/ 588-1529/ 648)  90.0 W39-W43 S16-S12
     20 1744  588 (S08W62 L=118)   379     58        1 (1731/ 557-1762/ 617) -36.9 W59-W64 S09-S06
     21 1622  442 (S19W61 L=117)   899    154        2 (1553/ 413-1681/ 467)  36.9 W56-W66 S22-S16
  

    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