Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  966 1614 (N40E10 L=301)  5795   1053       11 ( 541/1499-1443/1761)  -6.6 E59-W28 N32-N47
      2  315 1406 (N20E57 L=253)  1589    243        5 ( 258/1347- 364/1496)  78.7 E62-E53 N15-N25
      3 1551 1436 (N31W37 L=347)   724    152        0 (1497/1372-1605/1479) -40.6 W32-W40 N27-N34
      4  502 1199 (N09E35 L=275)  2141    456        5 ( 460/1008- 554/1435) -80.9 E38-E31 S02-N23
      5 1368 1334 (N23W21 L=331)   335    144        0 (1352/1271-1379/1405)  77.5 W19-W21 N19-N28
      6 1277 1321 (N22W15 L=325)   379    169        1 (1239/1264-1324/1403) -60.9 W11-W17 N18-N27
      7 1785 1240 (N20W56 L=  6)   573    151        2 (1702/1220-1831/1272)   3.8 W46-W61 N18-N21
      8  155 1233 (N07E72 L=238)   610     91        0 ( 135/1211- 191/1263)  -4.8 E77-E65 N06-N09
      9  359 1003 (S04E45 L=266)   305     70        0 ( 327/ 980- 398/1020)  21.8 E47-E41 S05-S02
     10 1798  922 (N00W56 L=  6)   367     32        1 (1774/ 907-1821/ 939)   0.0 W53-W58 N00-N01
     11  711  744 (S17E18 L=292)   352    159        0 ( 638/ 722- 776/ 786) -16.7 E23-E13 S18-S15
     12  516  671 (S24E33 L=277)   378    109        2 ( 473/ 647- 564/ 712)  32.0 E36-E28 S25-S20
     13 1385  588 (S23W28 L=338)  2896    613        7 (1124/ 480-1632/ 707)  27.3 W11-W44 S31-S13
     14 1002  441 (S36W03 L=313)   397    107        2 ( 957/ 410-1045/ 477)  45.0 W00-W06 S38-S33
  

    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