Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  734 1649 (N53W01 L=274)   409     60        2 ( 708/1621- 763/1673)   0.0 E02-W03 N50-N55
      2 1225 1616 (N34W34 L=307)  2227    560        5 (1043/1534-1472/1673) -45.0 W22-W45 N21-N42
      3 1634 1618 (N20W65 L=339)   483     57        0 (1601/1599-1663/1638) -53.1 W62-W67 N17-N21
      4  384 1531 (N56E43 L=231)  1636    229        4 ( 262/1474- 467/1571)   0.0 E65-E30 N51-N58
      5 1803 1459 (N06W71 L=345)   675     68        0 (1774/1432-1827/1488)   0.0 W65-W79 N04-N06
      6 1562 1434 (N13W46 L=319)   305     17        0 (1538/1417-1585/1452) -33.7 W43-W47 N11-N14
      7  869 1340 (N28E00 L=273)   273    112        0 ( 811/1317- 914/1357) -45.0 E04-W01 N25-N29
      8 1360 1318 (N13W28 L=301)   227     85        1 (1324/1289-1391/1347) -68.2 W25-W29 N10-N15
      9  700 1266 (N28E13 L=261)   247    127        1 ( 661/1216- 720/1324)  45.0 E16-E10 N26-N31
     10  348 1196 (N33E43 L=231)   975    272        1 ( 246/1124- 469/1252) -28.6 E54-E32 N26-N38
     11 1827 1071 (S15W55 L=328)   476     81        2 (1809/1025-1839/1109)  53.1 W52-W56 S17-S12
     12  956 1021 (N08E04 L=270)   286    124        0 ( 905/ 998-1014/1064)  -9.5 E06-W00 N07-N09
     13  217  928 (N19E60 L=214)   791    136        1 ( 154/ 886- 265/ 954) -19.7 E68-E54 N16-N21
     14  391  935 (N16E42 L=231)   338    122        0 ( 336/ 921- 446/ 954) -18.4 E46-E37 N14-N18
     15 1770  856 (S26W45 L=318)   565    154        1 (1724/ 777-1804/ 910)  36.9 W39-W48 S28-S22
     16 1554  676 (S29W23 L=297)  1224    230        2 (1466/ 606-1613/ 772)  21.0 W15-W29 S32-S24
     17 1802  628 (S43W51 L=324)  1659    191        2 (1729/ 590-1846/ 691)   3.8 W40-W59 S46-S38
     18 1687  614 (S39W35 L=309)   663    109        0 (1654/ 579-1712/ 667)  33.7 W31-W37 S41-S35
     19  866  598 (S14E21 L=253)   265    115        0 ( 813/ 581- 925/ 610) -15.9 E24-E17 S15-S12
     20  799  435 (S22E31 L=242)   296     46        2 ( 780/ 408- 817/ 463)  76.0 E33-E29 S24-S20
     21 1235  309 (S45E10 L=264)  1535    245        2 (1114/ 242-1330/ 384)   7.8 E22-W00 S46-S41
  

    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