Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1042 1831 (N64W07 L=337)  1179    195        2 ( 956/1798-1139/1849)   0.0 E05-W21 N60-N66
      2 1517 1452 (N29W39 L=  9)   814    238        3 (1413/1431-1638/1468)  -9.0 W30-W49 N27-N30
      3  621 1435 (N31E29 L=301)   493    136        0 ( 563/1395- 675/1459)  12.5 E33-E24 N28-N32
      4  298 1385 (N27E59 L=271)   900    116        3 ( 266/1338- 327/1447) -81.9 E62-E55 N23-N30
      5 1757 1362 (N22W60 L= 30)   836    112        3 (1715/1330-1788/1403) -29.7 W54-W64 N19-N24
      6  618 1313 (N23E27 L=303)   586    208        0 ( 557/1268- 710/1373) -30.3 E32-E20 N19-N26
      7 1829 1167 (N09W62 L= 32)  1158    138        4 (1787/1108-1857/1224)  81.9 W57-W65 N05-N12
      8 1759  859 (S09W52 L= 23)   635     58        3 (1728/ 836-1797/ 879)  -8.1 W49-W56 S10-S08
      9  285  833 (S08E54 L=276)   378     57        1 ( 257/ 808- 314/ 859) -21.8 E56-E51 S09-S06
     10  370  806 (S09E46 L=284)   825    135        3 ( 317/ 757- 431/ 848)  20.0 E51-E40 S12-S06
     11 1824  766 (S16W62 L= 33)  1748    222        7 (1733/ 718-1899/ 825)  13.4 W52-W74 S18-S13
     12  705  744 (S13E21 L=309)   374    152        0 ( 686/ 669- 722/ 803)  82.9 E22-E20 S17-S09
     13  909  652 (S19E08 L=322)   323    133        0 ( 896/ 596- 921/ 721)  76.0 E09-E07 S22-S14
     14 1261  505 (S31W16 L=346)  1009    209        3 (1211/ 442-1303/ 595)  84.8 W12-W18 S35-S24
  

    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