Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1671 1535 (N29W61 L=196)  2213    205        4 (1631/1450-1714/1605)  55.0 W56-W72 N23-N33
      2 1357 1540 (N34W32 L=166)   643    140        1 (1314/1473-1403/1573)  31.0 W26-W36 N30-N37
      3  971 1402 (N30W00 L=134)   314     87        0 ( 954/1359- 996/1439) -80.5 W00-W01 N26-N32
      4  545 1302 (N26E31 L=103)  2431    499        2 ( 420/1182- 736/1359)  11.8 E41-E16 N19-N30
      5 1417 1290 (N17W29 L=163)   218     68        0 (1401/1255-1433/1326)  53.1 W27-W30 N15-N19
      6 1494 1261 (N15W34 L=168)   413    141        0 (1437/1232-1530/1288) -26.6 W29-W36 N13-N17
      7  224 1201 (N21E62 L= 72)  1366    118        3 ( 196/1137- 258/1255)  76.0 E65-E58 N16-N24
      8  527 1110 (N14E32 L=102)   242     55        1 ( 499/1088- 550/1128) -33.7 E34-E30 N13-N15
      9  584 1078 (N12E28 L=106)   299     69        1 ( 559/1050- 614/1103)  45.0 E29-E25 N10-N13
     10 1738  830 (S15W49 L=183)   913    125        0 (1696/ 760-1771/ 880)  45.0 W45-W52 S18-S12
     11  891  838 (S05E10 L=124)   299     96        1 ( 861/ 804- 937/ 862) -45.0 E11-E07 S07-S03
     12  385  741 (S08E47 L= 87)   422     81        0 ( 367/ 697- 405/ 774)  68.2 E48-E45 S10-S05
     13 1245  500 (S31W10 L=144)   396    104        0 (1194/ 487-1303/ 515) -14.0 W06-W14 S32-S29
     14  565  409 (S32E43 L= 91)   692    157        0 ( 540/ 350- 605/ 483)  79.7 E45-E40 S36-S25
     15 1018  421 (S34E07 L=127)   296     85        0 ( 973/ 405-1061/ 435) -15.9 E10-E03 S35-S32
  

    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