logo kso logo uni graz

20130807 - Filament data for 09 UTC
Available data for 20130807: »05 UTC   »06 UTC   »07 UTC   »08 UTC   »09 UTC   »10 UTC   »11 UTC   »12 UTC   »13 UTC   »14 UTC  
Click on image to open sensitive map!
 
  Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  618 1439 (N38E24 L=299)   502    129        1 ( 555/1404- 672/1465) -16.7 E29-E19 N34-N39
      2 1557 1303 (N14W40 L=  3)   704    147        2 (1527/1241-1598/1377) -90.0 W37-W41 N10-N18
      3  840 1185 (N18E09 L=314)   450    152        0 ( 817/1127- 856/1269)  77.5 E10-E07 N14-N23
      4 1172 1228 (N16W12 L=336)   270    121        0 (1108/1205-1223/1254) -29.7 W08-W15 N14-N18
      5  419 1164 (N22E40 L=283)   357     85        1 ( 382/1133- 460/1196) -29.7 E43-E36 N19-N23
      6 1693  698 (S26W43 L=  7)   717    168        0 (1644/ 632-1741/ 762)  41.2 W39-W47 S29-S22
      7  499  402 (S28E52 L=271)  2059    249        4 ( 467/ 290- 550/ 507)  29.5 E72-E41 S37-S20
      8  971  325 (S40E17 L=307)   299     64        0 ( 937/ 309-1005/ 342)   9.5 E19-E13 S41-S38
  
Download Binary data for this image

» All Filament Data of 20130807 ...
IDL code for reading binary data:
    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
to get the area of a filament:
  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 
be careful: y-origin is upper left! you can transpose the data:
  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y