Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  645 1848 (N69E30 L=326)   741     87        0 ( 625/1802- 670/1887) -52.4 E39-E25 N62-N75
      2  762 1492 (N33E10 L=346)   232     78        0 ( 720/1481- 804/1504)  -9.5 E13-E07 N32-N33
      3  358 1454 (N37E46 L=310)   502    116        0 ( 307/1431- 412/1468)   0.0 E51-E39 N35-N38
      4  691 1425 (N30E16 L=340)   263     76        0 ( 662/1389- 725/1450) -51.3 E18-E13 N26-N31
      5 1538 1380 (N14W39 L= 35)   253     61        0 (1512/1366-1573/1402) -26.6 W37-W41 N12-N15
      6  327 1348 (N30E47 L=309)   624     66        2 ( 302/1310- 356/1378)  63.4 E49-E43 N27-N32
      7  737 1235 (N17E14 L=342)  1008    362        1 ( 629/1092- 804/1349) -66.0 E20-E11 N07-N25
      8  373 1211 (N21E41 L=315)   372     55        1 ( 349/1186- 396/1236)  33.7 E43-E39 N19-N22
      9  273 1087 (N15E51 L=306)   405     74        0 ( 256/1047- 293/1129) -78.7 E52-E48 N12-N17
     10 1621  780 (S23W36 L= 32)   239     51        0 (1595/ 761-1648/ 800) -36.9 W34-W38 S24-S21
     11 1247  513 (S35W07 L=  3)  2341    681        4 ( 987/ 346-1481/ 695)  21.8 E15-W25 S43-S25
     12 1709  644 (S33W46 L= 42)   479     73        0 (1683/ 613-1732/ 666) -45.0 W43-W49 S35-S31
     13 1360  272 (S58W17 L= 13)   388     32        1 (1339/ 252-1385/ 290) -26.6 W14-W20 S59-S55
  

    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