Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  607 1806 (N31E56 L=123)   940    171        3 ( 581/1774- 638/1845) -50.2 E59-E51 N28-N34
      2 1278 1678 (N40E03 L=175)   545     79        0 (1243/1643-1312/1717) -29.7 E07-W00 N38-N42
      3  647 1643 (N20E42 L=137)   337     50        0 ( 615/1630- 681/1658)  14.0 E43-E39 N18-N21
      4  720 1519 (N14E31 L=147)   491    113        0 ( 696/1468- 751/1576) -45.0 E35-E28 N10-N16
      5  377 1006 (S23E41 L=138)   347    125        0 ( 334/ 973- 427/1027)  33.7 E43-E36 S25-S21
      6 1466 1003 (N03W26 L=204)   530    162        1 (1397/ 984-1549/1020)  21.8 W21-W31 N01-N05
      7 1582  882 (N00W36 L=215)   309     47        1 (1546/ 863-1607/ 917)  56.3 W34-W37 S01-N02
      8  713  830 (S26E14 L=165)   582    200        0 ( 615/ 799- 802/ 865)  32.5 E20-E08 S29-S21
      9 1604  777 (S04W41 L=220)   794    116        0 (1582/ 722-1624/ 849) -54.5 W38-W44 S07-N00
     10 1344  689 (S17W28 L=207)  1726    362        3 (1168/ 635-1510/ 772)  37.9 W17-W35 S22-S07
     11 1546  699 (S10W40 L=219)   383     98        0 (1524/ 647-1562/ 739) -38.7 W37-W42 S12-S08
     12 1020  451 (S40W19 L=197)  1803    349        4 ( 855/ 422-1191/ 484)  16.3 W06-W30 S44-S35
     13 1533  442 (S24W52 L=231)   455    120        0 (1475/ 412-1578/ 478)  50.2 W48-W54 S26-S20
     14 1558  390 (S25W58 L=236)  1440    283        0 (1449/ 363-1656/ 425)  31.0 W49-W64 S29-S20
  

    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