Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1495 1780 (N32W62 L= 97)   949    274        1 (1456/1744-1543/1808)  -4.8 W56-W68 N30-N33
      2 1656 1491 (N12W56 L= 91)   554     62        2 (1625/1465-1686/1525) -53.1 W53-W58 N10-N14
      3 1196 1325 (N18W18 L= 54)   711    284        0 (1074/1302-1351/1347) -29.4 W11-W27 N12-N21
      4 1594 1263 (N03W40 L= 76)   829    257        2 (1496/1210-1683/1318)   0.0 W32-W49 N01-N04
      5 1829 1107 (S14W55 L= 90)   630    120        3 (1812/1049-1855/1164)  50.2 W52-W57 S16-S10
      6  731 1060 (N16E16 L= 20)   236    103        0 ( 684/1035- 783/1078) -38.7 E18-E13 N13-N17
      7 1673 1025 (S13W39 L= 74)   377     77        2 (1647/ 993-1700/1058) -78.7 W36-W40 S15-S10
      8 1274  932 (S06W11 L= 47)   912    336        1 (1197/ 867-1422/1051) -50.7 W08-W19 S11-N02
      9  339  911 (N16E46 L=349)   305     71        0 ( 312/ 885- 369/ 937) -63.4 E48-E44 N14-N18
     10 1783  813 (S29W44 L= 79)  1935    289        1 (1680/ 746-1841/ 912)   6.7 W34-W51 S32-S24
     11 1397  669 (S25W12 L= 47)   962    285        2 (1365/ 517-1430/ 784)  56.3 W06-W16 S33-S18
     12  327  705 (N05E54 L=341)   729    185        1 ( 263/ 664- 396/ 746) -41.2 E59-E49 N00-N07
     13  291  476 (S09E73 L=323)  1170    174        3 ( 265/ 451- 313/ 506) -63.4 E77-E69 S10-S06
     14 1066  384 (S33E18 L= 18)   350     72        1 (1043/ 356-1085/ 414)  76.0 E19-E15 S34-S30
     15  492  338 (S21E59 L=336)   695    175        2 ( 472/ 302- 514/ 383)  26.6 E64-E54 S23-S17
  

    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