Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1329 1742 (N54W33 L=211)   450     71        0 (1306/1713-1358/1765)  20.0 W28-W39 N51-N55
      2  953 1730 (N53E07 L=170)   297     56        0 ( 932/1703- 974/1755)  59.0 E09-E05 N50-N55
      3  662 1548 (N37E29 L=148)   609    139        1 ( 601/1499- 720/1576) -18.4 E35-E23 N33-N39
      4 1715 1543 (N36W66 L=243)   942     98        2 (1662/1518-1762/1563)   0.0 W57-W77 N34-N36
      5  819 1494 (N34E15 L=162)   491    114        1 ( 774/1467- 878/1519)  23.2 E18-E11 N31-N35
      6 1030 1459 (N31W00 L=178)   314     78        0 ( 992/1440-1069/1474) -21.8 E02-W03 N30-N32
      7  208 1237 (N15E65 L=112)   948    159        2 ( 180/1163- 230/1306)  90.0 E71-E62 N09-N18
      8  328 1274 (N18E52 L=126)   402    102        0 ( 297/1236- 374/1299)  23.2 E54-E47 N15-N19
      9  380  573 (S27E51 L=127)  1378    325        0 ( 329/ 453- 465/ 710)  33.2 E67-E38 S36-S17
     10 1189  672 (S19W11 L=188)   221     80        1 (1144/ 658-1225/ 692)   9.5 W07-W13 S19-S17
     11  629  490 (S32E30 L=148)  2941    504        5 ( 481/ 350- 796/ 670)  33.0 E54-E14 S44-S18
     12 1479  504 (S31W35 L=212)   323     78        0 (1450/ 479-1515/ 533)  38.7 W32-W37 S32-S28
     13 1405  319 (S46W37 L=214)   549     78        1 (1375/ 290-1422/ 360)  90.0 W34-W40 S49-S42
     14 1460  302 (S48W45 L=222)   516     50        0 (1435/ 284-1485/ 322) -16.7 W40-W50 S50-S46
  

    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