Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1443 1623 (N26W48 L= 47)  1442    288        3 (1306/1583-1569/1648) -30.5 W38-W55 N20-N31
      2 1272 1467 (N23W28 L= 27)   903    314        4 (1124/1426-1414/1519) -40.9 W20-W35 N16-N29
      3 1589 1386 (N09W45 L= 44)   811    227        1 (1540/1322-1624/1452) -90.0 W39-W47 N05-N13
      4  951 1307 (N23W03 L=  3)   654    221        0 ( 858/1258-1053/1343) -45.0 E01-W08 N17-N26
      5 1782 1237 (S05W55 L= 54)   352     33        0 (1755/1219-1805/1256) -21.8 W52-W57 S06-S03
      6 1364 1222 (N07W24 L= 24)   205     54        0 (1348/1193-1376/1252)  76.0 W23-W25 N04-N08
      7 1849 1096 (S15W58 L= 57)   375     62        0 (1831/1068-1867/1124)  76.0 W55-W59 S16-S12
      8 1479  987 (S09W25 L= 24)   532    167        0 (1406/ 957-1546/1023) -11.3 W20-W30 S10-S06
      9 1170  896 (S06W05 L=  4)   233     51        1 (1147/ 869-1193/ 916)  14.0 W02-W06 S06-S04
     10 1738  662 (S38W41 L= 40)  2579    277        6 (1680/ 546-1792/ 781)  63.4 W35-W47 S45-S30
     11 1293  508 (S33W02 L=  1)  2405    295        6 (1240/ 388-1354/ 646)  58.0 E05-W06 S40-S23
     12  729  582 (S12E29 L=330)   231     94        0 ( 714/ 535- 749/ 626)  45.0 E31-E26 S15-S10
     13 1504  517 (S39W17 L= 17)  1154    252        2 (1399/ 468-1607/ 579)  -9.5 W08-W27 S41-S36
     14  776  284 (S33E42 L=317)   441     45        0 ( 755/ 256- 798/ 304)  76.0 E44-E39 S35-S31
  

    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