Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1337 1759 (N38W50 L=288)  2131    288        5 (1209/1724-1484/1787) -22.2 W38-W62 N32-N42
      2 1626 1588 (N20W60 L=297)  5056    720        5 (1481/1441-1756/1689) -76.0 W51-W74 N08-N28
      3  805 1386 (N30E04 L=233)   500    214        0 ( 723/1354- 887/1412) -29.1 E10-W00 N26-N31
      4  529 1370 (N36E25 L=213)   456    167        0 ( 464/1338- 607/1401)  -4.8 E30-E18 N34-N36
      5 1126 1201 (N11W10 L=248)   341    111        0 (1088/1148-1160/1253) -81.9 W08-W11 N07-N14
      6  176  794 (N08E68 L=170)  1194    235        0 ( 135/ 692- 210/ 906) -85.6 E71-E65 N02-N15
      7  757  726 (S07E22 L=215)   470    189        0 ( 704/ 638- 785/ 796) -90.0 E24-E21 S12-S01
      8 1750  728 (S33W44 L=281)   605    124        1 (1720/ 688-1785/ 791) -56.3 W40-W48 S36-S27
      9 1580  661 (S32W27 L=265)   656    146        1 (1528/ 609-1624/ 730)  45.0 W22-W31 S34-S28
     10  615  661 (S08E33 L=204)   395    147        1 ( 527/ 645- 679/ 677) -16.7 E39-E29 S09-S05
     11 1031  582 (S22E11 L=227)   625    164        0 ( 986/ 522-1055/ 661)  41.2 E15-E07 S24-S17
     12 1458  466 (S42W15 L=253)  1110    214        1 (1358/ 409-1522/ 527)  10.6 W05-W21 S44-S39
     13 1052  209 (S50E28 L=209)  1671    272        2 ( 921/ 168-1162/ 264)  -2.2 E42-E15 S52-S47
  

    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