Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  459 1669 (N17E60 L=  7)   443     90        0 ( 435/1646- 480/1690) -26.6 E62-E56 N15-N18
      2  405 1607 (N12E61 L=  6)   578     94        1 ( 383/1578- 430/1644) -53.1 E62-E57 N10-N14
      3  587 1571 (N13E43 L= 23)   270     30        1 ( 567/1549- 602/1595) -76.0 E44-E41 N11-N15
      4 1411 1302 (N20W14 L= 81)   846    262        0 (1389/1170-1435/1420) -68.2 W11-W18 N12-N27
      5 1716 1288 (N30W37 L=103)   486     60        0 (1684/1258-1738/1312)   0.0 W33-W39 N28-N31
      6  148 1146 (S20E66 L=  0)   777    147        0 ( 137/1087- 163/1219) -69.4 E69-E63 S23-S15
      7 1593 1135 (N16W30 L= 97)   678    150        0 (1575/1052-1610/1213) -60.9 W27-W32 N11-N20
      8  247  932 (S31E51 L= 16)  1602    409        2 ( 135/ 912- 359/ 961)   7.8 E62-E40 S33-S28
      9 1423  842 (S05W28 L= 94)   216     35        0 (1403/ 816-1445/ 866)  90.0 W26-W28 S06-S03
     10  858  813 (S23E04 L= 63)   288     73        0 ( 817/ 787- 898/ 839)  45.0 E05-E01 S24-S20
     11  520  697 (S39E24 L= 42)  1076    213        2 ( 427/ 669- 609/ 741)  21.8 E32-E17 S42-S34
     12 1066  531 (S33W19 L= 85)  1142    217        1 ( 975/ 463-1169/ 606)  74.1 W14-W21 S39-S25
     13 1396  517 (S23W39 L=106)   722    144        0 (1324/ 483-1454/ 575)  71.6 W35-W41 S26-S17
     14 1541  455 (S21W53 L=119)   318     49        0 (1512/ 432-1573/ 478)  63.4 W51-W54 S22-S18
     15 1385  384 (S30W46 L=113)   413     60        1 (1352/ 371-1421/ 401)  21.8 W43-W48 S31-S28
  

    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