Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1197 1478 (N32W07 L=287)   346    106        0 (1181/1426-1213/1527) -66.8 W05-W08 N28-N35
      2 1423 1236 (N18W24 L=304)   553    231        1 (1343/1156-1495/1285) -32.5 W18-W29 N13-N20
      3 1782 1093 (N12W54 L=334)   991    236        2 (1725/ 999-1816/1193) -56.3 W48-W58 N06-N18
      4  190 1004 (S09E63 L=217)   743    123        0 ( 133/ 974- 238/1022)   0.0 E72-E56 S10-S07
      5  144  927 (S14E71 L=209)  1009     81        1 ( 111/ 885- 180/ 957) -13.0 E79-E65 S16-S12
      6  260  851 (S18E55 L=225)   432     82        0 ( 246/ 814- 276/ 899) -78.7 E56-E53 S19-S14
      7  432  864 (S15E38 L=242)   400     63        3 ( 396/ 835- 456/ 898)  76.0 E41-E36 S16-S12
      8  990  859 (S09E00 L=280)   271     72        1 ( 959/ 831-1022/ 893)  78.7 E02-W01 S11-S06
      9  490  814 (S17E34 L=246)   307     87        0 ( 477/ 766- 503/ 854)  80.5 E34-E32 S20-S14
     10  331  753 (S23E48 L=232)  1618    236        5 ( 253/ 709- 423/ 804)  -3.2 E57-E39 S26-S19
     11 1686  578 (S20W56 L=336)   425     65        0 (1666/ 546-1707/ 609)  90.0 W54-W57 S22-S18
     12 1605  422 (S32W58 L=338)   626     91        1 (1561/ 388-1636/ 441)  -8.7 W51-W64 S34-S30
     13 1378  353 (S40W39 L=319)   397     63        2 (1363/ 313-1394/ 383) -35.5 W36-W43 S42-S37
  

    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