Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1686 1491 (N11W58 L=293)  2500    532        4 (1543/1448-1821/1530) -14.0 W45-W77 N05-N15
      2 1698 1407 (N07W55 L=290)   384     89        1 (1666/1367-1721/1447)  78.7 W52-W56 N04-N09
      3 1297 1379 (N17W26 L=261)   277     86        0 (1262/1358-1350/1409) -45.0 W24-W28 N15-N19
      4 1224 1225 (N11W17 L=252)   237     53        1 (1205/1198-1248/1255) -90.0 W15-W17 N08-N12
      5  641 1158 (N22E19 L=216)  3017    683       11 ( 391/1099- 912/1229) -25.2 E36-E02 N14-N31
      6  202 1082 (N28E56 L=179)   589     97        1 ( 185/1051- 230/1127) -59.0 E57-E53 N25-N30
      7 1924  951 (S27W62 L=297)  1129    212        0 (1892/ 867-1951/1030)  32.5 W57-W68 S30-S22
      8 1327  919 (S09W14 L=249)   244     69        1 (1292/ 895-1366/ 938) -36.9 W12-W16 S10-S06
      9 1295  844 (S12W10 L=245)   463    101        2 (1263/ 809-1336/ 888)  11.3 W08-W13 S14-S09
     10 1150  830 (S09W02 L=237)   277     52        0 (1123/ 804-1178/ 866)  26.6 W00-W04 S10-S07
     11 1405  777 (S19W16 L=251)   259     98        0 (1355/ 754-1439/ 819)   8.1 W11-W18 S20-S17
     12  943  447 (S26E22 L=213)  1269    301        3 ( 916/ 335- 975/ 572)  56.3 E27-E17 S33-S18
     13  740  384 (S25E38 L=197)   346    115        0 ( 716/ 344- 768/ 421)  26.6 E41-E33 S27-S23
  

    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