Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1291 1821 (N49W42 L=169)   574     89        0 (1251/1792-1338/1843)  12.1 W35-W50 N46-N49
      2 1232 1641 (N35W25 L=151)   995    201        2 (1137/1608-1327/1665) -22.6 W18-W31 N31-N38
      3  996 1569 (N34W06 L=132)   373    116        1 ( 945/1539-1053/1599)   7.1 W02-W10 N32-N35
      4  241 1066 (N12E54 L= 73)   341     33        3 ( 221/1046- 264/1088) -26.6 E55-E51 N10-N13
      5 1924  961 (S15W69 L=195)  1023     96        0 (1909/ 905-1944/1009)  71.6 W66-W73 S18-S12
      6 1724  949 (S13W46 L=172)   564    143        0 (1663/ 922-1777/ 984)  11.3 W40-W50 S14-S11
      7 1712  804 (S22W45 L=171)   807    194        0 (1634/ 740-1777/ 871)  24.8 W37-W50 S25-S18
      8  743  716 (S15E21 L=105)   704    232        2 ( 666/ 644- 804/ 792)  28.6 E27-E16 S18-S10
      9 1238  675 (S24W09 L=135)   769    270        0 (1174/ 559-1318/ 771)  45.0 W03-W14 S30-S18
     10  203  666 (S11E69 L= 58)   980     92        1 ( 171/ 630- 238/ 700) -35.5 E72-E65 S13-S08
     11  414  615 (S17E48 L= 78)   663     87        1 ( 381/ 576- 447/ 649) -53.1 E50-E45 S18-S14
     12  923  492 (S31E15 L=111)   403     75        0 ( 892/ 461- 962/ 527)  26.6 E17-E11 S33-S29
     13  795  486 (S30E24 L=102)   390     61        1 ( 778/ 449- 818/ 525)  59.0 E26-E21 S32-S27
     14  430  342 (S34E66 L= 60)  1998    217        1 ( 366/ 259- 501/ 417)  69.0 E71-E62 S41-S28
  

    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