Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1400 1735 (N55W06 L=158)  1654    181        4 (1350/1684-1451/1784) -20.0 W00-W11 N48-N59
      2 1078 1704 (N39E18 L=134)   700    112        2 (1020/1675-1137/1730)   0.0 E23-E13 N37-N40
      3  757 1537 (N19E31 L=121)  1242    246        4 ( 709/1457- 822/1658) -36.3 E39-E23 N14-N26
      4 1537 1606 (N48W22 L=174)   587     77        1 (1500/1585-1579/1627)   6.3 W17-W26 N46-N49
      5  321 1535 (N09E67 L= 85)  1838    195        2 ( 261/1466- 356/1609) -63.4 E74-E62 N04-N14
      6  896 1376 (N13E16 L=136)   601    202        1 ( 840/1320- 963/1476)  80.5 E18-E15 N08-N20
      7 1519 1231 (N21W25 L=177)   330     82        1 (1479/1212-1563/1249)   8.1 W21-W28 N19-N21
      8 1800 1118 (N23W51 L=203)   838    124        0 (1745/1091-1845/1148)   5.2 W44-W56 N21-N25
      9  560  875 (S24E25 L=127)   326    129        0 ( 518/ 855- 618/ 906)  15.9 E28-E21 S25-S21
     10  656  832 (S24E17 L=135)   205    101        0 ( 606/ 809- 695/ 858)  45.0 E20-E15 S26-S21
     11 1314  721 (S13W25 L=177)   946    238        2 (1273/ 609-1349/ 832) -77.9 W22-W27 S20-S06
     12 1526  625 (S13W43 L=195)   434     62        1 (1496/ 597-1561/ 646)  63.4 W39-W44 S14-S10
     13  734  595 (S37E07 L=145)   338     74        1 ( 696/ 570- 766/ 620)  45.0 E09-E05 S38-S34
     14  860  336 (S52W13 L=165)   347     57        1 ( 837/ 309- 885/ 366) -68.2 W11-W14 S53-S48
  

    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