Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  670 1622 (N37E35 L=314)  4585    631        7 ( 447/1544- 944/1755)  -7.5 E79-E10 N31-N44
      2 1016 1478 (N30E05 L=344)   436    118        0 ( 985/1420-1045/1530) -54.5 E07-E02 N26-N33
      3  721 1411 (N23E24 L=325)   518    198        1 ( 696/1333- 760/1495) -59.0 E26-E19 N18-N28
      4  819 1402 (N23E17 L=332)   451    174        2 ( 787/1332- 840/1494) -84.8 E18-E15 N18-N29
      5 1791 1420 (N32W63 L= 52)   539     65        0 (1768/1391-1815/1452) -63.4 W60-W65 N30-N34
      6 1634 1176 (N15W40 L= 29)   452    139        0 (1577/1157-1697/1206)   0.0 W35-W45 N14-N16
      7 1345 1000 (N03W20 L=  9)   259     90        1 (1307/ 978-1399/1017)  18.4 W17-W23 N01-N04
      8 1617  969 (N03W39 L= 28)   425    125        0 (1578/ 922-1673/ 992)  29.7 W36-W43 N00-N04
      9  274  885 (S14E52 L=297)   420     94        1 ( 253/ 844- 310/ 919)  51.3 E54-E48 S16-S11
     10  373  826 (S16E43 L=306)   407     85        2 ( 356/ 780- 397/ 867) -80.5 E44-E41 S19-S13
     11  861  715 (S19E08 L=341)   517    212        0 ( 772/ 685- 958/ 742)  22.6 E13-E01 S21-S16
     12  605  573 (S31E26 L=323)   851    208        1 ( 528/ 517- 701/ 604)  28.1 E33-E18 S35-S27
     13  505  498 (S37E37 L=312)   452     72        1 ( 484/ 466- 528/ 538)  71.6 E39-E34 S40-S34
  

    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