Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1179 1469 (N24W11 L=357)   490    194        0 (1127/1404-1226/1535)  63.4 W06-W13 N20-N28
      2  474 1365 (N19E37 L=310)   596    105        1 ( 442/1302- 495/1419) -82.9 E40-E34 N14-N22
      3 1755 1285 (N13W52 L= 38)   298     53        0 (1735/1254-1768/1307) -71.6 W49-W53 N11-N14
      4  986 1172 (N06E02 L=344)   744    226        1 ( 925/1088-1039/1281)  76.0 E05-W01 N00-N12
      5  691  874 (S12E21 L=326)   311     86        0 ( 661/ 831- 726/ 905) -51.3 E22-E18 S14-S09
      6  774  696 (S23E17 L=330)   800    257        0 ( 724/ 605- 802/ 783)  61.4 E21-E14 S28-S17
      7  206  713 (S20E65 L=281)   846     67        3 ( 178/ 675- 228/ 756)  80.5 E70-E62 S22-S16
      8 1697  655 (S25W50 L= 37)   375     71        1 (1657/ 637-1733/ 675) -14.0 W46-W54 S26-S23
      9  574  486 (S36E36 L=310)   878    146        1 ( 500/ 447- 643/ 514)  11.3 E44-E29 S38-S34
     10  797  430 (S41E19 L=328)   246     55        0 ( 767/ 417- 833/ 445)   9.5 E21-E15 S41-S39
     11 1478  339 (S48W44 L= 31)  1902    186        3 (1375/ 301-1557/ 404)   2.4 W34-W59 S51-S43
     12 1350  339 (S49W30 L= 17)   535    105        0 (1311/ 317-1376/ 388)  80.5 W26-W33 S50-S44
     13  823  245 (S57E24 L=323)   615     86        0 ( 773/ 228- 867/ 262)  -5.2 E29-E18 S58-S55
     14  740  206 (S61E39 L=308)   673     56        2 ( 709/ 183- 775/ 226) -15.9 E45-E32 S63-S58
  

    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