Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  588 1748 (N26E55 L=142)  3477    479        7 ( 457/1614- 721/1843) -87.1 E64-E42 N15-N36
      2 1015 1770 (N39E25 L=171)   755    163        1 ( 964/1702-1043/1823) -30.3 E31-E19 N34-N42
      3 1592 1485 (N37W26 L=222)   432    106        0 (1575/1431-1607/1537) -69.4 W23-W27 N32-N40
      4 1465 1463 (N31W16 L=212)   244     74        1 (1446/1432-1476/1506) -78.7 W14-W16 N28-N33
      5 1288 1323 (N16W07 L=204)   291     97        1 (1259/1288-1330/1358)  59.0 W06-W09 N14-N19
      6  510 1236 (S07E36 L=160)   321     74        0 ( 496/1202- 530/1276) -68.2 E37-E34 S09-S04
      7 1346 1234 (N13W13 L=209)   251     63        1 (1318/1211-1379/1251)   0.0 W11-W15 N11-N13
      8  139 1189 (S15E72 L=124)  1228    101        4 ( 110/1140- 165/1227) -26.6 E81-E68 S18-S12
      9  241 1058 (S22E56 L=141)  1494    298        3 ( 202/ 937- 301/1171)  75.1 E60-E50 S29-S14
     10  320 1014 (S23E47 L=149)   737    131        3 ( 290/ 974- 362/1066) -29.7 E49-E42 S25-S20
     11  516  955 (S23E30 L=166)   254     93        0 ( 487/ 909- 532/ 995) -45.0 E32-E27 S25-S21
     12 1262  927 (S07W16 L=212)   289     50        2 (1241/ 895-1292/ 953)  76.0 W14-W17 S08-S04
     13 1460  728 (S12W34 L=230)   727    221        1 (1363/ 676-1553/ 768)  45.0 W29-W38 S17-S06
     14 1681  644 (S09W53 L=250)   671    172        2 (1628/ 593-1737/ 674)  45.0 W49-W58 S13-S06
     15 1124  592 (S29W19 L=215)   507    209        0 (1020/ 570-1206/ 616)  22.6 W11-W23 S31-S25
     16 1440  446 (S27W47 L=243)  1645    314        4 (1288/ 388-1573/ 491)  15.6 W34-W61 S31-S24
     17 1076  404 (S42W25 L=221)  1150    182        1 ( 986/ 377-1171/ 434)  32.5 W18-W30 S44-S36
     18  524  375 (S63E27 L=170)  1586    226        1 ( 430/ 334- 622/ 419)   1.9 E42-E12 S66-S59
     19 1033  214 (S56W40 L=236)   424     53        1 (1005/ 197-1065/ 236)   7.1 W36-W44 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