Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1059 1776 (N44E13 L= 96)  2244    333        6 ( 933/1683-1135/1863) -27.6 E28-E05 N37-N50
      2  769 1594 (N25E27 L= 82)   870    216        1 ( 680/1513- 840/1658) -26.6 E35-E19 N20-N28
      3  204 1182 (S07E62 L= 48)  2754    352        6 ( 122/1061- 302/1309)  39.5 E72-E53 S13-N01
      4 1343 1238 (N11W16 L=125)   231     77        0 (1308/1212-1382/1263)  45.0 W13-W17 N09-N13
      5  232 1100 (S11E57 L= 52)  2319    258        7 ( 162/1036- 311/1179)  36.0 E65-E49 S15-S06
      6  597 1078 (S09E27 L= 82)   225    119        0 ( 578/1024- 628/1127) -51.3 E28-E24 S11-S06
      7  253  907 (S23E55 L= 55)  2999    385        8 ( 159/ 738- 319/1031)  35.8 E73-E47 S33-S15
      8 1005  979 (S09E00 L=109)   190     69        1 ( 967/ 963-1037/ 994)  33.7 E02-W01 S10-S07
      9  372  774 (S30E43 L= 66)  1042    230        1 ( 357/ 658- 394/ 892)  75.1 E46-E41 S37-S22
     10 1746  579 (S18W63 L=173)  1120    126        1 (1703/ 532-1795/ 632)  69.4 W60-W66 S21-S13
     11 1740  494 (S23W70 L=180)   588     54        1 (1717/ 470-1767/ 521)  -4.8 W65-W77 S23-S21
     12 1185  467 (S37W23 L=132)   294     95        0 (1173/ 422-1196/ 514) -56.3 W21-W25 S40-S34
     13 1576  366 (S34W63 L=172)  3067    212        9 (1489/ 305-1663/ 430)  34.7 W56-W73 S39-S29
  

    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