Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  749 1740 (N39E30 L=237)   385     45        2 ( 725/1718- 772/1762) -14.0 E31-E27 N37-N41
      2  490 1464 (N18E40 L=227)   669    142        1 ( 440/1429- 542/1500) -24.0 E44-E35 N15-N20
      3  284  992 (S12E50 L=216)  1387    304        8 ( 221/ 930- 362/1067)  53.1 E56-E43 S15-S07
      4  384  996 (S11E42 L=225)   372     97        1 ( 370/ 936- 396/1046) -80.5 E42-E40 S14-S08
      5  751  843 (S18E15 L=251)  1820    500        4 ( 667/ 588- 888/ 978)  62.5 E21-E07 S34-S09
      6  373  907 (S17E42 L=224)   304     99        0 ( 336/ 872- 402/ 932) -31.0 E45-E40 S18-S15
      7  468  899 (S17E35 L=232)   233     51        1 ( 447/ 871- 489/ 929)  63.4 E36-E33 S18-S14
      8  120  879 (S18E69 L=198)   588     67        1 ( 108/ 843- 134/ 911) -90.0 E70-E66 S20-S16
      9  217  787 (S24E58 L=209)   678    183        0 ( 186/ 738- 271/ 823)  24.0 E61-E52 S27-S21
     10 1038  767 (S20W03 L=270)   210     52        1 (1020/ 735-1054/ 802)  76.0 W02-W04 S22-S18
     11  309  719 (S28E50 L=217)   744    228        0 ( 273/ 644- 355/ 780)  42.0 E54-E44 S33-S24
     12 1441  634 (S24W32 L=299)   695    111        1 (1377/ 594-1498/ 673)  39.8 W28-W35 S27-S21
     13 1724  614 (S21W55 L=322)   338     85        0 (1686/ 591-1760/ 636)  33.7 W52-W58 S23-S19
     14 1188  380 (S44W22 L=288)   332     85        1 (1147/ 358-1226/ 408) -14.0 W17-W25 S45-S42
  

    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