Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1549 1648 (N30W51 L= 92)  1210    153        1 (1521/1573-1580/1723)  57.5 W47-W57 N24-N35
      2 1288 1592 (N31W27 L= 68)   694    159        0 (1204/1574-1362/1607) -20.0 W21-W32 N28-N32
      3 1689 1520 (N20W57 L= 97)   467     90        1 (1651/1485-1732/1545) -33.7 W53-W59 N17-N21
      4 1788 1478 (N16W65 L=106)   566     74        1 (1764/1443-1805/1514)  39.8 W62-W70 N13-N18
      5 1860 1357 (N08W68 L=109)   515     69        0 (1839/1327-1875/1396)  26.6 W63-W72 N06-N10
      6  732 1217 (N15E15 L= 26)   315    112        0 ( 694/1175- 773/1260) -56.3 E16-E12 N12-N18
      7 1312 1053 (S02W17 L= 58)   882    279        3 (1248/ 947-1411/1119)  32.5 W12-W23 S07-N00
      8  840  923 (S03E12 L= 29)  1601    410        2 ( 705/ 738- 932/1035) -63.4 E19-E09 S15-N04
      9 1458  938 (S11W25 L= 66)   619    202        0 (1430/ 847-1481/1026)  68.2 W22-W27 S15-S05
     10 1633  988 (S10W38 L= 79)   646    139        3 (1569/ 950-1698/1026) -12.5 W33-W42 S13-S07
     11  717  816 (S08E21 L= 20)   307    119        1 ( 676/ 780- 749/ 857)  21.8 E23-E18 S09-S05
     12  186  716 (S06E67 L=334)  1056     90        4 ( 154/ 682- 222/ 754)   4.8 E73-E61 S08-S04
     13  427  720 (S10E43 L=358)   249     63        1 ( 399/ 693- 454/ 745)   0.0 E45-E40 S10-S08
     14  949  515 (S30E13 L= 28)  2367    488        6 ( 846/ 346-1012/ 740)  53.1 E25-E07 S39-S15
     15 1358  659 (S26W16 L= 57)  1188    298        2 (1219/ 608-1479/ 728)   6.0 W06-W25 S28-S23
     16  339  680 (S11E51 L=349)   669    113        1 ( 303/ 639- 373/ 712) -59.0 E54-E47 S13-S08
     17  446  632 (S15E44 L=357)  1028    190        5 ( 390/ 577- 525/ 691)   4.8 E49-E37 S17-S11
     18  414  492 (S23E53 L=348)  2966    363        3 ( 292/ 403- 561/ 606)  10.5 E79-E36 S27-S17
     19  703  294 (S41E41 L=360)   637     72        2 ( 665/ 269- 737/ 319)  12.5 E45-E36 S43-S39
  

    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