Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1608 1673 (N31W62 L=293)  1252    144        4 (1539/1646-1676/1694)  -5.4 W54-W76 N28-N32
      2 1128 1593 (N34W18 L=249)  1528    436        2 ( 973/1532-1306/1631) -12.3 W05-W28 N28-N37
      3 1545 1559 (N25W47 L=278)   524    129        0 (1498/1500-1595/1599) -66.8 W44-W48 N20-N27
      4 1743 1504 (N18W64 L=295)   958    152        0 (1688/1462-1809/1549) -37.9 W59-W70 N14-N21
      5  636 1495 (N36E20 L=212)   658    129        1 ( 571/1451- 702/1526) -24.4 E25-E14 N32-N38
      6  445 1492 (N39E37 L=194)   575     76        0 ( 417/1459- 481/1517)  18.4 E39-E33 N36-N40
      7 1174 1389 (N20W15 L=246)   195     55        0 (1142/1376-1206/1399) -14.0 W13-W17 N19-N20
      8  503 1151 (N16E31 L=200)   644    121        1 ( 456/1098- 549/1198) -49.4 E34-E28 N11-N18
      9 1792 1068 (S08W53 L=284)   573    100        1 (1744/1028-1821/1101) -39.8 W48-W55 S10-S05
     10  180 1008 (N12E61 L=170)   527     75        0 ( 147/ 990- 221/1035) -16.7 E66-E56 N10-N13
     11 1836  772 (S27W59 L=290)   776    148        1 (1775/ 705-1881/ 817)  24.4 W52-W65 S30-S24
     12  481  563 (S19E45 L=186)   309     81        0 ( 452/ 529- 505/ 596) -78.7 E46-E43 S21-S16
     13 1123  301 (S49E07 L=224)   783    204        0 (1049/ 265-1201/ 372)  15.9 E14-W00 S51-S44
  

    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