logo kso logo uni graz

20130620 - Filament data for 09 UTC
Available data for 20130620: »06 UTC   »07 UTC   »08 UTC   »09 UTC   »10 UTC   »11 UTC   »12 UTC   »13 UTC   »14 UTC   »15 UTC   »16 UTC  
Click on image to open sensitive map!
 
  Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  418 1563 (N30E57 L=182)   731     67        1 ( 386/1539- 462/1588)   0.0 E62-E51 N28-N31
      2 1677 1435 (N33W49 L=288)  1006    146        1 (1639/1365-1705/1495)  77.5 W46-W52 N28-N37
      3  553 1272 (N13E33 L=205)   288    117        1 ( 536/1222- 587/1317) -50.2 E35-E30 N09-N15
      4 1643  804 (S07W44 L=283)   903    190        3 (1610/ 730-1664/ 900) -68.2 W40-W46 S11-S01
      5  550  832 (S14E29 L=209)   541    175        0 ( 470/ 800- 629/ 859)  -4.8 E35-E23 S15-S13
      6 1163  585 (S25W13 L=252)   243    102        0 (1114/ 571-1207/ 603)   0.0 W09-W16 S25-S23
      7 1369  523 (S27W30 L=268)   278     31        0 (1342/ 510-1394/ 539)  14.0 W27-W31 S28-S26
      8  390  466 (S42E53 L=185)   587     66        0 ( 373/ 431- 412/ 496)  28.6 E59-E48 S45-S39
  
Download Binary data for this image

» All Filament Data of 20130620 ...
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