Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1590 1633 (N36W61 L=168)   822    100        1 (1563/1587-1625/1662)  15.9 W54-W68 N33-N38
      2 1348 1445 (N28W28 L=135)   244     92        0 (1316/1412-1385/1473) -59.0 W26-W29 N25-N30
      3 1735 1358 (N16W58 L=165)  1646    231        4 (1689/1266-1790/1456) -80.5 W53-W63 N10-N22
      4 1674 1334 (N16W51 L=158)   563     95        0 (1652/1296-1712/1385)  45.0 W47-W53 N13-N19
      5 1515 1276 (N15W36 L=143)   240    119        0 (1481/1230-1545/1323) -74.1 W34-W37 N11-N18
      6  301 1278 (N27E54 L= 53)  1408    273        5 ( 214/1247- 424/1309)  -4.6 E66-E41 N24-N28
      7 1750  855 (S14W50 L=157)   572     21        0 (1723/ 832-1777/ 879) -21.8 W47-W52 S15-S12
      8  768  780 (S07E18 L= 89)   499    130        2 ( 743/ 722- 794/ 845)  76.0 E20-E16 S10-S02
      9  412  757 (S06E44 L= 63)   438    154        0 ( 374/ 695- 453/ 823) -66.0 E46-E42 S10-S01
     10  414  557 (S19E51 L= 57)   771    151        1 ( 385/ 490- 455/ 606)  33.7 E56-E44 S24-S16
     11 1345  485 (S33W17 L=124)   300     75        1 (1304/ 466-1385/ 505) -15.9 W13-W20 S35-S31
     12  506  447 (S28E47 L= 60)   371     75        1 ( 474/ 428- 535/ 472)  -9.5 E50-E44 S29-S25
     13 1245  225 (S57W10 L=117)   566     95        2 (1197/ 212-1296/ 242)   0.0 W04-W16 S58-S54
  

    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