Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1059 1844 (N54W41 L=348)  2682    336        4 ( 927/1770-1195/1910)  -1.5 W22-W63 N50-N56
      2 1139 1663 (N38W29 L=336)   294     26        1 (1117/1643-1164/1683) -45.0 W26-W30 N37-N39
      3  431 1396 (N41E33 L=274)   829    282        3 ( 299/1368- 554/1441)  -6.1 E49-E21 N38-N44
      4  982 1367 (N25W07 L=314)  1973    452        3 ( 753/1325-1180/1394) -32.0 E07-W17 N17-N32
      5  650 1246 (N26E17 L=290)   409    126        1 ( 632/1187- 685/1304)  50.2 E18-E13 N22-N28
      6  786 1241 (N22E09 L=299)   367    139        0 ( 714/1211- 845/1271) -40.6 E12-E05 N19-N25
      7 1741 1106 (S10W47 L=355)  1488    259        1 (1691/ 994-1776/1231)  70.3 W44-W51 S16-S02
      8  771 1045 (N12E14 L=293)   481    191        0 ( 707/ 962- 821/1106) -74.7 E16-E12 N05-N16
      9  851  635 (S13E20 L=287)   406    157        0 ( 802/ 588- 898/ 697)  29.1 E24-E15 S15-S10
     10 1610  598 (S37W29 L=336)   875    143        0 (1543/ 566-1668/ 643)   4.8 W22-W34 S38-S35
     11 1331  610 (S28W08 L=315)   839    208        1 (1247/ 569-1423/ 642)  -4.4 W01-W14 S29-S25
     12 1201  458 (S34E05 L=302)   495    169        0 (1169/ 382-1231/ 518)  45.0 E09-E01 S38-S30
     13  328  421 (S16E75 L=233)   836     69        1 ( 298/ 390- 353/ 447) -45.0 E78-E70 S17-S13
     14  956  338 (S35E26 L=281)   413     72        1 ( 932/ 315- 985/ 370)  78.7 E28-E23 S37-S32
     15  777  255 (S37E45 L=263)  1776    259        4 ( 736/ 154- 830/ 361)  29.1 E59-E32 S45-S29
  

    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