Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1457 1709 (N51W09 L=274)   586    115        2 (1401/1688-1501/1730)  16.7 W04-W14 N48-N53
      2  993 1411 (N14E12 L=252)   672    313        1 ( 939/1293-1049/1540) -40.6 E19-E05 N07-N20
      3 1417 1490 (N31W11 L=275)   255     17        0 (1393/1475-1441/1504)   0.0 W09-W12 N30-N32
      4  158 1261 (S12E70 L=194)   707    174        4 ( 131/1219- 190/1319)  60.3 E73-E67 S14-S07
      5  253 1150 (S17E55 L=210)  1789    396       10 ( 166/1088- 331/1224)  34.7 E62-E48 S21-S11
      6  525 1153 (S12E33 L=231)   308     71        0 ( 499/1116- 562/1177) -31.0 E34-E29 S13-S10
      7  212 1032 (S25E56 L=208)   608    119        2 ( 181/ 991- 246/1085)  63.4 E59-E53 S27-S21
      8  786  927 (S18E11 L=253)  1008    346        4 ( 636/ 895- 957/ 964)  16.7 E20-W00 S22-S15
      9  240  926 (S31E52 L=212)   470    115        0 ( 204/ 912- 285/ 946)   7.1 E55-E47 S31-S29
     10  496  901 (S27E30 L=234)   407    148        0 ( 437/ 878- 564/ 924)  18.4 E34-E25 S28-S24
     11 1113  746 (S20W13 L=277)  1094    375        1 ( 940/ 643-1264/ 824)   7.4 W02-W25 S24-S15
     12 1467  531 (S21W43 L=307)   334     98        0 (1443/ 495-1489/ 569) -23.2 W39-W46 S22-S19
     13 1638  464 (S18W60 L=324)   532     94        1 (1615/ 437-1665/ 495) -53.1 W57-W62 S20-S16
     14 1173  429 (S36W30 L=294)   398     84        1 (1138/ 394-1208/ 467) -23.2 W26-W33 S37-S34
  

    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