Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1608 1653 (N27W67 L= 60)  1461    249        2 (1496/1596-1710/1695) -36.9 W58-W76 N20-N32
      2 1499 1540 (N24W47 L= 41)   622    107        0 (1474/1489-1521/1598)  45.0 W44-W50 N21-N27
      3 1159 1529 (N33W23 L= 16)   795    156        0 (1083/1486-1222/1563) -53.1 W19-W26 N29-N37
      4 1172 1248 (N17W14 L=  7)   585    216        1 (1078/1199-1257/1299) -45.0 W09-W18 N12-N21
      5  767 1167 (N21E12 L=341)   238     42        1 ( 740/1137- 784/1196)  71.6 E14-E10 N19-N22
      6  460  993 (N16E37 L=316)   794    210        0 ( 443/ 901- 488/1080)  84.8 E38-E33 N10-N21
      7 1254  940 (S03W11 L=  4)   486    150        0 (1210/ 888-1301/ 996)  26.6 W07-W15 S05-N00
      8  164  825 (N10E72 L=281)   887     70        0 ( 123/ 804- 197/ 851)   9.5 E83-E65 N08-N11
      9 1155  634 (S19E01 L=352)   704    368        1 ( 988/ 594-1225/ 735)   0.0 E11-W03 S21-S13
     10 1409  635 (S25W15 L=  8)  1132    321        2 (1286/ 567-1545/ 713)   5.7 W05-W25 S26-S23
     11  462  586 (S08E47 L=306)   712    104        1 ( 423/ 542- 492/ 633)  32.0 E52-E43 S10-S05
     12  815  479 (S21E27 L=327)   366    124        0 ( 788/ 427- 841/ 542)  41.2 E30-E22 S24-S17
     13  609  356 (S26E48 L=305)   913    140        3 ( 582/ 299- 633/ 431)  39.8 E53-E41 S30-S20
  

    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