Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1109 1800 (N50W42 L= 37)   333     66        0 (1088/1778-1146/1816) -26.6 W38-W45 N48-N51
      2 1653 1557 (N16W61 L= 56)   657     79        3 (1616/1519-1680/1584) -90.0 W58-W64 N14-N18
      3 1336 1426 (N20W31 L= 25)   352    118        1 (1288/1395-1390/1457) -56.3 W28-W32 N16-N22
      4 1075 1272 (N19W10 L=  4)  2039    531        5 ( 913/1123-1277/1441) -68.6 W04-W16 N05-N33
      5 1478 1325 (N10W35 L= 30)   722    217        4 (1447/1220-1515/1401)  41.6 W29-W40 N05-N14
      6  396 1198 (N32E38 L=317)   753    186        2 ( 310/1170- 481/1239) -25.0 E46-E30 N29-N36
      7  270  918 (N18E54 L=301)  2186    389        9 ( 112/ 863- 454/ 981) -14.7 E76-E38 N11-N23
      8  766  906 (N07E18 L=337)   217     64        1 ( 740/ 884- 796/ 932)  14.0 E19-E15 N05-N07
      9 1178  805 (S09W03 L=357)   398    159        1 (1123/ 753-1249/ 849)   7.1 E01-W07 S10-S08
     10 1772  696 (S36W44 L= 39)   507    103        0 (1734/ 668-1803/ 725)   8.1 W39-W48 S37-S34
     11 1552  454 (S45W20 L= 15)   608     71        1 (1520/ 425-1579/ 484)  21.8 W17-W23 S47-S41
     12 1477  389 (S48W12 L=  7)   472     65        0 (1449/ 364-1507/ 419) -54.5 W10-W15 S50-S43
     13 1411  326 (S50W05 L=359)   571     68        1 (1381/ 296-1443/ 359)  15.9 W01-W08 S52-S46
     14  745  253 (S33E47 L=307)   491     75        1 ( 716/ 224- 776/ 285) -90.0 E49-E44 S36-S30
  

    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