Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  877 1802 (N38E36 L=213)   376     75        0 ( 861/1765- 893/1841) -54.5 E39-E33 N34-N41
      2  936 1664 (N29E24 L=225)   474    126        0 ( 900/1624- 965/1715) -74.1 E26-E21 N25-N32
      3  446 1615 (N15E56 L=192)   492     65        1 ( 423/1585- 478/1640)  36.9 E58-E53 N13-N17
      4  977 1613 (N26E19 L=230)   350    120        0 ( 921/1596-1029/1632)  26.6 E22-E16 N24-N28
      5  573 1534 (N12E41 L=207)   582    185        2 ( 509/1495- 642/1571)  -5.2 E46-E35 N10-N14
      6 1706 1352 (N31W37 L=286)  2138    445        0 (1563/1209-1852/1528) -20.1 W23-W54 N26-N39
      7  680 1044 (S14E20 L=228)   665    226        1 ( 610/ 964- 770/1098)  51.3 E23-E15 S19-S09
      8  249  999 (S25E54 L=194)   498     91        1 ( 229/ 964- 286/1041)  59.0 E56-E49 S26-S21
      9  443  868 (S29E35 L=214)   578    186        2 ( 349/ 841- 523/ 904)  21.8 E43-E28 S31-S25
     10 1366  794 (S11W26 L=274)   439     94        0 (1309/ 778-1415/ 811)  18.4 W22-W28 S13-S09
     11  694  718 (S33E13 L=235)  2165    578        5 ( 479/ 612- 954/ 779)  31.2 E30-W03 S44-S24
     12 1433  451 (S28W45 L=294)   305    100        0 (1382/ 443-1479/ 461)  29.7 W41-W48 S29-S25
     13 1652  424 (S22W67 L=315)   752    124        0 (1592/ 398-1702/ 460)  40.6 W62-W69 S24-S18
     14 1440  281 (S37W62 L=311)   755     75        1 (1408/ 262-1478/ 311)  45.0 W57-W66 S38-S34
  

    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