Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1399 1608 (N33W30 L=166)  1178    211        0 (1301/1545-1472/1651) -24.4 W23-W34 N28-N36
      2  555 1591 (N36E33 L=102)   326     61        0 ( 527/1562- 584/1613) -29.7 E36-E29 N33-N37
      3  804 1536 (N30E13 L=122)   755    148        4 ( 739/1491- 875/1576) -21.8 E17-E07 N27-N33
      4  668 1315 (N16E21 L=114)  1007    437        2 ( 604/1135- 719/1476) -77.2 E26-E17 N05-N27
      5 1793 1397 (N18W59 L=194)   401     73        1 (1764/1371-1820/1429) -21.8 W56-W62 N16-N20
      6 1778 1330 (N14W55 L=190)   341     48        1 (1759/1305-1793/1358)  71.6 W52-W57 N12-N15
      7 1626 1136 (N02W39 L=174)   509    127        0 (1575/1108-1692/1157)   6.3 W34-W43 N00-N03
      8 1771 1085 (S01W50 L=186)   589    174        0 (1718/1007-1789/1136) -63.4 W46-W52 S05-N02
      9 1654 1008 (S05W40 L=176)   327     75        1 (1616/ 973-1683/1039) -38.7 W37-W42 S07-S03
     10  303  879 (S07E49 L= 86)  1973    352        5 ( 235/ 799- 425/1009) -40.2 E54-E39 S12-N00
     11 1850  922 (S11W59 L=194)   358     57        0 (1829/ 898-1868/ 954)  76.0 W56-W61 S12-S08
     12 1620  874 (S13W38 L=173)   816    157        3 (1583/ 801-1660/ 930) -63.4 W35-W41 S17-S09
     13 1484  894 (S12W28 L=163)   289    150        0 (1409/ 866-1528/ 913)  -7.1 W23-W31 S13-S10
     14 1532  840 (S15W32 L=167)   395     99        2 (1490/ 799-1565/ 887)  59.0 W28-W34 S17-S12
     15  794  793 (S15E15 L=120)   330    115        2 ( 779/ 731- 817/ 844) -90.0 E16-E13 S18-S12
     16 1626  717 (S23W40 L=175)   724    274        0 (1540/ 635-1707/ 831)  47.5 W34-W45 S27-S15
     17  165  756 (S13E68 L= 67)   650     82        2 ( 138/ 716- 199/ 798) -56.3 E71-E64 S16-S10
     18 1311  744 (S20W17 L=152)   202     71        0 (1281/ 721-1344/ 763)  26.6 W15-W19 S21-S19
     19  336  712 (S17E50 L= 85)  1086    211        2 ( 290/ 651- 392/ 762) -66.8 E53-E45 S21-S14
     20  711  532 (S31E25 L=111)   278     61        0 ( 678/ 518- 745/ 549) -11.3 E27-E22 S32-S29
     21  523  402 (S39E46 L= 89)  1373    178        4 ( 467/ 318- 572/ 483)  26.6 E59-E37 S44-S33
     22  730  221 (S56E39 L= 96)   623     56        2 ( 703/ 196- 756/ 258)  63.4 E44-E35 S58-S52
     23  926  211 (S58E18 L=118)   635     67        2 ( 894/ 185- 964/ 239)   6.3 E21-E12 S61-S55
  

    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