Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1489 1625 (N31W42 L=202)   326     94        0 (1472/1586-1506/1662)  45.0 W39-W45 N28-N33
      2 1704 1404 (N15W52 L=212)   669    171        0 (1670/1346-1754/1438)  26.6 W48-W57 N10-N16
      3  374 1223 (N19E41 L=119)   317     73        1 ( 341/1202- 405/1240) -21.8 E43-E38 N17-N20
      4  177 1138 (N16E60 L=100)  2030    289        7 ( 126/1083- 230/1207)  22.6 E66-E54 N12-N20
      5  454 1085 (N09E35 L=125)   427    106        0 ( 416/1038- 499/1131) -50.2 E37-E32 N06-N12
      6  100 1053 (N12E72 L= 88)  1583    121        2 (  75/1015- 123/1094) -90.0 E77-E67 N09-N14
      7  622  986 (N02E25 L=135)   579    114        2 ( 589/ 923- 649/1042)  51.3 E27-E22 S01-N04
      8 1115  803 (S15W03 L=163)   298     65        1 (1077/ 782-1149/ 821)  11.3 W00-W05 S15-S13
      9  458  672 (S15E42 L=118)   290     68        2 ( 434/ 641- 486/ 706) -68.2 E43-E40 S17-S12
     10 1064  639 (S24E02 L=158)   439    130        0 ( 993/ 619-1126/ 668)   0.0 E06-W02 S25-S23
     11 1540  523 (S38W33 L=192)   343    104        1 (1523/ 476-1559/ 561) -66.8 W30-W35 S42-S35
     12  974  414 (S38E12 L=148)  1048    243        2 ( 888/ 348-1063/ 512)  29.4 E20-E04 S42-S32
     13  599  394 (S35E41 L=119)   466    137        0 ( 576/ 351- 622/ 442)  50.2 E45-E39 S37-S31
  

    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