Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1537 1534 (N29W48 L= 62)   850    234        0 (1470/1462-1609/1566)   0.0 W39-W53 N25-N31
      2 1164 1439 (N30W16 L= 30)   613    257        0 (1142/1341-1207/1542)  85.9 W13-W19 N22-N36
      3 1636 1410 (N19W51 L= 65)   523    143        0 (1606/1357-1670/1481)  83.7 W49-W52 N15-N24
      4  434 1289 (N29E40 L=334)  1682    359        2 ( 398/1144- 504/1442) -63.4 E45-E33 N19-N39
      5 1833 1360 (N12W71 L= 85)   679     82        1 (1819/1324-1851/1394)  78.7 W68-W75 N09-N14
      6  374 1044 (N14E44 L=330)   282     54        0 ( 358/1013- 387/1072)  56.3 E45-E43 N12-N15
      7 1541  992 (S03W32 L= 46)   404    121        1 (1513/ 940-1581/1042)  51.3 W30-W35 S06-N00
      8 1315  971 (S01W17 L= 31)   205     59        2 (1284/ 956-1348/ 987) -14.0 W15-W19 S02-N00
      9 1749  860 (S16W49 L= 63)   619     62        1 (1719/ 833-1775/ 889)  21.8 W45-W51 S17-S14
     10  188  780 (S02E69 L=305)   718    112        2 ( 160/ 731- 222/ 811)  18.4 E77-E62 S05-N00
     11  640  559 (S19E32 L=342)   349     95        1 ( 611/ 538- 688/ 587) -26.6 E34-E29 S20-S16
     12  579  510 (S21E39 L=335)   276     89        0 ( 554/ 481- 619/ 525)   0.0 E41-E35 S23-S20
     13  970  490 (S27E11 L=  3)   357    149        1 ( 906/ 474-1041/ 515)   0.0 E15-E06 S28-S26
     14  607  386 (S31E43 L=331)   361     81        0 ( 588/ 346- 634/ 419) -90.0 E43-E41 S34-S28
  

    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