Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1201 1432 (N22W20 L= 65)   225     78        1 (1167/1410-1240/1451) -53.1 W18-W22 N19-N23
      2 1109 1396 (N22W13 L= 58)   216     77        1 (1096/1362-1131/1440)  78.7 W12-W14 N19-N24
      3  895 1393 (N27W00 L= 45)  1035    243        2 ( 793/1346-1010/1418) -30.3 E06-W06 N21-N29
      4 1056 1263 (N15W07 L= 52)   224     50        1 (1023/1246-1087/1280) -33.7 W05-W08 N14-N16
      5  336 1154 (N24E44 L=  1)  1218    263        4 ( 246/1072- 446/1231) -35.2 E53-E35 N17-N29
      6  755 1173 (N16E13 L= 32)   473    153        0 ( 693/1141- 822/1215) -49.4 E15-E09 N13-N20
      7 1638 1105 (S06W39 L= 84)   373    121        0 (1607/1068-1671/1148) -68.2 W37-W42 S08-S03
      8 1816 1016 (S16W54 L= 99)  2473    298        8 (1752/ 897-1863/1147)  66.8 W46-W59 S21-S07
      9 1709 1017 (S13W44 L= 88)   316     69        1 (1670/ 995-1737/1041)   9.5 W40-W46 S14-S11
     10  191  935 (N13E61 L=344)   403     47        0 ( 172/ 910- 207/ 964)  26.6 E64-E59 N11-N15
     11 1206  813 (S13W06 L= 51)   245     56        0 (1189/ 788-1228/ 842)  45.0 W04-W07 S15-S11
     12 1344  767 (S19W14 L= 59)   209     68        0 (1328/ 746-1369/ 794)  71.6 W12-W15 S20-S17
     13  546  744 (S04E35 L= 10)   367    102        2 ( 507/ 711- 576/ 771) -26.6 E37-E33 S06-S02
     14  443  640 (S08E46 L=359)   302     68        0 ( 429/ 602- 461/ 679)  68.2 E47-E44 S10-S05
     15  645  389 (S27E43 L=  2)  1593    275        1 ( 624/ 262- 666/ 526)  46.6 E54-E35 S36-S18
  

    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