logo kso logo uni graz

20130821 - Filament data for 07 UTC
Available data for 20130821: »05 UTC   »06 UTC   »07 UTC   »08 UTC   »09 UTC   »10 UTC   »11 UTC   »12 UTC   »13 UTC   »14 UTC   »15 UTC  
Click on image to open sensitive map!
 
  Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  641 1287 (N30E21 L=119)   298    129        0 ( 631/1229- 655/1358) -90.0 E21-E19 N25-N34
      2 1827 1305 (N04W65 L=205)   530     64        0 (1804/1278-1843/1340)  14.0 W61-W69 N02-N05
      3 1869 1111 (S08W63 L=203)  1003    117        2 (1839/1054-1894/1168) -76.0 W60-W66 S11-S03
      4 1776  850 (S20W49 L=189)   577     92        1 (1745/ 812-1802/ 900)  38.7 W45-W52 S22-S17
      5 1602  814 (S18W33 L=173)   618    183        0 (1549/ 782-1658/ 862)   7.1 W29-W37 S19-S14
      6 1289  730 (S16W10 L=150)   262     96        1 (1270/ 689-1308/ 769)  45.0 W08-W12 S18-S13
      7  854  593 (S16E19 L=121)   666    256        0 ( 810/ 507- 949/ 641)  35.0 E22-E12 S21-S13
      8 1393  437 (S39W14 L=153)   471     86        1 (1353/ 411-1427/ 463)  26.6 W10-W16 S41-S37
  
Download Binary data for this image

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