Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  404 1390 (N30E47 L=194)  1396    332        2 ( 316/1292- 528/1447)  21.3 E53-E35 N23-N33
      2  936 1399 (N29E04 L=237)   326    150        1 ( 865/1378-1001/1414)  -7.1 E08-W00 N27-N30
      3  250 1380 (N29E66 L=176)   717     83        1 ( 217/1354- 289/1398)  11.3 E71-E59 N27-N30
      4 1380 1367 (N24W27 L=268)   249     92        0 (1347/1344-1428/1392) -45.0 W24-W29 N21-N25
      5  445 1321 (N26E41 L=200)   690    118        2 ( 388/1301- 513/1340)   5.2 E46-E35 N24-N26
      6  184 1196 (N17E68 L=173)  2089    290        8 ( 143/1087- 212/1298) -65.2 E76-E62 N10-N23
      7  835 1230 (N18E11 L=230)   208    121        0 ( 797/1192- 868/1283)  51.3 E13-E08 N16-N21
      8 1777  896 (S09W54 L=295)  1218    184        4 (1723/ 831-1824/ 979)  45.0 W48-W58 S13-S04
      9 1292  930 (S03W16 L=257)   379     72        2 (1263/ 898-1317/ 959)  45.0 W14-W17 S04-N00
     10  740  571 (S23E22 L=219)   621    119        1 ( 721/ 511- 765/ 633)  66.0 E23-E19 S27-S18
     11  964  589 (S23E07 L=235)   238    139        0 ( 910/ 557-1016/ 633)  32.0 E10-E02 S24-S19
     12  510  548 (S24E41 L=200)   330    100        1 ( 466/ 525- 550/ 581)  14.0 E44-E36 S25-S21
     13  813  249 (S50E28 L=213)   457     95        1 ( 765/ 233- 859/ 263)   0.0 E33-E22 S51-S48
  

    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