Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1336 1839 (N42W62 L=331)  1001    138        1 (1278/1798-1394/1874)  -2.7 W52-W73 N40-N44
      2  831 1840 (N65W25 L=293)   486     69        0 ( 816/1804- 847/1873)  24.8 W19-W32 N61-N67
      3  509 1656 (N61E25 L=243)  1326    237        3 ( 409/1596- 601/1722)   8.4 E41-E11 N58-N64
      4  809 1324 (N28E05 L=264)  1069    324        3 ( 661/1278- 951/1357) -34.5 E14-W03 N21-N33
      5 1683 1064 (S10W41 L=309)   682    138        0 (1660/ 997-1706/1134)  49.4 W37-W44 S13-S06
      6  662  974 (N12E22 L=247)   414    180        1 ( 604/ 924- 734/1012) -53.1 E24-E18 N07-N15
      7 1901  886 (S29W61 L=329)   504     47        1 (1870/ 874-1931/ 900) -15.3 W56-W67 S30-S27
      8 1697  731 (S30W36 L=304)   348     64        1 (1679/ 708-1721/ 769)  56.3 W34-W38 S32-S27
      9 1506  554 (S36W18 L=286)  1397    245        3 (1400/ 507-1603/ 623)   0.0 W08-W26 S37-S32
     10  313  548 (S05E63 L=206)   452     65        4 ( 293/ 517- 334/ 584)  33.7 E66-E58 S06-S02
     11  648  479 (S16E38 L=230)   555     96        3 ( 606/ 437- 682/ 512)  78.7 E40-E35 S18-S13
     12  436  405 (S16E60 L=209)  1950    183        5 ( 383/ 337- 499/ 485)  79.7 E65-E55 S21-S10
     13  592  339 (S23E51 L=217)  1877    304        6 ( 502/ 272- 692/ 422) -69.0 E59-E44 S29-S16
     14  815  346 (S28E34 L=234)   329     64        2 ( 778/ 331- 850/ 366) -45.0 E36-E32 S29-S26
     15  978  218 (S43E33 L=235)  3029    414        7 ( 800/ 126-1124/ 318)   5.7 E57-E16 S48-S38
  

    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