Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1601 1575 (N27W51 L=315)  1497    289        4 (1513/1471-1706/1663) -65.0 W47-W57 N18-N33
      2 1154 1522 (N28W15 L=278)   666    176        1 (1093/1441-1200/1582) -70.0 W12-W16 N22-N33
      3 1611 1481 (N20W47 L=311)   325     47        1 (1581/1464-1640/1496) -26.6 W45-W49 N19-N21
      4  725 1435 (N28E15 L=248)   603    164        0 ( 660/1391- 797/1481) -37.9 E19-E10 N24-N31
      5 1803 1063 (S07W54 L=317)   346     28        0 (1783/1043-1829/1080)  11.3 W52-W57 S07-S05
      6 1825  906 (S16W56 L=320)   443     70        0 (1805/ 874-1857/ 932)  21.8 W54-W60 S18-S14
      7 1694  623 (S33W47 L=310)   724    147        0 (1658/ 585-1733/ 671)  51.3 W43-W51 S35-S29
      8 1783  625 (S34W58 L=321)   437     63        1 (1743/ 609-1815/ 648)   5.7 W52-W62 S34-S32
      9 1364  559 (S33W18 L=281)   607    123        1 (1333/ 512-1385/ 622)  82.9 W15-W19 S36-S28
     10 1484  525 (S37W28 L=291)   256     71        0 (1451/ 503-1513/ 555)  31.0 W25-W30 S38-S35
     11 1051  436 (S38E06 L=257)   330     82        0 (1017/ 409-1075/ 478)  31.0 E09-E03 S39-S35
     12 1272  455 (S40W11 L=274)   305     72        0 (1237/ 439-1310/ 472)   0.0 W08-W13 S40-S38
     13  796  420 (S36E26 L=238)   425     89        0 ( 766/ 390- 830/ 456) -71.6 E26-E23 S38-S32
     14  867  231 (S52E31 L=232)   415     57        0 ( 836/ 216- 897/ 245)   7.1 E34-E26 S53-S50
  

    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