Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  844 1717 (N34E28 L=153)   773    181        1 ( 781/1638- 897/1758) -23.2 E34-E20 N28-N36
      2  751 1674 (N29E33 L=148)   919    183        0 ( 708/1606- 827/1716)  63.4 E35-E27 N23-N32
      3  363 1533 (N15E58 L=123)  2313    185        6 ( 309/1441- 415/1594)  78.7 E66-E51 N08-N18
      4 1785 1282 (N25W49 L=230)  1996    390        6 (1651/1163-1915/1390) -13.1 W35-W66 N21-N28
      5 1480 1310 (N19W23 L=204)   305     65        0 (1444/1284-1515/1329)   0.0 W20-W25 N17-N19
      6 1336 1290 (N15W14 L=194)   249     51        1 (1313/1261-1366/1324)  78.7 W12-W15 N12-N17
      7  289 1127 (S11E51 L=129)   348     93        1 ( 263/1100- 318/1162)  45.0 E54-E48 S12-S08
      8  251 1022 (S18E54 L=126)  1323    190        4 ( 204/ 946- 295/1099) -71.6 E59-E49 S22-S13
      9 1807  895 (N02W55 L=236)   354     47        0 (1790/ 871-1825/ 920) -26.6 W53-W57 N00-N03
     10  642  746 (S29E20 L=160)  1302    364        1 ( 466/ 714- 804/ 787)   8.7 E34-E08 S32-S27
     11 1273  703 (S20W22 L=202)   203    122        0 (1229/ 667-1306/ 750)  71.6 W19-W23 S23-S17
     12  275  603 (S44E60 L=120)   773     89        0 ( 230/ 576- 311/ 637)  13.2 E70-E53 S45-S41
     13 1411  544 (S27W37 L=217)   255     79        0 (1370/ 531-1448/ 559)  21.8 W33-W38 S27-S25
     14  437  431 (S55E46 L=134)   515     60        1 ( 415/ 410- 469/ 462)   0.0 E50-E41 S57-S52
     15 1618  390 (S30W66 L=246)  3778    293        8 (1474/ 342-1738/ 447)  30.6 W52-W79 S36-S23
  

    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