Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  625 1741 (N31E48 L= 64)  1211    191        2 ( 546/1672- 701/1789) -16.3 E60-E36 N26-N34
      2 1047 1596 (N28E11 L=100)  1086    364        4 ( 962/1444-1163/1721) -33.0 E20-W00 N19-N36
      3  946 1279 (N06E09 L=102)   909    341        1 ( 920/1141- 984/1430) -60.6 E13-E04 S01-N15
      4 1670 1331 (N26W37 L=148)   665    130        1 (1639/1273-1701/1394) -60.3 W33-W39 N22-N29
      5 1298 1317 (N16W10 L=122)   607    243        2 (1242/1241-1395/1386) -31.0 W06-W17 N12-N19
      6 1276  832 (S13W19 L=130)   338    161        1 (1205/ 801-1352/ 867)  40.6 W15-W22 S15-S09
      7  816  769 (S26E08 L=104)   412    114        2 ( 765/ 730- 862/ 806) -15.9 E11-E04 S27-S23
      8 1715  646 (S12W56 L=167)   399     50        1 (1693/ 616-1733/ 675) -36.9 W53-W58 S13-S10
      9  740  643 (S35E11 L=101)   315     65        0 ( 712/ 623- 780/ 670)  -9.5 E13-E07 S36-S33
     10 1382  469 (S31W39 L=150)   323     91        0 (1337/ 451-1427/ 490)   7.1 W34-W42 S31-S30
     11 1547  434 (S28W54 L=166)   663    141        0 (1500/ 377-1584/ 488) -14.0 W47-W63 S30-S26
     12  849  451 (S46W01 L=113)   315     33        2 ( 823/ 427- 873/ 474) -45.0 W00-W03 S47-S44
     13 1330  230 (S47W57 L=168)   595     87        0 (1290/ 205-1376/ 256)   3.6 W49-W65 S48-S46
     14  805  211 (S68W08 L=120)   952    158        0 ( 727/ 177- 872/ 246)  -2.3 E05-W20 S70-S66
  

    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