Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  402 1610 (N19E64 L=107)  2174    216        4 ( 328/1556- 457/1687)  84.8 E70-E57 N13-N24
      2  456 1590 (N18E56 L=115)  2119    349        5 ( 345/1497- 534/1683)  75.1 E61-E51 N10-N25
      3 1631 1657 (N58W43 L=213)   728     72        0 (1611/1619-1659/1680)  34.7 W37-W53 N53-N62
      4  590 1574 (N20E44 L=127)   293     50        1 ( 567/1553- 616/1596)  14.0 E45-E41 N18-N21
      5 1693 1317 (N32W40 L=211)   854    127        1 (1650/1251-1740/1374) -40.6 W35-W45 N28-N35
      6  839  731 (S24E04 L=166)   394    102        0 ( 818/ 682- 864/ 776) -71.6 E05-E02 S27-S21
      7  755  679 (S29E09 L=162)   239     94        0 ( 707/ 659- 799/ 700)   0.0 E12-E05 S29-S28
      8 1415  639 (S15W34 L=205)   300     72        0 (1384/ 611-1441/ 668)  63.4 W32-W35 S17-S13
      9 1280  630 (S19W26 L=196)   233     36        0 (1267/ 600-1294/ 653) -45.0 W24-W26 S21-S17
     10  304  591 (S47E54 L=117)  1244    135        2 ( 256/ 565- 365/ 635)   0.0 E61-E44 S49-S44
     11  757  387 (S50E01 L=169)   747    114        2 ( 728/ 338- 794/ 429) -54.5 E04-W01 S54-S46
     12 1129  407 (S37W26 L=196)   298     61        0 (1095/ 392-1161/ 420)  11.3 W23-W28 S38-S36
     13 1517  360 (S29W59 L=230)   752     98        1 (1485/ 332-1557/ 397)  80.5 W55-W62 S31-S25
     14  773  288 (S59W04 L=175)   911    136        2 ( 724/ 255- 833/ 317)  31.0 E01-W09 S62-S54
  

    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