Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  469 1541 (N29E50 L=213)  1894    329        2 ( 425/1429- 544/1649) -33.7 E62-E38 N22-N36
      2 1445 1519 (N37W28 L=290)   723    168        1 (1387/1459-1499/1569) -37.9 W23-W32 N33-N41
      3 1148 1205 (N14W06 L=269)   229    112        0 (1091/1180-1194/1220)  -8.1 W02-W09 N12-N14
      4 1682  948 (N02W45 L=308)   503     89        2 (1648/ 916-1708/ 991)  63.4 W42-W47 N00-N04
      5 1244  951 (S01W14 L=277)   580    133        1 (1182/ 916-1302/ 985)  23.2 W10-W17 S03-N01
      6  262  811 (S19E56 L=207)  1852    180        4 ( 231/ 730- 302/ 890)  70.0 E59-E50 S24-S13
      7 1131  786 (S12W09 L=271)   376     95        1 (1086/ 763-1181/ 809)   0.0 W05-W11 S13-S10
      8  999  730 (S17W01 L=263)   276     97        1 ( 954/ 713-1048/ 743) -11.3 E01-W04 S18-S15
      9 1288  696 (S16W20 L=282)   533    131        3 (1228/ 672-1343/ 732) -20.6 W16-W24 S17-S14
     10  459  677 (S26E38 L=225)   610    147        0 ( 394/ 659- 528/ 693)  13.0 E44-E31 S27-S23
     11 1798  613 (S18W69 L=331)   574     51        0 (1782/ 585-1815/ 640) -63.4 W66-W71 S20-S16
     12 1255  525 (S28W21 L=284)   237     64        1 (1226/ 502-1279/ 553)  45.0 W19-W22 S30-S26
     13 1101  471 (S34W11 L=274)   283     65        1 (1063/ 452-1131/ 487) -11.3 W08-W13 S34-S32
  

    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