Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1407 1740 (N53W44 L=206)   437     64        0 (1379/1714-1437/1763)  17.1 W37-W50 N50-N54
      2 1065 1738 (N54W05 L=167)   432     47        1 (1039/1710-1096/1759)  33.7 W01-W08 N51-N55
      3  954 1729 (N53E07 L=155)   458     74        0 ( 920/1707- 990/1744)  18.4 E10-E03 N50-N54
      4  838 1554 (N38E15 L=147)   268     70        1 ( 804/1536- 875/1572) -18.4 E17-E11 N37-N39
      5 1007 1496 (N34E01 L=161)   217     40        0 ( 983/1481-1033/1509)  26.6 E02-W00 N33-N35
      6  247 1462 (N29E73 L= 89)   786     52        1 ( 229/1437- 267/1492) -11.3 E83-E67 N28-N31
      7  508 1252 (N17E35 L=127)   626    213        1 ( 460/1186- 591/1291)  29.1 E38-E29 N13-N19
      8  218 1014 (N01E60 L=102)  1364    180        2 ( 173/ 955- 273/1092)  38.7 E66-E54 S02-N06
      9  196  713 (S18E70 L= 92)   810    109        0 ( 178/ 676- 242/ 743)  12.1 E75-E61 S20-S15
     10  553  567 (S26E35 L=127)  1511    417        0 ( 437/ 415- 687/ 711)  35.4 E53-E22 S38-S16
     11 1421  681 (S18W26 L=189)   293    135        0 (1349/ 667-1477/ 701)  12.5 W21-W30 S19-S17
     12  845  491 (S31E13 L=149)  3223    598        7 ( 630/ 350-1045/ 681)  34.4 E34-W01 S43-S17
     13 1636  513 (S31W50 L=212)   600     72        0 (1602/ 481-1668/ 550)  59.0 W47-W52 S33-S28
     14 1531  329 (S46W52 L=214)   591     57        1 (1516/ 297-1545/ 366) -32.5 W47-W58 S49-S42
  

    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