Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  248 1465 (N05E71 L=266)   697    141        0 ( 221/1439- 280/1493)  33.7 E75-E68 N02-N06
      2 1702 1118 (N20W41 L= 18)   267     96        0 (1682/1072-1720/1171) -51.3 W38-W43 N17-N22
      3 1856 1146 (N26W55 L= 33)   428     58        0 (1834/1119-1876/1171) -26.6 W52-W57 N24-N27
      4 1913 1006 (N20W65 L= 43)   910    279        0 (1874/ 995-1957/1021)  14.0 W60-W72 N17-N21
      5  183  905 (S30E58 L=279)   496     40        0 ( 169/ 875- 200/ 931) -71.6 E59-E56 S31-S28
      6  496  901 (S23E30 L=307)   268     76        1 ( 461/ 875- 534/ 924) -11.3 E32-E27 S24-S22
      7 1805  818 (N06W59 L= 36)   591    103        0 (1773/ 760-1835/ 862)  66.8 W56-W60 N01-N08
      8  994  612 (S28W09 L=347)   207     85        1 ( 950/ 600-1047/ 627)  15.9 W06-W13 S29-S26
      9 1581  567 (S14W49 L= 27)   633    196        0 (1487/ 528-1653/ 614)  45.0 W43-W53 S18-S09
     10 1696  507 (S14W63 L= 41)  1036    192        5 (1656/ 471-1731/ 547)  63.4 W59-W66 S17-S11
     11 1116  392 (S39W27 L=  4)   831    256        1 (1083/ 316-1154/ 484) -32.7 W20-W34 S42-S32
     12 1451  416 (S27W48 L= 25)   379     74        0 (1414/ 394-1493/ 434)  45.0 W45-W49 S28-S24
     13 1280  317 (S38W42 L= 20)   947    130        5 (1232/ 290-1330/ 349)   0.0 W37-W46 S40-S35
  

    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