Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  841 1673 (N34E30 L=181)  2667    609        7 ( 640/1567-1032/1775)  -6.0 E51-E13 N30-N38
      2 1119 1553 (N32E06 L=204)   464     97        0 (1079/1520-1171/1575)  56.3 E08-E03 N29-N35
      3  588 1426 (N13E36 L=174)   297     69        0 ( 556/1401- 608/1461)  78.7 E37-E35 N10-N15
      4  449 1413 (N09E46 L=164)   403     79        1 ( 427/1391- 478/1444) -36.9 E48-E43 N08-N11
      5  344 1383 (N06E55 L=156)   506    131        1 ( 302/1358- 381/1407)   6.3 E59-E50 N04-N06
      6  391 1314 (N03E48 L=163)   319    141       -1 ( 369/1266- 414/1357) -33.7 E50-E44 N00-N04
      7  243 1329 (N01E64 L=147)   440     53        1 ( 223/1308- 265/1346)   0.0 E66-E60 N00-N01
      8 1763 1006 (N13W50 L=260)  1429    262        4 (1700/ 898-1801/1083) -36.0 W42-W54 N06-N16
      9  734 1006 (S09E17 L=194)   511    156        1 ( 651/ 979- 800/1040)  32.0 E21-E13 S10-S05
     10  250 1008 (S18E53 L=157)   404     95        0 ( 218/ 985- 282/1026)  18.4 E56-E50 S19-S16
     11 1520  710 (S10W38 L=248)   275     85        0 (1504/ 676-1546/ 751) -36.9 W36-W41 S11-S07
     12  704  666 (S30E13 L=197)   323    123        1 ( 644/ 642- 759/ 689)   0.0 E17-E08 S30-S28
     13  959  634 (S26W05 L=215)   413     85        1 ( 908/ 614-1001/ 664)  18.4 W01-W07 S27-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