Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1137 1513 (N28W19 L=334)   322     70        0 (1100/1494-1175/1533) -45.0 W17-W21 N26-N30
      2  593 1399 (N34E20 L=295)   250     77        0 ( 559/1378- 633/1414)   0.0 E22-E16 N33-N34
      3 1851 1384 (N04W69 L= 24)  1131     96        1 (1810/1344-1901/1410)   0.0 W62-W83 N02-N04
      4 1526 1368 (N11W38 L=354)   438    110        1 (1471/1349-1583/1390) -29.7 W35-W42 N08-N13
      5 1789 1205 (S04W54 L=  9)   942    247        3 (1742/1107-1848/1324)  39.8 W47-W63 S09-N01
      6  641 1167 (N19E20 L=295)   236     95        0 ( 603/1146- 672/1197)   0.0 E22-E17 N17-N19
      7 1729 1032 (S13W45 L=360)   378     75        0 (1701/1001-1764/1064)  18.4 W41-W48 S13-S11
      8 1750  873 (S22W45 L=360)  1208    205        1 (1681/ 807-1803/ 957)  24.8 W37-W50 S24-S18
      9  502  908 (N07E34 L=282)   277     62        0 ( 472/ 879- 528/ 931) -45.0 E35-E31 N04-N08
     10  300  829 (N06E51 L=264)  1269    223        2 ( 219/ 772- 380/ 879)   0.0 E60-E44 N03-N08
     11 1406  710 (S24W16 L=331)  1917    513        3 (1186/ 590-1603/ 829)   5.5 W00-W31 S27-S19
     12 1122  499 (S30E07 L=309)   542    177        0 (1084/ 418-1171/ 558)  41.6 E11-E01 S35-S27
     13  631  323 (S31E48 L=267)  2115    323        3 ( 536/ 209- 753/ 407)  13.7 E75-E34 S37-S27
     14  871  257 (S41E35 L=280)   450     83        0 ( 832/ 229- 907/ 284)  11.3 E40-E30 S42-S39
  

    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