Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1319 1577 (N40W20 L=300)  8739   1234       12 ( 767/1446-1828/1726)  -6.9 E29-W80 N31-N48
      2  966 1183 (N12E04 L=275)  1908    406        1 ( 926/ 982- 994/1370) -77.7 E08-E01 N00-N23
      3  307 1153 (N05E51 L=229)  2472    500        6 ( 263/ 939- 336/1369) -83.4 E56-E47 S08-N18
      4 1669 1281 (N21W45 L=325)   620    148        0 (1639/1225-1716/1336) -54.5 W42-W48 N17-N24
      5 1734 1287 (N22W51 L=331)   422     76        0 (1724/1241-1747/1328)  63.4 W49-W52 N18-N24
      6  459 1207 (N10E39 L=241)   746    206        2 ( 425/1135- 505/1279) -83.7 E41-E34 N05-N14
      7  517  753 (S18E32 L=248)  1591    444        1 ( 467/ 563- 556/ 947)  76.5 E37-E29 S30-S05
      8  217  894 (S11E59 L=221)   890    117        1 ( 166/ 838- 254/ 931) -29.1 E65-E54 S14-S09
      9  960  617 (S24E02 L=278)   518    145        0 ( 896/ 587-1022/ 656)  35.5 E05-W02 S25-S20
     10 1774  561 (S24W66 L=346)  2067    125        2 (1714/ 527-1828/ 597)  12.1 W57-W79 S26-S21
     11 1570  465 (S31W48 L=328)  1996    220        3 (1478/ 431-1666/ 506)  10.0 W38-W57 S33-S27
     12 1351  379 (S39W32 L=311)   375     62        0 (1317/ 363-1387/ 393)   9.5 W28-W34 S40-S37
     13 1134  314 (S46W15 L=295)   327     29        0 (1106/ 299-1159/ 332)  14.0 W12-W17 S47-S43
     14  639  295 (S52E33 L=247)   419     55        0 ( 616/ 267- 660/ 314) -90.0 E36-E30 S55-S50
  

    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