Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  722 1865 (N69E17 L=326)  1202     95        3 ( 687/1820- 752/1903) -69.0 E24-E10 N62-N75
      2 1683 1384 (N12W51 L= 34)   662     92        2 (1655/1335-1708/1420)  59.0 W47-W54 N09-N14
      3  474 1383 (N30E33 L=310)   534     75        2 ( 449/1350- 499/1417)  45.0 E35-E31 N27-N32
      4  890 1371 (N23E03 L=340)   506    156        1 ( 812/1332- 959/1401) -36.9 E08-W00 N19-N25
      5  173 1154 (N20E63 L=280)   436     79        1 ( 157/1123- 192/1198)  76.0 E64-E59 N17-N22
      6 1780 1155 (S03W53 L= 36)   352     44        0 (1752/1134-1804/1177)  21.8 W50-W56 S03-S01
      7  928 1023 (N01E06 L=338)   237     62        0 ( 903/ 993- 951/1051)  33.7 E07-E03 N00-N02
      8 1788  816 (S23W52 L= 36)   459     78        2 (1757/ 790-1834/ 833)   0.0 W49-W57 S24-S22
      9 1706  650 (S33W46 L= 29)   472     30        1 (1683/ 630-1731/ 670)  26.6 W43-W49 S34-S31
     10 1370  527 (S36W17 L=360)  2331    483        6 (1156/ 399-1538/ 636)  17.9 E01-W30 S42-S30
     11  262  592 (S15E66 L=277)   666     78        0 ( 242/ 561- 290/ 622)  18.4 E70-E60 S16-S13
     12  319  475 (S23E68 L=276)  1575    175        3 ( 264/ 409- 389/ 544) -77.5 E72-E61 S27-S17
     13  683  395 (S34E37 L=306)   345     79        0 ( 641/ 383- 730/ 409) -18.4 E40-E33 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