Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1590 1670 (N40W64 L=165)   476     36        0 (1566/1646-1613/1688)   5.2 W58-W69 N39-N41
      2 1339 1640 (N42W34 L=135)   395     61        2 (1313/1603-1361/1665) -90.0 W32-W37 N39-N44
      3  370 1395 (N32E50 L= 51)   969    158        3 ( 316/1360- 439/1421)   0.0 E56-E42 N29-N33
      4  549 1380 (N31E32 L= 69)   339     79        0 ( 511/1360- 593/1400)  15.9 E35-E28 N29-N31
      5  249 1135 (N16E57 L= 43)   486     35        1 ( 227/1113- 276/1162) -56.3 E59-E54 N14-N17
      6  417  633 (S16E47 L= 54)   450    147        0 ( 355/ 600- 466/ 665) -26.6 E51-E42 S18-S13
      7 1378  415 (S39W23 L=123)   502    136        0 (1316/ 390-1429/ 440)   5.7 W17-W27 S41-S37
      8 1421  304 (S51W31 L=132)   412     31        1 (1397/ 287-1443/ 325)  11.3 W28-W33 S52-S48
  

    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