Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  794 1864 (N44E55 L=321)   875     76        1 ( 761/1837- 824/1893)  -7.6 E64-E48 N41-N46
      2  494 1743 (N27E69 L=308)   883     78        1 ( 468/1711- 515/1778) -39.8 E73-E65 N24-N29
      3  399 1613 (N16E65 L=312)  1297    142        2 ( 342/1557- 439/1649) -10.3 E80-E57 N12-N17
      4  890 1582 (N26E25 L=352)   507    104        1 ( 869/1533- 921/1631) -66.8 E26-E21 N22-N29
      5 1280 1545 (N35W02 L= 18)   233     69        0 (1256/1507-1304/1574) -36.9 W00-W04 N32-N36
      6  638  941 (S18E21 L=355)   374     95        2 ( 604/ 918- 680/ 979) -11.3 E23-E18 S19-S16
      7  565  923 (S21E26 L=351)   255     67        1 ( 545/ 903- 595/ 956) -26.6 E27-E23 S21-S18
      8  827  729 (S26E04 L= 12)   559    177        1 ( 748/ 703- 912/ 752)  36.9 E08-W00 S28-S22
      9 1327  360 (S34W45 L= 61)  2787    412        5 (1206/ 288-1457/ 461)  77.5 W35-W50 S42-S23
     10 1139  307 (S44W36 L= 52)   616    104        2 (1110/ 280-1178/ 355) -18.4 W31-W40 S45-S40
  

    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