Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  382 1592 (N12E61 L=253)  1599    282        5 ( 343/1532- 432/1670) -48.4 E66-E54 N08-N17
      2  471 1627 (N15E54 L=260)   422    130        1 ( 445/1608- 503/1656) -15.9 E58-E51 N14-N17
      3  439 1528 (N09E52 L=263)   403     84        1 ( 412/1500- 460/1555)  90.0 E53-E49 N06-N10
      4  885 1410 (N11E18 L=297)   820    248        1 ( 809/1309- 957/1509) -32.7 E25-E11 N06-N15
      5  189 1132 (S19E61 L=254)  2023    582        1 (  86/1041- 349/1193)  25.6 E71-E46 S24-S12
      6  809 1071 (S10E13 L=301)   311     86        2 ( 773/1039- 832/1116)  78.7 E14-E11 S12-S07
      7  368 1000 (S24E41 L=273)  2762    788        5 ( 145/ 923- 624/1110)  12.7 E62-E22 S31-S16
      8  801  888 (S20E09 L=305)   390     84        0 ( 752/ 854- 848/ 917)   0.0 E12-E05 S21-S19
      9 1757  867 (N05W50 L=  5)   325     65        0 (1742/ 838-1772/ 906) -76.0 W48-W52 N03-N07
     10 1316  854 (S09W21 L=335)   222     41        0 (1292/ 828-1340/ 874)  71.6 W19-W22 S10-S07
     11 1077  825 (S17W08 L=323)   203     85        0 (1029/ 792-1115/ 865) -15.9 W04-W11 S17-S15
     12 1550  711 (S09W40 L=355)  1042    260        2 (1476/ 617-1642/ 804)  75.1 W37-W43 S16-S01
     13  592  715 (S36E20 L=295)   266     77        0 ( 554/ 697- 629/ 736)   0.0 E22-E16 S36-S34
     14 1460  342 (S31W54 L=  8)  2627    567        3 (1284/ 289-1634/ 380)  20.8 W39-W69 S36-S25
  

    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