Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  932 1819 (N45E28 L=162)   381     40        0 ( 908/1802- 957/1836)  76.0 E29-E25 N42-N46
      2  650 1685 (N29E41 L=149)   940    191        1 ( 602/1613- 728/1727)  66.0 E43-E35 N22-N32
      3 1702 1546 (N42W45 L=235)   938    129        1 (1651/1505-1756/1583)  -9.5 W38-W51 N40-N44
      4  289 1517 (N13E66 L=124)  2182    127        3 ( 240/1457- 329/1575)  63.4 E73-E59 N09-N17
      5  358 1510 (N13E57 L=133)   504     85        2 ( 326/1478- 389/1537)  45.0 E59-E54 N11-N15
      6 1594 1369 (N25W31 L=221)   534    104        1 (1554/1328-1649/1398) -15.9 W28-W36 N23-N27
      7 1804 1262 (N24W51 L=241)   751    124        0 (1760/1206-1835/1304) -29.7 W46-W54 N21-N26
      8  183 1050 (S16E62 L=128)  4160    356        9 ( 127/ 914- 236/1191)  80.0 E71-E57 S24-S07
      9  250 1061 (S15E55 L=135)   368     59        0 ( 235/1034- 266/1093)  71.6 E56-E52 S16-S13
     10  519  770 (S30E30 L=160)  1222    378        2 ( 360/ 734- 682/ 804)   4.4 E43-E17 S33-S27
     11 1719  629 (S15W57 L=247)  1337    218        5 (1673/ 565-1771/ 686)  76.0 W53-W63 S18-S10
     12  221  604 (S44E71 L=119)   857     60        0 ( 189/ 576- 252/ 629)   5.0 E86-E63 S45-S42
     13  402  448 (S54E51 L=139)  1321    170        1 ( 333/ 394- 475/ 487)  11.3 E77-E37 S58-S50
     14 1555  435 (S30W55 L=245)  2882    365        8 (1391/ 388-1728/ 485)  25.7 W42-W69 S35-S22
  

    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