Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  761 1782 (N62W09 L=120)   470    120        0 ( 718/1739- 804/1820)  14.9 W01-W16 N59-N64
      2 1153 1678 (N39W31 L=143)   464     80        1 (1112/1657-1192/1698) -18.4 W27-W34 N37-N40
      3 1286 1609 (N31W36 L=147)   859    204        1 (1219/1534-1343/1665) -84.8 W32-W38 N24-N35
      4  806 1621 (N46W04 L=115)   282     50        1 ( 774/1604- 836/1635) -21.8 W01-W06 N44-N47
      5 1474 1567 (N22W46 L=157)   309     96        0 (1439/1533-1515/1594)   6.3 W41-W50 N21-N23
      6  763 1276 (N25E09 L=102)   321    130        1 ( 746/1224- 790/1342)  82.9 E10-E07 N21-N29
      7  416 1289 (N35E35 L= 76)   404    137        0 ( 378/1231- 463/1340) -48.8 E38-E31 N30-N38
      8  235 1069 (N25E55 L= 57)   581    105        1 ( 199/1049- 285/1102) -11.3 E59-E49 N23-N27
      9 1909 1010 (S21W65 L=177)   772    105        3 (1891/ 960-1922/1058) -80.5 W62-W67 S24-S18
     10  133 1003 (N23E70 L= 41)   870     86        2 ( 107/ 971- 162/1041) -26.6 E75-E65 N20-N25
     11 1905  834 (S32W65 L=177)   660    102        0 (1874/ 802-1940/ 872)   8.1 W59-W73 S33-S31
     12  931  769 (S07E12 L=100)   528    194        2 ( 892/ 680- 981/ 844)  37.9 E16-E07 S11-S04
     13  186  797 (N10E67 L= 45)   469     55        0 ( 167/ 765- 207/ 827) -90.0 E69-E64 N07-N11
     14 1701  792 (S27W38 L=150)   333    104        0 (1664/ 748-1734/ 824)  15.9 W34-W41 S28-S25
     15 1708  629 (S39W39 L=150)  1466    322        4 (1572/ 562-1826/ 718)   3.9 W24-W53 S40-S36
     16 1100  512 (S27E09 L=102)   260     89        0 (1064/ 484-1136/ 546)  18.4 E12-E06 S28-S25
     17  971  460 (S27E19 L= 92)   358     95        1 ( 927/ 435-1016/ 483) -38.7 E21-E16 S29-S24
     18  721  384 (S26E39 L= 73)   942    325        2 ( 603/ 303- 850/ 432)  -2.6 E50-E28 S29-S23
     19  828  335 (S32E35 L= 77)   446    136        0 ( 776/ 292- 870/ 385)  17.1 E41-E28 S33-S29
     20 1039  125 (S58E44 L= 68)   599     57        2 (1017/ 102-1058/ 150)  15.3 E52-E37 S60-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