Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1851 1291 (N09W68 L=319)  1462    218        3 (1814/1186-1878/1363) -90.0 W65-W73 N02-N13
      2  563 1159 (N19E29 L=222)  2044    466        7 ( 386/1066- 721/1273) -31.0 E43-E18 N11-N27
      3 1355 1184 (N11W23 L=273)   513    170        1 (1299/1117-1416/1247)  31.0 W18-W28 N07-N14
      4 1861 1042 (S06W62 L=313)  1358    173        4 (1837/ 963-1886/1103)  83.7 W59-W66 S11-S02
      5  202 1050 (N14E61 L=189)   514    104        0 ( 185/1000- 216/1102) -81.9 E63-E59 N10-N17
      6  394 1028 (N12E42 L=208)   507    111        2 ( 350/ 983- 417/1059) -31.0 E45-E40 N09-N13
      7 1636  748 (S20W38 L=289)  2328    390        4 (1506/ 617-1718/ 896)  41.4 W27-W45 S27-S11
      8  838  737 (S10E15 L=236)   378    120        1 ( 818/ 685- 863/ 804)  74.1 E16-E13 S12-S05
      9  974  777 (S09E06 L=244)   393    105        2 ( 925/ 755-1041/ 801)  -7.1 E09-E01 S10-S06
     10 1012  701 (S14E05 L=246)   967    332        0 ( 881/ 616-1118/ 794)  26.6 E14-W02 S17-S08
     11  710  687 (S11E24 L=227)   534    149        2 ( 650/ 632- 770/ 744) -63.4 E26-E20 S15-S07
     12 1402  631 (S24W20 L=271)   449    174        1 (1353/ 567-1427/ 688) -77.5 W17-W21 S28-S19
     13 1304  599 (S25W13 L=264)   274     63        1 (1277/ 570-1326/ 634)  63.4 W11-W14 S26-S21
     14  463  566 (S18E45 L=205)   320     83        2 ( 440/ 528- 487/ 606) -90.0 E46-E44 S20-S14
     15  873  473 (S28E18 L=233)   304    119        0 ( 858/ 422- 889/ 514)  54.5 E20-E15 S31-S24
  

    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