Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  594 1699 (N58E18 L=265)  1464    194        3 ( 515/1641- 675/1755)  14.7 E28-E07 N55-N61
      2  415 1621 (N57E43 L=240)   607     62        2 ( 390/1587- 437/1648)  90.0 E46-E38 N53-N59
      3  327 1593 (N57E59 L=224)   811    102        0 ( 279/1573- 378/1611)   0.0 E74-E48 N55-N57
      4 1326 1567 (N27W34 L=317)   388     84        1 (1286/1544-1367/1587)   0.0 W30-W37 N25-N28
      5 1391 1492 (N21W35 L=318)   818    175        3 (1314/1457-1454/1524) -49.4 W30-W39 N17-N24
      6  844 1439 (N31E01 L=282)   258     70        1 ( 821/1412- 872/1477) -78.7 E03-W00 N29-N34
      7  257 1355 (N40E54 L=229)   576    101        0 ( 220/1335- 305/1376)  -9.5 E61-E48 N38-N41
      8 1703 1030 (S12W43 L=326)   388     75        0 (1688/ 997-1718/1069)  63.4 W41-W44 S14-S10
      9  258  765 (N04E58 L=225)   565    106        0 ( 235/ 712- 287/ 815) -80.5 E60-E56 N00-N06
     10  539  634 (S09E39 L=244)   362     94        1 ( 511/ 587- 568/ 684)  35.5 E42-E35 S11-S06
     11 1711  651 (S36W41 L=324)   382     31        0 (1691/ 629-1730/ 673)  71.6 W39-W43 S37-S34
     12 1061  432 (S33E13 L=270)  1376    400        0 ( 912/ 336-1198/ 569)  17.1 E26-W00 S37-S27
     13 1255  337 (S46E03 L=280)   344     93        0 (1209/ 315-1300/ 359)   0.0 E07-W01 S47-S45
     14 1393  214 (S66W08 L=291)   661     68        0 (1362/ 195-1428/ 232) -11.3 W03-W13 S69-S61
  

    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