Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1356 1730 (N55W25 L= 79)   460     98        0 (1304/1709-1403/1748) -10.3 W19-W30 N52-N56
      2  458 1579 (N31E53 L=  0)   837    145        1 ( 440/1512- 482/1638) -48.4 E59-E49 N26-N35
      3  762 1467 (N27E23 L= 31)   860    200        0 ( 728/1386- 791/1560) -59.7 E27-E19 N21-N33
      4 1636 1367 (N28W43 L= 97)  3409    639        4 (1401/1173-1806/1526) -29.9 W23-W57 N16-N38
      5  680 1388 (N21E27 L= 27)   355    109        1 ( 640/1369- 739/1411)   0.0 E30-E22 N20-N22
      6 1673 1192 (N17W44 L= 98)   428    151        0 (1643/1119-1690/1245) -76.0 W41-W45 N12-N20
      7 1530 1164 (N14W32 L= 86)   501    141        0 (1495/1128-1575/1213) -39.8 W29-W35 N12-N17
      8  209  948 (S11E61 L=353)   649     86        0 ( 175/ 920- 248/ 973) -11.3 E65-E55 S12-S09
      9  618  800 (S16E24 L= 29)   302     87        0 ( 588/ 777- 660/ 822)  31.0 E26-E21 S17-S14
     10  587  731 (S21E27 L= 27)   279     64        0 ( 573/ 692- 603/ 763) -78.7 E27-E25 S23-S18
     11 1605  644 (S17W45 L= 99)  1019    219        0 (1520/ 578-1680/ 719)  45.0 W39-W49 S22-S11
     12  685  641 (S26E20 L= 34)   256     47        0 ( 661/ 620- 713/ 661) -26.6 E21-E17 S26-S24
     13 1423  491 (S29W35 L= 89)   442     87        1 (1380/ 473-1472/ 517)  26.6 W31-W38 S30-S27
  

    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