Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1208 1616 (N34W09 L=255)   474    102        0 (1155/1598-1265/1635)  14.0 W05-W13 N32-N35
      2  433 1521 (N24E46 L=200)   875    168        2 ( 399/1446- 463/1607) -61.4 E52-E42 N18-N29
      3 1714 1503 (N31W51 L=296)   432     58        1 (1697/1476-1731/1545)  56.3 W48-W53 N28-N34
      4  187 1413 (N17E70 L=176)  1914    108        3 ( 154/1361- 213/1466) -66.8 E76-E64 N13-N20
      5  846 1271 (N09E12 L=233)   216     55        0 ( 818/1249- 882/1291)  36.9 E13-E09 N07-N10
      6  290 1059 (S05E49 L=196)   307     67        2 ( 267/1041- 321/1087) -11.3 E51-E46 S05-S03
      7  169  934 (S12E63 L=183)  5948    344       15 ( 106/ 769- 242/1083)  60.9 E75-E53 S21-S03
      8 1668  549 (S28W53 L=299)  2398    317        3 (1587/ 429-1775/ 639)  49.8 W47-W61 S36-S21
      9  723  546 (S36E19 L=227)  1218    474        0 ( 548/ 476- 909/ 597)   9.5 E35-E05 S41-S31
     10 1484  533 (S31W37 L=283)   304     88        0 (1444/ 515-1530/ 554)  26.6 W34-W40 S32-S29
     11  940  310 (S52E02 L=244)   291     57        0 ( 914/ 288- 970/ 341) -51.3 E04-W01 S54-S49
     12 1239  299 (S50W27 L=272)   462     36        1 (1208/ 276-1264/ 322) -15.9 W23-W30 S52-S48
     13 1066  294 (S53W11 L=256)   464     78        2 (1019/ 277-1113/ 308)  14.0 W05-W15 S54-S51
  

    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