Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1158 1636 (N36W27 L=213)  2464    721        1 ( 868/1561-1491/1690) -14.0 W04-W52 N27-N39
      2 1731 1526 (N14W66 L=252)  2542    184        4 (1675/1448-1777/1599) -90.0 W59-W71 N08-N19
      3  781 1519 (N39E03 L=183)   238     80        0 ( 750/1492- 817/1552)  21.8 E05-W00 N37-N40
      4  256 1239 (N33E52 L=134)   735    126        1 ( 198/1219- 325/1262) -17.4 E60-E44 N30-N35
      5  381 1099 (N22E40 L=146)   260     53        1 ( 355/1084- 405/1118)  11.3 E42-E37 N20-N22
      6  706 1100 (N15E17 L=169)   187     37        0 ( 679/1087- 732/1115) -33.7 E18-E15 N13-N15
      7 1720  905 (S20W42 L=228)   572    152        1 (1684/ 835-1735/ 982)  63.4 W38-W44 S24-S15
      8  904  867 (S03E10 L=176)   285    146        0 ( 847/ 853- 974/ 898)  -7.1 E13-E05 S03-S01
      9 1159  542 (S28E04 L=182)   873    322        1 (1039/ 443-1237/ 670)  26.6 E14-W04 S32-S21
     10 1023  561 (S23E11 L=175)   581    232        0 ( 973/ 462-1074/ 665)  39.8 E17-E05 S28-S18
     11 1821  616 (S43W58 L=244)   689     76        1 (1785/ 596-1863/ 636)   0.0 W51-W67 S44-S41
     12  829  530 (S21E24 L=162)   793    229        5 ( 795/ 423- 867/ 626)  50.2 E28-E18 S27-S15
     13  555  557 (S13E41 L=145)   262     53        0 ( 536/ 528- 576/ 585)  31.0 E43-E38 S14-S11
     14 1483  385 (S50W18 L=204)  1687    268        4 (1360/ 340-1600/ 452)  -6.6 W05-W31 S52-S47
     15  565  333 (S28E54 L=132)   371     52        0 ( 547/ 304- 578/ 364)  29.7 E58-E50 S29-S25
  

    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