Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1249 1742 (N45E10 L= 14)  2689    431        2 (1124/1589-1402/1884) -23.2 E29-W06 N37-N54
      2  621 1735 (N25E52 L=332)   983    103        2 ( 574/1702- 676/1775)  56.3 E54-E48 N21-N28
      3  637 1674 (N21E46 L=338)  1125    256        3 ( 537/1610- 733/1732)  61.7 E49-E42 N14-N27
      4 1029 1663 (N31E20 L=  4)   397    110        0 (1015/1608-1041/1713) -53.1 E23-E17 N26-N34
      5  876 1621 (N24E27 L=357)   388     81        1 ( 860/1580- 893/1669) -56.3 E30-E24 N20-N26
      6  666 1590 (N16E39 L=345)   298     57        0 ( 646/1572- 691/1621) -11.3 E41-E36 N14-N17
      7  383 1574 (N09E61 L=323)   565     60        1 ( 358/1553- 409/1595) -15.9 E64-E57 N08-N10
      8 1357 1390 (N23W09 L= 33)   250     89        0 (1331/1364-1391/1430) -21.8 W06-W11 N21-N24
      9 1767 1236 (N28W43 L= 67)   389     95        1 (1736/1211-1797/1286) -31.0 W39-W46 N26-N30
     10  199 1031 (S26E60 L=324)   700    144        0 ( 151/ 979- 244/1093)  36.0 E67-E55 S29-S21
     11  646  938 (S21E20 L=  4)   393     82        0 ( 597/ 921- 688/ 957)  38.7 E23-E17 S23-S19
     12 1718  649 (S06W56 L= 80)   426     28        0 (1696/ 628-1741/ 674) -11.3 W54-W59 S06-S04
     13 1277  421 (S33W38 L= 62)   312     63        0 (1257/ 386-1294/ 457) -45.0 W35-W40 S34-S30
     14 1312  191 (S44W67 L= 91)   663     76        1 (1283/ 157-1343/ 224)   0.0 W60-W78 S44-S42
  

    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