Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1516 1727 (N34W59 L= 75)  1821    268        4 (1390/1686-1626/1779) -25.3 W47-W72 N28-N39
      2  619 1704 (N56E19 L=357)  1621    153        4 ( 562/1646- 671/1747) -28.1 E27-E12 N50-N59
      3  926 1604 (N39W07 L= 22)  1407    290        2 ( 811/1535-1063/1652) -42.9 W00-W14 N31-N45
      4 1055 1399 (N23W10 L= 25)   417     82        1 (1022/1377-1094/1425)  11.3 W07-W12 N21-N25
      5  370 1288 (N30E41 L=335)  1757    387        5 ( 256/1185- 487/1406) -39.3 E54-E30 N21-N39
      6 1198 1296 (N14W16 L= 31)   535    108        0 (1133/1266-1247/1326) -50.2 W12-W18 N11-N17
      7  201 1091 (N21E58 L=317)  2757    349        3 (  94/ 994- 324/1212) -24.0 E83-E45 N13-N29
      8 1917 1158 (S09W70 L= 86)   704     71        0 (1893/1121-1937/1193)  29.7 W65-W75 S10-S06
      9  440 1100 (N17E36 L=340)   747    146        2 ( 391/1059- 492/1135)   7.1 E39-E31 N14-N19
     10  517 1036 (N12E31 L=345)   291    115        2 ( 493/1007- 556/1085) -68.2 E32-E28 N09-N14
     11  473  808 (S00E38 L=337)   495     94        0 ( 431/ 785- 521/ 835)  -8.1 E41-E34 S02-N01
     12 1319  636 (S27W11 L= 26)   361     85        2 (1286/ 590-1345/ 672)  51.3 W07-W12 S29-S24
     13  526  529 (S18E44 L=332)   287     32        0 ( 505/ 504- 548/ 549) -71.6 E45-E41 S19-S16
     14  332  454 (S19E68 L=308)  1936    111        4 ( 288/ 414- 374/ 498) -90.0 E75-E62 S22-S16
  

    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