Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  692 1564 (N29E32 L= 76)  2533    556        7 ( 495/1450- 789/1733)  71.6 E44-E26 N20-N42
      2  447 1643 (N31E56 L= 52)   657    175        0 ( 432/1600- 466/1693) -40.6 E61-E52 N27-N34
      3 1287 1640 (N45W10 L=119)   517    107        0 (1269/1601-1315/1674)  74.1 W08-W13 N41-N48
      4 1627 1571 (N46W43 L=152)   968    245        3 (1583/1519-1664/1617)  36.9 W37-W49 N40-N50
      5  741 1366 (N17E23 L= 85)   489    214        0 ( 669/1321- 777/1436)  90.0 E27-E20 N13-N21
      6  354 1256 (N05E49 L= 59)   507    108        1 ( 308/1232- 405/1290)  26.6 E53-E45 N03-N07
      7 1362 1149 (N12W19 L=128)   821    241        4 (1290/1093-1417/1212)  45.0 W15-W22 N08-N16
      8  363  902 (S16E43 L= 65)   875    245        0 ( 310/ 823- 391/1024)  77.0 E47-E41 S21-S08
      9 1797  900 (N03W57 L=165)   624     99        0 (1782/ 846-1822/ 952) -80.5 W54-W58 N00-N06
     10  980  840 (S11E00 L=108)   229     83        0 ( 935/ 821-1024/ 862) -11.3 E03-W02 S12-S10
     11  226  751 (S28E57 L= 52)   504    174        0 ( 190/ 730- 267/ 778)  24.0 E61-E52 S29-S25
     12 1384  712 (S14W27 L=136)   606    132        3 (1346/ 651-1413/ 760) -39.8 W24-W30 S17-S11
     13 1746  691 (S10W57 L=166)   371     83        0 (1725/ 644-1775/ 724)  80.5 W55-W59 S13-S07
  

    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